demo-world-set-matrix ( gadget -- )

Vocabulary

opengl.demo-support

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel math opengl.gl ;

IN: opengl.demo-support

: demo-world-set-matrix ( gadget -- )
    16640 glClear GL_MODELVIEW glMatrixMode glLoadIdentity
    [ [ 0.0 0.0 ] dip distance>> neg glTranslatef ]
    [ pitch>> 1.0 0.0 0.0 glRotatef ]
    [ yaw>> 0.0 1.0 0.0 glRotatef ] tri ;