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.

1 files changed, 6 insertions, 8 deletions

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)