dash-gadget

Vocabulary

cairo-samples

Definition

USING: cairo-gadgets ;

IN: cairo-samples

TUPLE: dash-gadget < cairo-gadget ;

Methods

USING: accessors cairo-gadgets cairo-samples cairo.ffi
specialized-arrays.instances.alien.c-types.double ;

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 ;