From 2f93a46fe73ab8127d2cff85fb1bba60a25ded19 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 29 Aug 2013 20:46:06 -0400 Subject: Fix issue #9. draw-sprite-vertices was drawing the entire vertex array rather than only drawing the amount specified in the size argument. --- 2d/sprite.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to '2d/sprite.scm') diff --git a/2d/sprite.scm b/2d/sprite.scm index ac57adb..7c036f3 100644 --- a/2d/sprite.scm +++ b/2d/sprite.scm @@ -129,9 +129,7 @@ vertices #:stride sprite-vertex-size #:offset s-offset) - (gl-draw-arrays (begin-mode quads) - 0 - (packed-array-length vertices sprite-vertex))) + (gl-draw-arrays (begin-mode quads) 0 (* size 4))) (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)))) -- cgit v1.2.3