Vocabulary
cairo-gadgets

Inputs
gadgetan object


Outputs
None

Definition


Methods

M:: arc-gadget render-cairo* ( gadget -- )
128.0 :> xc 128.0 :> yc 100.0 :> radius pi 1/4 *
:> angle1 pi :> angle2 cr 10.0 cairo_set_line_width
cr xc yc radius angle1 angle2 cairo_arc cr cairo_stroke
cr 1 0.2 0.2 0.6 cairo_set_source_rgba
cr 6.0 cairo_set_line_width cr xc yc 10.0 0 2 pi * cairo_arc
cr cairo_fill cr xc yc radius angle1 angle1 cairo_arc
cr xc yc cairo_line_to
cr xc yc radius angle2 angle2 cairo_arc
cr xc yc cairo_line_to cr cairo_stroke ;









M:: dash-gadget render-cairo* ( gadget -- )
double-array{ 50.0 10.0 10.0 10.0 } underlying>> :> dashes 4
:> ndash cr dashes ndash -50 cairo_set_dash
cr 10 cairo_set_line_width cr 128.0 25.6 cairo_move_to
cr 230.4 230.4 cairo_line_to cr -102.4 0 cairo_rel_line_to
cr 51.2 230.4 51.2 128.0 128.0 128.0 cairo_curve_to
cr cairo_stroke ;