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

fix cairo-demo 

my commit did more than fix a using..oops
db4
Doug Coleman 2008-03-17 09:03:24 -05:00
parent 7bd91f68c9
commit 86221d57f3
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,11 +22,11 @@ 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 make-image-array
@ -60,8 +60,8 @@ M: cairo-gadget pref-dim* drop { 384 256 0 } ;
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 ;