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

misc core changes

cvs
Slava Pestov 2005-11-15 08:29:03 +00:00
parent b02c812b28
commit 3091f9b20a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
library/opengl/opengl-utils.factor
View File

@ -32,7 +32,7 @@ USING: alien errors kernel math namespaces opengl sdl sequences ;
dup resize-event-w swap resize-event-h 0 gl-flags dup resize-event-w swap resize-event-h 0 gl-flags
init-surface ; init-surface ;
: with-gl-screen ( quot -- ) : with-gl-screen ( width height quot -- )
>r 0 gl-flags r> with-screen ; inline >r 0 gl-flags r> with-screen ; inline
: gl-error ( -- ) : gl-error ( -- )
@ -42,12 +42,14 @@ USING: alien errors kernel math namespaces opengl sdl sequences ;
#! Execute a quotation, locking the current surface if it #! Execute a quotation, locking the current surface if it
#! is required (eg, hardware surface). #! is required (eg, hardware surface).
[ init-gl call gl-error ] [ SDL_GL_SwapBuffers ] cleanup ; [ init-gl call gl-error ] [ SDL_GL_SwapBuffers ] cleanup ;
inline
: do-state ( what quot -- ) : do-state ( what quot -- )
swap glBegin call glEnd ; inline swap glBegin call glEnd ; inline
: do-matrix ( mode quot -- ) : do-matrix ( mode quot -- )
swap glMatrixMode glPushMatrix call glPopMatrix ; inline swap [ glMatrixMode glPushMatrix call ] keep
glMatrixMode glPopMatrix ; inline
: gl-vertex first3 glVertex3d ; inline : gl-vertex first3 glVertex3d ; inline
@ -82,7 +84,7 @@ USING: alien errors kernel math namespaces opengl sdl sequences ;
#! Draw a filled polygon. #! Draw a filled polygon.
dup length 2 > GL_POLYGON GL_LINES ? (gl-poly) ; dup length 2 > GL_POLYGON GL_LINES ? (gl-poly) ;
: gl-poly ( points color -- ) : gl-poly ( points -- )
#! Draw a polygon. #! Draw a polygon.
GL_LINE_LOOP (gl-poly) ; GL_LINE_LOOP (gl-poly) ;