examples/glut/demo.scm

   1 #!/usr/bin/env guile
   2 !#
   3
   4 (use-modules (figl glut enums)
   5              (figl glut low-level)
   6              (figl glut)
   7              (figl gl enums)
   8              (figl gl low-level)
   9              (system foreign))
  10
  11 (define (render-scene)
  12   (glClear (clear-buffer-mask color-buffer depth-buffer))
  13   (glBegin (begin-mode triangles))
  14   (glVertex3f -0.5 -0.5 0.0)
  15   (glVertex3f 0.5 0.0 0.0)
  16   (glVertex3f 0.0 0.5 0.0)
  17   (glEnd)
  18
  19   (glutSwapBuffers))
  20
  21 (glutInitWindowSize 320 200)
  22 (glutInitDisplayMode (display-mode rgb double depth))
  23
  24 (glut-init (program-arguments))
  25
  26 (define main-window (glutCreateWindow "glut"))
  27
  28 (glutDisplayFunc (procedure->pointer void render-scene (list)))
  29 (glutMainLoop)