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