diff options
| -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))))) + + |