sig
  external new_from_input : input:SWF.input -> SWF.bitmap
    = "ml_newswfbitmap_frominput"
  external destroy : bitmap:SWF.bitmap -> unit = "ml_destroyswfbitmap"
  external get_width : bitmap:SWF.bitmap -> int = "ml_swfbitmap_getwidth"
  external get_height : bitmap:SWF.bitmap -> int = "ml_swfbitmap_getheight"
end