clip-image-gadget

Vocabulary

cairo-samples

Definition

USING: cairo-gadgets ;

IN: cairo-samples

TUPLE: clip-image-gadget < cairo-gadget ;

Methods

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

M:: clip-image-gadget render-cairo* ( gadget -- )
    "resource:misc/icons/Factor_128x128.png" normalize-path
    cairo_image_surface_create_from_png :> png png
    cairo_image_surface_get_width :> w png
    cairo_image_surface_get_height :> h cr 128 128 76.8 0 2 pi *
    cairo_arc cr cairo_clip cr cairo_new_path cr 192.0 w /
    192.0 h / cairo_scale cr png 32 32 cairo_set_source_surface
    cr cairo_paint png cairo_surface_destroy ;