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

1
extra/bake/bake.factor
View File

@ -49,4 +49,3 @@ DEFER: bake
: bake ( seq -- seq ) : 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 IN: cfdg.gl
: get-modelview-matrix ( -- alien ) : 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 SYMBOL: modelview-matrix-stack
: init-modelview-matrix-stack ( -- ) : init-modelview-matrix-stack ( -- ) V{ } clone modelview-matrix-stack set ;
V{ } clone modelview-matrix-stack set ;
: push-modelview-matrix ( -- ) : 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 ; : pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;