diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
| commit | 00841605110612f6e7f3bbfc054ceff980bf25be (patch) | |
| tree | 1f16b86d5c555eea22e60cb2d36f88682bd9023b /examples/09-ghoulspree.lisp | |
| parent | 6d9b8b48423dba99ecdba004f260c30e6717b6a6 (diff) | |
[version] [refactor] [redesign] removed containers
Diffstat (limited to 'examples/09-ghoulspree.lisp')
| -rw-r--r-- | examples/09-ghoulspree.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/09-ghoulspree.lisp b/examples/09-ghoulspree.lisp index cf18e31..b3c0106 100644 --- a/examples/09-ghoulspree.lisp +++ b/examples/09-ghoulspree.lisp @@ -80,7 +80,7 @@ on which boundary VAL is outside of." ;; first handle collisions (when (collision-on-p app) (with-pairs - (g1 g2) (ww:container-units app) + (g1 g2) (ww::application-scene app) (when (ww:units-intersect-p g1 g2) (handle-collision g1 g2 1.0) ;; need a "bounce" @@ -93,7 +93,7 @@ on which boundary VAL is outside of." (gravity-on-p app)) (accelleration (/ 9.8 (ww:fps app)))) - (loop for ghoul in (ww:container-units app) + (loop for ghoul in (ww::application-scene app) do (advance-pos ghoul) when gravity do (apply-gravity-to ghoul accelleration) @@ -111,9 +111,9 @@ on which boundary VAL is outside of." (loop repeat (ghouls-per-click app) for rx = (random 800); (+ x (* (random-sign) (random-between 30 60))) for ry = (random 600); (+ y (* (random-sign) (random-between 30 60))) - do (ww:add-unit app (make-ghoul rx ry))) + do (ww:add-unit (make-ghoul rx ry))) (format t "~a ghouls on screen~%" - (length (ww:container-units app ))))) + (length (ww::application-scene app ))))) (ww:defhandler toggle-collision |