parent
28abbfc6c2
commit
01401e2bec
|
@ -96,18 +96,21 @@ M: slate draw-gadget* ( slate -- )
|
||||||
|
|
||||||
establish-coordinate-system
|
establish-coordinate-system
|
||||||
|
|
||||||
GL_MODELVIEW glMatrixMode glLoadIdentity glPushMatrix
|
GL_MODELVIEW glMatrixMode glPushMatrix glLoadIdentity
|
||||||
|
|
||||||
setup-viewport
|
setup-viewport
|
||||||
|
|
||||||
draw-slate
|
draw-slate
|
||||||
|
|
||||||
GL_PROJECTION glMatrixMode glPopMatrix
|
GL_PROJECTION glMatrixMode glPopMatrix glLoadIdentity
|
||||||
GL_MODELVIEW glMatrixMode glPopMatrix
|
GL_MODELVIEW glMatrixMode glPopMatrix glLoadIdentity
|
||||||
|
|
||||||
dup
|
dup
|
||||||
find-world
|
find-world
|
||||||
default-coordinate-system
|
! The world coordinate system is a little wacky:
|
||||||
|
dup { [ drop 0 ] [ width ] [ height ] [ drop 0 ] } cleave -1 1 glOrtho
|
||||||
setup-viewport
|
setup-viewport
|
||||||
drop
|
drop
|
||||||
drop ;
|
drop ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
Loading…
Reference in New Issue