X-Git-Url: http://git.hcoop.net/clinton/guile-figl.git/blobdiff_plain/216f99722b6a87657c4268b92edcd6a932d2cb94..8c6d5fbb08385336f6161453f7eea6bc32903e38:/examples/glut/demo.scm

diff --git a/examples/glut/demo.scm b/examples/glut/demo.scm
index c24c669..1e62e8a 100644
--- a/examples/glut/demo.scm
+++ b/examples/glut/demo.scm
@@ -1,31 +1,16 @@
 #!/usr/bin/env guile
 !#
 
-(use-modules (figl glut low-level)
+(use-modules (figl glut enums)
+             (figl glut low-level)
              (figl glut)
+             (figl gl enums)
              (figl gl low-level)
              (system foreign))
 
-(define GLUT_RGB #x0000)
-(define GLUT_RGBA #x0000)
-(define GLUT_INDEX #x0001)
-(define GLUT_SINGLE #x0000)
-(define GLUT_DOUBLE #x0002)
-(define GLUT_ACCUM #x0004)
-(define GLUT_ALPHA #x0008)
-(define GLUT_DEPTH #x0010)
-(define GLUT_STENCIL #x0020)
-(define GLUT_MULTISAMPLE #x0080)
-(define GLUT_STEREO #x0100)
-(define GLUT_LUMINANCE #x0200)
-
-(define GL_COLOR_BUFFER_BIT #x4000)
-(define GL_DEPTH_BUFFER_BIT #x0100)
-(define GL_TRIANGLES #x0004)
-
 (define (render-scene)
-  (glClear (logior GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
-  (glBegin GL_TRIANGLES)
+  (glClear (clear-buffer-mask color-buffer depth-buffer))
+  (glBegin (begin-mode triangles))
   (glVertex3f -0.5 -0.5 0.0)
   (glVertex3f 0.5 0.0 0.0)
   (glVertex3f 0.0 0.5 0.0)
@@ -34,7 +19,7 @@
   (glutSwapBuffers))
 
 (glutInitWindowSize 320 200)
-(glutInitDisplayMode (logior GLUT_RGB GLUT_DOUBLE GLUT_DEPTH))
+(glutInitDisplayMode (display-mode rgb double depth))
 
 (glut-init (program-arguments))