From e27e57dda2c50a4c11f9075dfaac2df9ba4263c7 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 15 Feb 2014 20:28:18 -0500 Subject: Remove sprite batch from particles example. This slows down the demo considerably, but sprite batches need to be rewritten in order to be actually performant and of real value. * examples/particle.scm (batch): Delete it. --- examples/particles.scm | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'examples/particles.scm') diff --git a/examples/particles.scm b/examples/particles.scm index 0b5d6dd..9e53062 100644 --- a/examples/particles.scm +++ b/examples/particles.scm @@ -41,19 +41,17 @@ (* (random:normal) 1))))))) (define particle-count 500) -(define batch (make-sprite-batch (* particle-count 4))) (define background (load-sprite "images/stars.png" #:anchor null-vector2)) (define particles (generate-particles particle-count)) (define (draw-particles particles) - (with-sprite-batch batch - (for-each - (lambda (p) - (let* ((sprite (particle-sprite p))) - (set-sprite-position! sprite (particle-position p)) - (draw-sprite sprite))) - particles))) + (for-each + (lambda (p) + (let* ((sprite (particle-sprite p))) + (set-sprite-position! sprite (particle-position p)) + (draw-sprite sprite))) + particles)) (define (draw dt alpha) (draw-sprite background) -- cgit v1.2.3