diff options
| -rw-r--r-- | 2d/sprite.scm | 4 | ||||
| -rw-r--r-- | 2d/texture.scm | 2 |
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) |