diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-07-28 19:44:25 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-07-28 19:44:25 -0400 |
| commit | 45d746083c3fe3de6f6b3d8ec099d43fec85e1d8 (patch) | |
| tree | 4e1fdde0494ed10b9ba9c3530260239c602a151f | |
| parent | 60f10e08308a6a8df543268db59f580ddc27c743 (diff) | |
Fix figl enum.
| -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) |