From 20a1c5cfe09b6f20dff7a345507a33975ab20ad1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 30 Dec 2023 19:32:19 -0500
Subject: WIP graphics engine rewrite.

---
 examples/particles.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'examples/particles.scm')

diff --git a/examples/particles.scm b/examples/particles.scm
index cab390b..c046fa8 100644
--- a/examples/particles.scm
+++ b/examples/particles.scm
@@ -17,7 +17,7 @@
 (define sprite-texture #f)
 (define start-time 0.0)
 (define avg-frame-time 0)
-(define stats-text "")
+(define stats-text "particles: 0  fps: 0.0")
 
 (define (center-x w)
   (- (/ window-width 2.0) (/ w 2.0)))
@@ -27,10 +27,10 @@
 
 (define (load)
   (set! *random-state* (random-state-from-platform))
-  (set! particle-texture (load-image "images/explosion.png"))
+  (set! particle-texture (texture-view (load-image "images/explosion.png")))
   (set! sprite-texture (load-image "images/chickadee.png"))
-  (set! particles (make-particles 2000
-                                  #:texture particle-texture
+  (set! particles (make-particles 512
+                                  #:texture-view particle-texture
                                   #:end-color (make-color 1.0 1.0 1.0 0.8)
                                   #:end-color (make-color 1.0 1.0 1.0 0.0)
                                   #:speed-range (vec2 1.0 5.0)
@@ -72,9 +72,13 @@
     (set-rect-y! area y)
     (set-vec2! sprite-position (- x 64.0) (- y 64.0))))
 
+(define (key-press key modifiers repeat?)
+  (when (eq? key 'q) (abort-game)))
+
 (run-game #:load load
           #:draw draw
           #:update update
+          #:key-press key-press
           #:mouse-move mouse-move
           #:window-width window-width
           #:window-height window-height)
-- 
cgit v1.2.3