gradient-gadget

Vocabulary

cairo-samples

Definition

USING: cairo-gadgets ;

IN: cairo-samples

TUPLE: gradient-gadget < cairo-gadget ;

Methods

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

M:: gradient-gadget render-cairo* ( gadget -- )
    0 0 0 256 cairo_pattern_create_linear
    :> pat 115.2 102.4 25.6 102.4 102.4 128.0
    cairo_pattern_create_radial
    :> radial pat 1 0 0 0 1 cairo_pattern_add_color_stop_rgba
    pat 0 1 1 1 1 cairo_pattern_add_color_stop_rgba
    cr 0 0 256 256 cairo_rectangle cr pat cairo_set_source
    cr cairo_fill pat cairo_pattern_destroy
    radial 0 1 1 1 1 cairo_pattern_add_color_stop_rgba
    radial 1 0 0 0 1 cairo_pattern_add_color_stop_rgba
    cr radial cairo_set_source cr 128.0 128.0 76.8 0 2 pi *
    cairo_arc cr cairo_fill radial cairo_pattern_destroy ;