X-Git-Url: http://git.hcoop.net/clinton/guile-figl.git/blobdiff_plain/c7b3127165b9995561d5c7d7d6ca1184f089c797..54ead4dd26dd07c0d90d6643edb822fa322b4a46:/examples/particle-system/client-arrays.scm

diff --git a/examples/particle-system/client-arrays.scm b/examples/particle-system/client-arrays.scm
index 6f688ab..c23e129 100644
--- a/examples/particle-system/client-arrays.scm
+++ b/examples/particle-system/client-arrays.scm
@@ -56,7 +56,7 @@
                       *vertices*
                       #:stride (packed-struct-size color-vertex)
                       #:offset (packed-struct-offset color-vertex r))
-  (gl-draw-arrays (begin-mode quads) 0
+  (gl-draw-arrays (primitive-type quads) 0
                   (packed-array-length *vertices* color-vertex))
   (gl-disable-client-state (enable-cap color-array))
   (gl-disable-client-state (enable-cap vertex-array)))
@@ -165,7 +165,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)