nehe5-gadget


Vocabulary
nehe.5

Definition


Methods

M: nehe5-gadget draw-gadget*
GL_PROJECTION glMatrixMode
glLoadIdentity 45.0 width height /
>float 0.1 100.0 gluPerspective GL_MODELVIEW glMatrixMode
glLoadIdentity GL_SMOOTH glShadeModel
0.0 0.0 0.0 0.0 glClearColor 1.0 glClearDepth
GL_DEPTH_TEST glEnable GL_LEQUAL glDepthFunc
GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
glLoadIdentity -1.5 0.0 -6.0 glTranslatef
dup rtri>> 0.0 1.0 0.0 glRotatef GL_TRIANGLES [
1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
0.0 1.0 0.0 glColor3f -1.0 -1.0 1.0 glVertex3f
0.0 0.0 1.0 glColor3f 1.0 -1.0 1.0 glVertex3f
1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
0.0 0.0 1.0 glColor3f 1.0 -1.0 1.0 glVertex3f
0.0 1.0 0.0 glColor3f 1.0 -1.0 -1.0 glVertex3f
1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
0.0 1.0 0.0 glColor3f 1.0 -1.0 -1.0 glVertex3f
0.0 0.0 1.0 glColor3f -1.0 -1.0 -1.0 glVertex3f
1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
0.0 0.0 1.0 glColor3f -1.0 -1.0 -1.0 glVertex3f
0.0 1.0 0.0 glColor3f -1.0 -1.0 1.0 glVertex3f
] do-state glLoadIdentity 1.5 0.0 -7.0 glTranslatef
dup rquad>> 1.0 0.0 0.0 glRotatef GL_QUADS [
0.0 1.0 0.0 glColor3f 1.0 1.0 -1.0 glVertex3f
-1.0 1.0 -1.0 glVertex3f -1.0 1.0 1.0 glVertex3f
1.0 1.0 1.0 glVertex3f 1.0 0.5 0.0 glColor3f
1.0 -1.0 1.0 glVertex3f -1.0 -1.0 1.0 glVertex3f
-1.0 -1.0 -1.0 glVertex3f 1.0 -1.0 -1.0 glVertex3f
1.0 0.0 0.0 glColor3f 1.0 1.0 1.0 glVertex3f
-1.0 1.0 1.0 glVertex3f -1.0 -1.0 1.0 glVertex3f
1.0 -1.0 1.0 glVertex3f 1.0 1.0 0.0 glColor3f
1.0 -1.0 -1.0 glVertex3f -1.0 -1.0 -1.0 glVertex3f
-1.0 1.0 -1.0 glVertex3f 1.0 1.0 -1.0 glVertex3f
0.0 0.0 1.0 glColor3f -1.0 1.0 1.0 glVertex3f
-1.0 1.0 -1.0 glVertex3f -1.0 -1.0 -1.0 glVertex3f
-1.0 -1.0 1.0 ~21 more~
] do-state [ 0.2 + ] change-rtri [ 0.15 - ] change-rquad
drop ;