sig
  val test : unit -> unit
  val getScale : unit -> float
  val setScale : scale:float -> unit
  val useSWFVersion : version:int -> unit
  val setSWFCompression : level:int -> int
  module SWFShape :
    sig
      type t
      val new' : unit -> Ming.SWFShape.t
      type swfFill
      val addSolidFill :
        shape:Ming.SWFShape.t ->
        r:int -> g:int -> b:int -> a:int -> Ming.SWFShape.swfFill
      val setRightFill :
        shape:Ming.SWFShape.t -> fill:Ming.SWFShape.swfFill -> unit
      val movePenTo : shape:Ming.SWFShape.t -> x:float -> y:float -> unit
      val movePen : shape:Ming.SWFShape.t -> x:float -> y:float -> unit
      val drawLineTo : shape:Ming.SWFShape.t -> x:float -> y:float -> unit
      val drawLine : shape:Ming.SWFShape.t -> x:float -> y:float -> unit
    end
  module SWFDisplayItem :
    sig
      type t
      val multColor :
        item:Ming.SWFDisplayItem.t ->
        r:float -> g:float -> b:float -> a:float -> unit
      val rotateTo : item:Ming.SWFDisplayItem.t -> degrees:float -> unit
      val rotate : item:Ming.SWFDisplayItem.t -> degrees:float -> unit
      val moveTo : item:Ming.SWFDisplayItem.t -> x:float -> y:float -> unit
      val move : item:Ming.SWFDisplayItem.t -> x:float -> y:float -> unit
    end
  module SWFMovieClip :
    sig
      type t
      val new' : unit -> Ming.SWFMovieClip.t
      type swfBlock = Ming.SWFShape.t
      val add :
        clip:Ming.SWFMovieClip.t ->
        block:Ming.SWFMovieClip.swfBlock -> Ming.SWFDisplayItem.t
      val nextFrame : clip:Ming.SWFMovieClip.t -> unit
    end
  module SWFMovie :
    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
end