extra/cairo/samples/samples.factor

   1 USING: cairo locals ;
   2
   3 IN: cairo.samples
   4
   5 SYMBOL: cr
   6 :: cairo-samp ( cr -- )
   7     [let | |
   8         cr 10.0 cairo_set_line_width
   9         cr 50.0 50.0 20.0 0.0 3.0 cairo_arc
  10         cr 1.0 1.0 0.0 1.0 cairo_set_source_rgba
  11         cr cairo_stroke
  12         cr cairo_fill
  13     ] ;