extra/cairo/pango/gadgets/gadgets.factor

   1 USING: cairo.pango cairo cairo.ffi cairo.gadgets
   2 alien.c-types kernel math ;
   3 IN: cairo.pango.gadgets
   4
   5 : (pango-gadget) ( setup show -- gadget )
   6     [ drop layout-size ]
   7     [ compose [ with-pango ] curry <cached-cairo> ] 2bi ;
   8
   9 : <pango-gadget> ( quot -- gadget )
  10     [ cr layout pango_cairo_show_layout ] (pango-gadget) ;
  11
  12 USING: prettyprint sequences ui.gadgets.panes
  13 threads ;
  14 : hello-pango ( -- )
  15     50 [ 6 + ] map [
  16         "Sans " swap unparse append
  17         [
  18             cr 0 1 0.2 0.6 cairo_set_source_rgba
  19             layout-font "今日は、 Pango!" layout-text
  20         ] curry
  21         <pango-gadget> gadget. yield
  22     ] each ;
  23
  24 MAIN: hello-pango