summaryrefslogtreecommitdiff
path: root/examples/particles.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/particles.scm')
-rw-r--r--examples/particles.scm14
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)