From ef98f8085b12314cf9dc57c71c20707aa21fa7ad Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Dec 2020 15:41:03 -0500
Subject: graphics: sprite: Use dynamic geometry type.

---
 examples/sprite-batch.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples/sprite-batch.scm')

diff --git a/examples/sprite-batch.scm b/examples/sprite-batch.scm
index 30d8167..4b8d433 100644
--- a/examples/sprite-batch.scm
+++ b/examples/sprite-batch.scm
@@ -38,11 +38,11 @@
 (define (load)
   (set! *random-state* (random-state-from-platform))
   (set! texture (load-image "images/shot.png"))
-  (set! batch (make-sprite-batch texture #:capacity 8000))
+  (set! batch (make-sprite-batch texture #:capacity num-sprites))
   (script
    (forever
     (sleep 60)
-    (set! stats-text (stats-message)))))
+    (set! stats-text (pk 'stats (stats-message))))))
 
 (define stats-text-pos (vec2 4.0 464.0))
 (define (draw alpha)
-- 
cgit v1.2.3