Handbook
Glossary
nehe5-gadget
Vocabulary
nehe
.
5
Definition
USING:
ui.gadgets
;
IN:
nehe.5
TUPLE:
nehe5-gadget
<
gadget
rtri rquad thread quit?
;
Methods
USING:
accessors
kernel
math
nehe.5
opengl.demo-support
opengl.gl
opengl.glu
ui.render
;
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
;
USING:
accessors
kernel
nehe.5
threads
ui.gadgets
;
M:
nehe5-gadget
graft*
f
>>quit?
[
nehe5-update-thread
]
curry
in-thread
;
USING:
accessors
kernel
nehe.5
ui.gadgets
;
M:
nehe5-gadget
ungraft*
t
>>quit?
drop
;