diff options
author | Colin Okay <colin@cicadas.surf> | 2022-07-09 18:35:02 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-07-09 18:35:02 -0500 |
commit | 3b0abf9ffb3cbe08d1646fea4695edbf1e62d229 (patch) | |
tree | 7d6ea83c04e79df8405df327c2cef6595b266d62 /examples/09-ghoulspree.lisp | |
parent | 81963adda8dd9120d9e602264a7906ae0c374ebb (diff) |
[example] tweaking
Diffstat (limited to 'examples/09-ghoulspree.lisp')
-rw-r--r-- | examples/09-ghoulspree.lisp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/examples/09-ghoulspree.lisp b/examples/09-ghoulspree.lisp index 35986fa..463eb89 100644 --- a/examples/09-ghoulspree.lisp +++ b/examples/09-ghoulspree.lisp @@ -10,7 +10,7 @@ ;;; CLASSES (defclass/std ghoulspree (ww::application) - ((ghouls-per-click :std 10) + ((ghouls-per-click :std 20) (collision-on-p :std t) (gravity-on-p :std nil))) @@ -139,16 +139,19 @@ on which boundary VAL is outside of." (ww:add-handler app #'moveghouls) (ww:add-handler app #'toggle-collision)) -(defun start () +(defun start (&optional (scale 1.0)) (ww::start (make-instance 'ghoulspree :fps 60 - :width 800 - :height 600 + :width (round (* 800 scale)) + :height (round (* 600 scale)) + :scale scale :refocus-on-mousedown-p nil :title "Click to add ghouls" :asset-root (merge-pathnames "examples/" (asdf:system-source-directory :wheelwork))))) + + |