From 97040d5339002b0e1e5235ed4cc887755c7d91bd Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 22 Mar 2023 08:27:31 -0400
Subject: Use default-width/height for <particles>.

---
 catbird/node-2d.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'catbird')

diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index 3c2bbcd..218de10 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -1105,11 +1105,11 @@ PADDING on all sides."
 (define-class <particles> (<node-2d>)
   (particles #:accessor particles #:init-keyword #:particles))
 
-(define-method (on-boot (particles <particles>))
-  ;; Default bounding box size.
-  (resize particles
-          (if (zero? (width particles)) 32.0 (width particles))
-          (if (zero? (height particles)) 32.0 (height particles))))
+(define-method (default-width (particles <particles>))
+  32.0)
+
+(define-method (default-height (particles <particles>))
+  32.0)
 
 (define-method (update (node <particles>) dt)
   (update-particles (particles node)))
-- 
cgit v1.2.3