clip-gadget

Vocabulary

cairo-samples

Definition

USING: cairo-gadgets ;

IN: cairo-samples

TUPLE: clip-gadget < cairo-gadget ;

Methods

USING: cairo-gadgets cairo-samples cairo.ffi kernel math
math.constants ;

M: clip-gadget render-cairo*
    drop cr 128 128 76.8 0 2 pi * cairo_arc cr cairo_clip
    cr cairo_new_path cr 0 0 256 256 cairo_rectangle
    cr cairo_fill cr 0 1 0 cairo_set_source_rgb
    cr 0 0 cairo_move_to cr 256 256 cairo_line_to
    cr 256 0 cairo_move_to cr 0 256 cairo_line_to
    cr 10 cairo_set_line_width cr cairo_stroke ;