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