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

ui.gadgets.cartesian: Use the new slate

db4
Eduardo Cavazos 2008-07-31 16:12:58 -05:00
parent 1906efc1bd
commit 22f2a0d856
1 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/ui/gadgets/cartesian/cartesian.factor
View File

@ -22,9 +22,7 @@ TUPLE: cartesian < slate x-min x-max y-min y-max z-min z-max perspective ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
M: cartesian draw-gadget* ( cartesian -- ) M: cartesian establish-coordinate-system ( cartesian -- cartesian )
GL_PROJECTION glMatrixMode
glLoadIdentity
dup dup
{ {
[ x-min>> ] [ x-max>> ] [ x-min>> ] [ x-max>> ]
@ -32,10 +30,7 @@ M: cartesian draw-gadget* ( cartesian -- )
[ z-min>> ] [ z-max>> ] [ z-min>> ] [ z-max>> ]
} }
cleave cleave
glOrtho glOrtho ;
GL_MODELVIEW glMatrixMode
glLoadIdentity
call-next-method ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!