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

Fix inference

Slava Pestov 2008-09-19 01:08:27 -05:00
parent 3d790d8ac8
commit d592106e93
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/opengl/opengl.factor
View File

@ -16,8 +16,6 @@ IN: opengl
: fix-coordinates ( point1 point2 -- x1 y2 x2 y2 ) : fix-coordinates ( point1 point2 -- x1 y2 x2 y2 )
[ first2 [ >fixnum ] bi@ ] bi@ ; [ first2 [ >fixnum ] bi@ ] bi@ ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: gl-color ( color -- ) first4 glColor4d ; inline : gl-color ( color -- ) first4 glColor4d ; inline
: gl-clear-color ( color -- ) : gl-clear-color ( color -- )
@ -32,8 +30,6 @@ IN: opengl
: set-color ( object -- ) color>raw glColor4d ; : set-color ( object -- ) color>raw glColor4d ;
: set-clear-color ( object -- ) color>raw glClearColor ; : set-clear-color ( object -- ) color>raw glClearColor ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: gl-error ( -- ) : gl-error ( -- )
glGetError dup zero? [ glGetError dup zero? [
"GL error: " over gluErrorString append throw "GL error: " over gluErrorString append throw
@ -53,7 +49,9 @@ IN: opengl
: (all-enabled) ( seq quot -- ) : (all-enabled) ( seq quot -- )
over [ glEnable ] each dip [ glDisable ] each ; inline over [ glEnable ] each dip [ glDisable ] each ; inline
: (all-enabled-client-state) ( seq quot -- ) : (all-enabled-client-state) ( seq quot -- )
over [ glEnableClientState ] each dip [ glDisableClientState ] each ; inline [ dup [ glEnableClientState ] each ] dip
dip
[ glDisableClientState ] each ; inline
MACRO: all-enabled ( seq quot -- ) MACRO: all-enabled ( seq quot -- )
>r words>values r> [ (all-enabled) ] 2curry ; >r words>values r> [ (all-enabled) ] 2curry ;