set-modelview-matrix ( gadget -- )

Vocabulary

terrain

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel math.vectors opengl.gl sequences ;

IN: terrain

: set-modelview-matrix ( gadget -- )
    GL_DEPTH_BUFFER_BIT glClear GL_MODELVIEW glMatrixMode
    glLoadIdentity player>>
    [ pitch>> 1.0 0.0 0.0 glRotatef ]
    [ yaw>> 0.0 1.0 0.0 glRotatef ]
    [ location>> vneg first3 glTranslatef ] tri ;