diff options
author | Colin Okay <colin@cicadas.surf> | 2022-06-27 15:50:36 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-06-27 15:50:36 -0500 |
commit | a5d1f97f4d9b91d0bb345c397ffc7a551234e6e8 (patch) | |
tree | 2dd8d35be8fd68ae9de164ecc085b503c2ac3225 /examples | |
parent | 34575cba91a05bd0508d6581ab0daea0177a0967 (diff) |
[formatting]
Diffstat (limited to 'examples')
-rw-r--r-- | examples/03-font-render.lisp | 31 |
1 files changed, 13 insertions, 18 deletions
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)) |