Handbook
Glossary
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
;