diff options
| -rw-r--r-- | examples/particles.scm | 14 |
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) |