module Shape: sig .. end
val new_shape : unit -> SWF.shape
val destroy : shape:SWF.shape -> unit
val add_solid_fill : shape:SWF.shape -> r:int -> g:int -> b:int -> a:int -> SWF.fill
val set_line : shape:SWF.shape -> width:int -> r:int -> g:int -> b:int -> a:int -> unit
val set_line_style : shape:SWF.shape -> width:int -> r:int -> g:int -> b:int -> a:int -> unit
Sets the shape's line style. width is the line's width.
If width is 0, the line's style is removed (then, all other arguments are ignor).
If width > 0, then line's color is set to r, g, b, a.
val hide_line : shape:SWF.shape -> unit
val move_pen : shape:SWF.shape -> x:float -> y:float -> unit
val move_pen_to : shape:SWF.shape -> x:float -> y:float -> unit
val draw_line : shape:SWF.shape -> x:float -> y:float -> unit
val draw_line_to : shape:SWF.shape -> x:float -> y:float -> unit
val draw_curve : shape:SWF.shape ->
controlx:float -> controly:float -> anchorx:float -> anchory:float -> unit
Draws a quadratic curve (using the current line style, set by
SWF.Shape.set_line) from the current pen position to the relative position
(anchorx,anchory) using relative control point
(controlx,controly). That is,
head towards the control point, then smoothly turn to the anchor point.
val draw_curve_to : shape:SWF.shape ->
controlx:float -> controly:float -> anchorx:float -> anchory:float -> unit
val draw_circle : shape:SWF.shape -> r:float -> unit
val draw_arc : shape:SWF.shape -> r:float -> start_angle:float -> end_angle:float -> unit
Draws an arc of radius r center at the current location, from angle
start_angle to angle end_angle measur clockwise from 12 o'clock
val draw_glyph : shape:SWF.shape -> font:SWF.font -> c:char -> unit
val set_right_fill_style : shape:SWF.shape -> fill_style:SWF.fill_style -> unit
val set_left_fill_style : shape:SWF.shape -> fill_style:SWF.fill_style -> unit
val set_right_fill : shape:SWF.shape -> fill:SWF.fill -> unit
val set_left_fill : shape:SWF.shape -> fill:SWF.fill -> unit
Sets the fill on the left side of the edge- that is, on the interior if
you're defining the outline of the shape in a counter-clockwise fashion.
val add_linear_gradient_fill : shape:SWF.shape -> gradient:SWF.gradient -> SWF.fill
val add_radial_gradient_fill : shape:SWF.shape -> gradient:SWF.gradient -> SWF.fill