sig
external new_gradient : unit -> SWF.gradient = "ml_newswfgradient"
external destroy : gradient:SWF.gradient -> unit = "ml_destroyswfgradient"
external add_entry :
gradient:SWF.gradient ->
ratio:float -> r:int -> g:int -> b:int -> a:int -> unit
= "ml_swfgradient_addentry_bytecode" "ml_swfgradient_addentry_native"
end