examples/glut/demo.scm

   1 #!/usr/bin/env guile
   2 !#
   3
   4 (use-modules (figl glut low-level)
   5              (figl glut)
   6              (figl gl)
   7              (system foreign))
   8
   9 (define (render-scene)
  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))
  15   (glutSwapBuffers))
  16
  17 (glutInitWindowSize 320 200)
  18 (glutInitDisplayMode (display-mode rgb double depth))
  19
  20 (glut-init (program-arguments))
  21
  22 (define main-window (glutCreateWindow "glut"))
  23
  24 (glutDisplayFunc (procedure->pointer void render-scene (list)))
  25 (glutMainLoop)