From 45d746083c3fe3de6f6b3d8ec099d43fec85e1d8 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 28 Jul 2013 19:44:25 -0400 Subject: Fix figl enum. --- 2d/sprite.scm | 4 ++-- 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) -- cgit v1.2.3