diff options
| -rw-r--r-- | catbird/node-2d.scm | 10 |
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))) |