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