text-gadget

Vocabulary

cairo-samples

Definition

USING: cairo-gadgets ;

IN: cairo-samples

TUPLE: text-gadget < cairo-gadget ;

Methods

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

M: text-gadget render-cairo*
    drop
    cr "Serif" CAIRO_FONT_SLANT_NORMAL CAIRO_FONT_WEIGHT_BOLD
    cairo_select_font_face cr 50 cairo_set_font_size
    cr 10 135 cairo_move_to cr "Hello" cairo_show_text
    cr 70 165 cairo_move_to cr "factor" cairo_text_path
    cr 0.5 0.5 1 cairo_set_source_rgb cr cairo_fill_preserve
    cr 0 0 0 cairo_set_source_rgb cr 2.56 cairo_set_line_width
    cr cairo_stroke cr 1 0.2 0.2 0.6 cairo_set_source_rgba
    cr 10 135 5.12 0 2 pi * cairo_arc cr cairo_close_path
    cr 70 165 5.12 0 2 pi * cairo_arc cr cairo_fill ;