ui.gadgets.slate: Restore glOrtho settings such that workspace isn't

blurry
db4
Eduardo Cavazos 2008-08-01 14:22:54 -05:00
parent 28abbfc6c2
commit 01401e2bec
1 changed files with 8 additions and 5 deletions

View File

@ -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 ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!