add high-level glut bindings for init., windows

[clinton/guile-figl.git] / examples / glut / demo.scm

diff --git a/examples/glut/demo.scm b/examples/glut/demo.scm
index 6038f90..064d8d6 100644 (file)
--- a/examples/glut/demo.scm
+++ b/examples/glut/demo.scm
@@ -12,14 +12,14 @@
     (gl-vertex -0.5 -0.5 0.0)
     (gl-vertex 0.5 0.0 0.0)
     (gl-vertex 0.0 0.5 0.0))
-  (glutSwapBuffers))
+  (swap-buffers))
 
-(glutInitWindowSize 320 200)
-(glutInitDisplayMode (display-mode rgb double depth))
+(set-initial-window-size 320 200)
+(set-initial-display-mode (display-mode rgb double depth))
 
 (glut-init (program-arguments))
 
-(define main-window (glutCreateWindow "glut"))
+(define main-window (make-window "glut"))
 
 (glutDisplayFunc (procedure->pointer void render-scene (list)))
-(glutMainLoop)
+(glut-main-loop)