summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
Diffstat (limited to '2d')
-rw-r--r--2d/sprite.scm4
-rw-r--r--2d/texture.scm2
2 files changed, 3 insertions, 3 deletions
diff --git a/2d/sprite.scm b/2d/sprite.scm
index 21e27de..73fc595 100644
--- a/2d/sprite.scm
+++ b/2d/sprite.scm
@@ -255,7 +255,7 @@ bound."
vertices
#:stride struct-size
#:offset s-offset)
- (gl-draw-arrays (primitive-type quads)
+ (gl-draw-arrays (begin-mode quads)
0
(packed-array-length vertices sprite-vertex)))
(gl-disable-client-state (enable-cap texture-coord-array))
@@ -397,7 +397,7 @@ batched texture vertices first."
vertices
#:stride struct-size
#:offset (packed-struct-offset sprite-vertex s))
- (gl-draw-arrays (primitive-type quads) 0 vertex-count)))
+ (gl-draw-arrays (begin-mode quads) 0 vertex-count)))
(gl-disable-client-state (enable-cap texture-coord-array))
(gl-disable-client-state (enable-cap color-array))
(gl-disable-client-state (enable-cap vertex-array))
diff --git a/2d/texture.scm b/2d/texture.scm
index b4b28a6..4259bda 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -104,7 +104,7 @@ Currently only works with RGBA format surfaces."
(let ((x2 (+ x w))
(y2 (+ y h)))
(with-gl-bind-texture (texture-target texture-2d) (texture-id texture)
- (gl-begin (primitive-type quads)
+ (gl-begin (begin-mode quads)
(apply gl-color color)
(gl-texture-coordinates u v)
(gl-vertex x y)