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

Fix stack effect

release
Slava Pestov 2007-12-08 03:21:40 -05:00
parent 8c7ef92ffa
commit 49cbac32af
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
extra/nehe/4/4.factor
View File

@ -32,7 +32,7 @@ M: nehe4-gadget draw-gadget* ( gadget -- )
glLoadIdentity glLoadIdentity
-1.5 0.0 -6.0 glTranslatef -1.5 0.0 -6.0 glTranslatef
dup nehe4-gadget-rtri 0.0 1.0 0.0 glRotatef dup nehe4-gadget-rtri 0.0 1.0 0.0 glRotatef
GL_TRIANGLES [ GL_TRIANGLES [
1.0 0.0 0.0 glColor3f 1.0 0.0 0.0 glColor3f
0.0 1.0 0.0 glVertex3f 0.0 1.0 0.0 glVertex3f
@ -52,23 +52,23 @@ M: nehe4-gadget draw-gadget* ( gadget -- )
1.0 1.0 0.0 glVertex3f 1.0 1.0 0.0 glVertex3f
1.0 -1.0 0.0 glVertex3f 1.0 -1.0 0.0 glVertex3f
-1.0 -1.0 0.0 glVertex3f -1.0 -1.0 0.0 glVertex3f
] do-state ] do-state
dup nehe4-gadget-rtri 0.2 + over set-nehe4-gadget-rtri dup nehe4-gadget-rtri 0.2 + over set-nehe4-gadget-rtri
dup nehe4-gadget-rquad 0.15 - swap set-nehe4-gadget-rquad ; dup nehe4-gadget-rquad 0.15 - swap set-nehe4-gadget-rquad ;
: nehe4-update-thread ( gadget -- ) : nehe4-update-thread ( gadget -- )
dup nehe4-gadget-quit? [ dup nehe4-gadget-quit? [ drop ] [
redraw-interval sleep redraw-interval sleep
dup relayout-1 dup relayout-1
nehe4-update-thread nehe4-update-thread
] unless ; ] if ;
M: nehe4-gadget graft* ( gadget -- ) M: nehe4-gadget graft* ( gadget -- )
[ f swap set-nehe4-gadget-quit? ] keep [ f swap set-nehe4-gadget-quit? ] keep
[ nehe4-update-thread ] in-thread drop ; [ nehe4-update-thread ] in-thread drop ;
M: nehe4-gadget ungraft* ( gadget -- ) M: nehe4-gadget ungraft* ( gadget -- )
t swap set-nehe4-gadget-quit? ; t swap set-nehe4-gadget-quit? ;
: run4 ( -- ) : run4 ( -- )
<nehe4-gadget> "NeHe Tutorial 4" open-window ; <nehe4-gadget> "NeHe Tutorial 4" open-window ;