[example] tweaking

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