diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-03-22 08:27:31 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-03-22 08:27:31 -0400 |
| commit | 97040d5339002b0e1e5235ed4cc887755c7d91bd (patch) | |
| tree | 31c70591fc242ff3929a7a5f3d1352f7952aa73e | |
| parent | 2474f4293a27d2c9597c012d5e884035b9ae459e (diff) | |
Use default-width/height for <particles>.
| -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))) |