sig
  type t
  val new' : unit -> Ming.SWFMovie.t
  type swfBlock =
      SWFShape of Ming.SWFShape.t
    | SWFMovieClip of Ming.SWFMovieClip.t
  val add :
    movie:Ming.SWFMovie.t ->
    block:Ming.SWFMovie.swfBlock -> Ming.SWFDisplayItem.t
  val setBackground :
    movie:Ming.SWFMovie.t -> r:int -> g:int -> b:int -> unit
  val setDimension : movie:Ming.SWFMovie.t -> x:float -> y:float -> unit
  val save : movie:Ming.SWFMovie.t -> filename:string -> int
end