sig
external new_morph : unit -> SWF.morph = "ml_newswfmorphshape"
external destroy : morph:SWF.morph -> unit = "ml_destroyswfmorph"
external get_shape1 : morph:SWF.morph -> SWF.shape
= "ml_swfmorph_getshape1"
external get_shape2 : morph:SWF.morph -> SWF.shape
= "ml_swfmorph_getshape2"
end