opengl: Change gl-gradient to handle color objects

2008-07-28 17:00:30 -05:00 · 2008-07-28 17:00:30 -05:00 · 57f8f811b9
parent 2216486578
commit 57f8f811b9
1 changed files with 1 additions and 1 deletions
--- a/extra/opengl/opengl.factor
+++ b/extra/opengl/opengl.factor
@ -124,7 +124,7 @@ MACRO: all-enabled-client-state ( seq quot -- )
    GL_QUAD_STRIP [
        swap >r prepare-gradient r>
        [ length dup 1- v/n ] keep [
-            >r >r 2dup r> r> gl-color v*n
+            >r >r 2dup r> r> set-color v*n
            dup gl-vertex v+ gl-vertex
        ] 2each 2drop
    ] do-state ;