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