4 (use-modules (figl glut low-level)
10 (gl-clear (clear-buffer-mask color-buffer depth-buffer))
11 (gl-begin (begin-mode triangles)
12 (gl-vertex -0.5 -0.5 0.0)
13 (gl-vertex 0.5 0.0 0.0)
14 (gl-vertex 0.0 0.5 0.0))
17 (set-initial-window-size 320 200)
18 (set-initial-display-mode (display-mode rgb double depth))
20 (glut-init (program-arguments))
22 (define main-window (make-window "glut"))
24 (glutDisplayFunc (procedure->pointer void render-scene (list)))