Handbook
Glossary
pre-draw ( width height -- )
Vocabulary
jamshred
.
gl
Inputs
width
an
object
height
an
object
Outputs
None
Definition
USING:
kernel
math
opengl.gl
opengl.glu
;
IN:
jamshred.gl
:
pre-draw
( width height -- )
16640
glClear
GL_PROJECTION
glMatrixMode
glLoadIdentity
dup
0
=
[
2drop
]
[
/
>float
45.0
swap
0.1 100.0
gluPerspective
]
if
GL_MODELVIEW
glMatrixMode
glLoadIdentity
;