update for begin-mode -> primitive-type

[clinton/guile-figl.git] / examples / particle-system / legacy.scm

diff --git a/examples/particle-system/legacy.scm b/examples/particle-system/legacy.scm
index dedf1ba..cd13312 100644 (file)
--- a/examples/particle-system/legacy.scm
+++ b/examples/particle-system/legacy.scm
@@ -49,7 +49,7 @@
 (define *particles* (make-packed-array position 0))
 
 (define (draw-particles)
-  (gl-begin (begin-mode quads)
+  (gl-begin (primitive-type quads)
     (unpack-each/serial *zquads* zquad
                         (lambda (n r g b x- y- x+ y+ z)
                           (gl-color r g b)
@@ -151,7 +151,7 @@
 
 (define (draw-axis scale)
   ;; Could disable lighting and depth test.
-  (gl-begin (begin-mode lines)
+  (gl-begin (primitive-type lines)
     (gl-color 1 0 0)
     (gl-vertex 0 0 0)
     (gl-vertex scale 0 0)