31 lines
943 B
Factor
31 lines
943 B
Factor
! Copyright (C) 2008 Matthew Willis.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: pango.cairo cairo cairo.ffi cairo.gadgets
|
|
alien.c-types kernel math ;
|
|
IN: pango.cairo.gadgets
|
|
|
|
: (pango-gadget) ( setup show -- gadget )
|
|
[ drop layout-size ]
|
|
[ compose [ with-pango ] curry <cairo-gadget> ] 2bi ;
|
|
|
|
: <pango-gadget> ( quot -- gadget )
|
|
[ cr layout pango_cairo_show_layout ] (pango-gadget) ;
|
|
|
|
USING: prettyprint sequences ui.gadgets.panes
|
|
threads io.backend io.encodings.utf8 io.files ;
|
|
: hello-pango ( -- )
|
|
50 [ 6 + ] map [
|
|
"Sans " swap unparse append
|
|
[
|
|
cr 0 1 0.2 0.6 cairo_set_source_rgba
|
|
layout-font "今日は、 Pango!" layout-text
|
|
] curry
|
|
<pango-gadget> gadget. yield
|
|
] each
|
|
[
|
|
"resource:extra/pango/cairo/gadgets/gadgets.factor"
|
|
normalize-path utf8 file-contents layout-text
|
|
] <pango-gadget> gadget. ;
|
|
|
|
MAIN: hello-pango
|