From a5d1f97f4d9b91d0bb345c397ffc7a551234e6e8 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 27 Jun 2022 15:50:36 -0500 Subject: [formatting] --- examples/03-font-render.lisp | 31 +++++++++++++------------------ 1 file changed, 13 insertions(+), 18 deletions(-) (limited to 'examples') diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index fb43b08..b4b9be2 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -35,34 +35,29 @@ :content "Hell! Oh World..." :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2))))) - (ww::set-height-preserve-aspect hello 100) - (setf (ww::unit-x hello) 100 - (ww::unit-y hello) 400) - (ww::add-handler hello #'marquee) (ww::add-handler hello #'change-text-color) - (ww::add-handler hello (ww::on-mousedown () (format t "I Was Clicked at ~a,~a!~%" - x y))) + (ww::add-handler hello + (ww::on-mousedown () + (format t "I Was Clicked at ~a,~a!~%" + x y))) (ww::refocus-on hello) - - (describe hello) - - (ww::add-unit app hello) - )) + (ww::add-unit app hello))) (defun start () - (ww::start (make-instance 'font-display - :fps 60 - :refocus-on-mousedown-p nil - :title "Wheelwork Example: Font display" - :asset-root (merge-pathnames - "examples/" - (asdf:system-source-directory :wheelwork))) + (ww::start (make-instance + 'font-display + :fps 60 + :refocus-on-mousedown-p nil + :title "Wheelwork Example: Font display" + :asset-root (merge-pathnames + "examples/" + (asdf:system-source-directory :wheelwork))) :x 2380)) -- cgit v1.2.3