diff options
Diffstat (limited to 'examples/03-font-render.lisp')
| -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)) |