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

Merge branch 'master' of git://onigirihouse.com/git/yuuki

db4
Matthew Willis 2008-06-01 12:47:19 -07:00
parent 863e3df8e4 a3eb649fd6
commit f10d604bce
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/cairo/gadgets/gadgets.factor
View File

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: sequences math opengl.gadgets kernel USING: sequences math opengl.gadgets kernel
byte-arrays cairo.ffi cairo io.backend byte-arrays cairo.ffi cairo io.backend
opengl.gl arrays ; ui.gadgets accessors opengl.gl
arrays ;
IN: cairo.gadgets IN: cairo.gadgets
@ -14,9 +15,17 @@ IN: cairo.gadgets
[ cairo_image_surface_create_for_data ] 3bi [ cairo_image_surface_create_for_data ] 3bi
r> with-cairo-from-surface ; r> with-cairo-from-surface ;
: <cairo-gadget> ( dim quot -- ) TUPLE: cairo-gadget < texture-gadget quot ;
over 2^-bounds swap copy-cairo
GL_BGRA rot <texture-gadget> ; : <cairo-gadget> ( dim quot -- gadget )
cairo-gadget construct-gadget
swap >>quot
swap >>dim ;
M: cairo-gadget graft* ( gadget -- )
GL_BGRA >>format dup
[ dim>> 2^-bounds ] [ quot>> copy-cairo ] bi
>>bytes call-next-method ;
! maybe also texture>png ! maybe also texture>png
! : cairo>png ( gadget path -- ) ! : cairo>png ( gadget path -- )

7
extra/pango/cairo/cairo.factor
View File

@ -4,6 +4,7 @@
! pangocairo bindings, from pango/pangocairo.h ! pangocairo bindings, from pango/pangocairo.h
USING: cairo.ffi alien.c-types math USING: cairo.ffi alien.c-types math
alien.syntax system combinators alien alien.syntax system combinators alien
memoize
arrays pango pango.fonts ; arrays pango pango.fonts ;
IN: pango.cairo IN: pango.cairo
@ -111,9 +112,11 @@ M: pango-layout dispose ( alien -- ) alien>> g_object_unref ;
0 <int> 0 <int> [ pango_layout_get_pixel_size ] 2keep 0 <int> 0 <int> [ pango_layout_get_pixel_size ] 2keep
[ *int ] bi@ ; [ *int ] bi@ ;
MEMO: dummy-cairo ( -- cr )
CAIRO_FORMAT_ARGB32 0 0 cairo_image_surface_create cairo_create ;
: dummy-pango ( quot -- ) : dummy-pango ( quot -- )
>r CAIRO_FORMAT_ARGB32 0 0 cairo_image_surface_create >r dummy-cairo cairo r> [ with-pango ] curry with-variable ; inline
r> [ with-pango ] curry with-cairo-from-surface ; inline
: layout-size ( quot -- dim ) : layout-size ( quot -- dim )
[ layout pango-layout-get-pixel-size 2array ] compose dummy-pango ; inline [ layout pango-layout-get-pixel-size 2array ] compose dummy-pango ; inline