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 ;