5 (gl-clear GL_COLOR_BUFFER_BIT)
6 (gl-color '#f32(1.0 1.0 1.0))
8 (gl-vertex 0.25 0.25 0.0)
9 (gl-vertex 0.75 0.25 0.0)
10 (gl-vertex 0.75 0.75 0.0)
11 (gl-vertex 0.25 0.75 0.0)
17 (gl-clear-color 0.0 0.0 0.0 0.0)
18 (gl-matrix-mode GL_PROJECTION)
20 (gl-ortho 0.0 10.0 0.0 10.0 -1.0 1.0)
23 (define (keyboard key x y)
30 (glut-init-display-mode (logior GLUT_SINGLE GLUT_RGB))
31 (glut-init-window-size 800 600)
32 (glut-init-window-position 0 0)
33 (glut-create-window "hello")
35 (glut-display-func disp)
36 (glut-keyboard-func keyboard)