steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changed the unicode cairo sample to use actual unicode instead of a byte 

array.
db4
Matthew Willis 2008-05-17 17:07:40 -07:00
parent 69ef4430d5
commit 3104cdb511
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/cairo/samples/samples.factor
View File

@ -116,11 +116,11 @@ IN: cairo.samples
cr cairo_fill ; cr cairo_fill ;
: utf8 ( -- ) : utf8 ( -- )
cr "Serif" CAIRO_FONT_SLANT_NORMAL CAIRO_FONT_WEIGHT_NORMAL ! cr "kochi" CAIRO_FONT_SLANT_NORMAL CAIRO_FONT_WEIGHT_NORMAL
cairo_select_font_face ! cairo_select_font_face
cr 50 cairo_set_font_size cr 50 cairo_set_font_size
"cairo_text_extents_t" malloc-object "cairo_text_extents_t" malloc-object
cr B{ 230 151 165 230 156 172 232 170 158 } pick cairo_text_extents cr "日本語" pick cairo_text_extents
cr over cr over
[ cairo_text_extents_t-width 2 / ] [ cairo_text_extents_t-width 2 / ]
[ cairo_text_extents_t-x_bearing ] bi + [ cairo_text_extents_t-x_bearing ] bi +
@ -129,7 +129,7 @@ IN: cairo.samples
[ cairo_text_extents_t-y_bearing ] bi + [ cairo_text_extents_t-y_bearing ] bi +
128 swap - cairo_move_to 128 swap - cairo_move_to
free free
cr B{ 230 151 165 230 156 172 232 170 158 } cairo_show_text cr "日本語" cairo_show_text
cr 1 0.2 0.2 0.6 cairo_set_source_rgba cr 1 0.2 0.2 0.6 cairo_set_source_rgba
cr 6 cairo_set_line_width cr 6 cairo_set_line_width