From 3b0abf9ffb3cbe08d1646fea4695edbf1e62d229 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 9 Jul 2022 18:35:02 -0500 Subject: [example] tweaking --- examples/09-ghoulspree.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'examples/09-ghoulspree.lisp') 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))))) + + -- cgit v1.2.3