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

Minor updates

release
Eduardo Cavazos 2007-09-29 13:30:00 -05:00
parent 9ab46a94db
commit 3747cff69c
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/bake/bake.factor
View File

@ -48,5 +48,4 @@ DEFER: bake
: bake-items ( seq -- ) [ bake-item ] each ;
: bake ( seq -- seq )
[ reset-building save-exemplar bake-items finish-baking ] with-scope ;
[ reset-building save-exemplar bake-items finish-baking ] with-scope ;

7
extra/cfdg/gl/gl.factor
View File

@ -4,14 +4,13 @@ USING: kernel alien.c-types namespaces sequences opengl.gl ;
IN: cfdg.gl
: get-modelview-matrix ( -- alien )
GL_MODELVIEW_MATRIX 16 "GLdouble" <c-array> tuck glGetDoublev ;
GL_MODELVIEW_MATRIX 16 "GLdouble" <c-array> tuck glGetDoublev ;
SYMBOL: modelview-matrix-stack
: init-modelview-matrix-stack ( -- )
V{ } clone modelview-matrix-stack set ;
: init-modelview-matrix-stack ( -- ) V{ } clone modelview-matrix-stack set ;
: push-modelview-matrix ( -- )
get-modelview-matrix modelview-matrix-stack get push ;
get-modelview-matrix modelview-matrix-stack get push ;
: pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;