summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-03-22 08:27:31 -0400
committerDavid Thompson <dthompson2@worcester.edu>2023-03-22 08:27:31 -0400
commit97040d5339002b0e1e5235ed4cc887755c7d91bd (patch)
tree31c70591fc242ff3929a7a5f3d1352f7952aa73e
parent2474f4293a27d2c9597c012d5e884035b9ae459e (diff)
Use default-width/height for <particles>.
-rw-r--r--catbird/node-2d.scm10
1 files changed, 5 insertions, 5 deletions
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)))