Commit | Line | Data |
---|---|---|
216f9972 AW |
1 | #!/usr/bin/env guile |
2 | !# | |
3 | ||
ea80f801 | 4 | (use-modules (figl glut low-level) |
216f9972 | 5 | (figl glut) |
ea80f801 | 6 | (figl gl) |
216f9972 AW |
7 | (system foreign)) |
8 | ||
216f9972 | 9 | (define (render-scene) |
ea80f801 DH |
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)) | |
7100c070 | 15 | (swap-buffers)) |
216f9972 | 16 | |
7100c070 DH |
17 | (set-initial-window-size 320 200) |
18 | (set-initial-display-mode (display-mode rgb double depth)) | |
216f9972 AW |
19 | |
20 | (glut-init (program-arguments)) | |
21 | ||
7100c070 | 22 | (define main-window (make-window "glut")) |
216f9972 AW |
23 | |
24 | (glutDisplayFunc (procedure->pointer void render-scene (list))) | |
7100c070 | 25 | (glut-main-loop) |