paint ( -- )

Vocabulary

rosetta-code.opengl

Inputs

None

Outputs

None

Definition

USING: math opengl.gl ;

IN: rosetta-code.opengl

: paint ( -- )
    0.3 0.3 0.3 0.0 glClearColor
    GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
    GL_SMOOTH glShadeModel
    glLoadIdentity -15.0 -15.0 0.0 glTranslatef
    GL_TRIANGLES glBegin 1.0 0.0 0.0 glColor3f
    0.0 0.0 glVertex2f 0.0 1.0 0.0 glColor3f 30.0 0.0 glVertex2f
    0.0 0.0 1.0 glColor3f 0.0 30.0 glVertex2f glEnd glFlush ;