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

fixed a color issue in texture rendering

db4
Matthew Willis 2008-05-25 11:59:41 -07:00
parent d5f6cf4d05
commit 87b6cb5d40
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: cairo cairo.ffi ui.render kernel opengl.gl opengl USING: cairo cairo.ffi ui.render kernel opengl.gl opengl
math byte-arrays ui.gadgets accessors arrays math byte-arrays ui.gadgets accessors arrays
namespaces io.backend memoize ; namespaces io.backend memoize colors ;
IN: cairo.gadgets IN: cairo.gadgets
@ -64,6 +64,7 @@ M: cached-cairo draw-gadget* ( gadget -- )
GL_TEXTURE_2D [ GL_TEXTURE_2D [
[ [
dup render-to-texture dup render-to-texture
white gl-color
GL_TEXTURE_2D over texture>> glBindTexture GL_TEXTURE_2D over texture>> glBindTexture
GL_QUADS [ GL_QUADS [
[ width>> ] [ height>> ] bi 2array four-sides [ width>> ] [ height>> ] bi 2array four-sides
@ -76,7 +77,8 @@ M: cached-cairo graft* ( gadget -- )
gen-texture >>texture drop ; gen-texture >>texture drop ;
M: cached-cairo ungraft* ( gadget -- ) M: cached-cairo ungraft* ( gadget -- )
texture>> delete-texture ; [ texture>> delete-texture ]
[ \ render-to-texture invalidate-memoized ] bi ;
M: cairo-gadget pref-dim* ( gadget -- rect ) M: cairo-gadget pref-dim* ( gadget -- rect )
[ width>> ] [ height>> ] bi 2array ; [ width>> ] [ height>> ] bi 2array ;