aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-07-09 18:35:02 -0500
committerColin Okay <colin@cicadas.surf>2022-07-09 18:35:02 -0500
commit3b0abf9ffb3cbe08d1646fea4695edbf1e62d229 (patch)
tree7d6ea83c04e79df8405df327c2cef6595b266d62 /examples
parent81963adda8dd9120d9e602264a7906ae0c374ebb (diff)
[example] tweaking
Diffstat (limited to 'examples')
-rw-r--r--examples/09-ghoulspree.lisp11
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)))))
+
+