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

fix using

db4
Doug Coleman 2008-03-15 19:36:40 -05:00
parent 1e9abc971c
commit ed7af26003
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/cairo-demo/cairo-demo.factor
View File

@ -6,7 +6,7 @@
! http://cairographics.org/samples/text/ ! http://cairographics.org/samples/text/
USING: cairo math math.constants byte-arrays kernel ui ui.render USING: cairo.ffi math math.constants byte-arrays kernel ui ui.render
ui.gadgets opengl.gl ; ui.gadgets opengl.gl ;
IN: cairo-demo IN: cairo-demo
@ -22,14 +22,16 @@ IN: cairo-demo
TUPLE: cairo-gadget image-array cairo-t ; TUPLE: cairo-gadget image-array cairo-t ;
M: cairo-gadget draw-gadget* ( gadget -- ) ! M: cairo-gadget draw-gadget* ( gadget -- )
0 0 glRasterPos2i ! 0 0 glRasterPos2i
1.0 -1.0 glPixelZoom ! 1.0 -1.0 glPixelZoom
>r 384 256 GL_RGBA GL_UNSIGNED_BYTE r> ! >r 384 256 GL_RGBA GL_UNSIGNED_BYTE r>
cairo-gadget-image-array glDrawPixels ; ! cairo-gadget-image-array glDrawPixels ;
: create-surface ( gadget -- cairo_surface_t ) : create-surface ( gadget -- cairo_surface_t )
make-image-array dup >r swap set-cairo-gadget-image-array r> convert-array-to-surface ; make-image-array
[ swap set-cairo-gadget-image-array ] keep
convert-array-to-surface ;
: init-cairo ( gadget -- cairo_t ) : init-cairo ( gadget -- cairo_t )
create-surface cairo_create ; create-surface cairo_create ;
@ -56,10 +58,10 @@ M: cairo-gadget pref-dim* drop { 384 256 0 } ;
cairo_fill ; cairo_fill ;
M: cairo-gadget graft* ( gadget -- ) M: cairo-gadget graft* ( gadget -- )
dup dup init-cairo swap set-cairo-gadget-cairo-t draw-hello-world ; dup dup init-cairo swap set-cairo-gadget-cairo-t draw-hello-world ;
M: cairo-gadget ungraft* ( gadget -- ) ! M: cairo-gadget ungraft* ( gadget -- )
cairo-gadget-cairo-t cairo_destroy ; ! cairo-gadget-cairo-t cairo_destroy ;
: <cairo-gadget> ( -- gadget ) : <cairo-gadget> ( -- gadget )
cairo-gadget construct-gadget ; cairo-gadget construct-gadget ;