diff options
author | colin <colin@cicadas.surf> | 2024-12-10 07:11:02 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-12-10 07:11:02 -0800 |
commit | 03cdbb6a15e130a012377ab8d54074b6864e3480 (patch) | |
tree | ad8c5cfbd7262a5bf9555729e9b57b26457de027 /examples/03-font-render.lisp | |
parent | 2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff) |
cleanup, examples use def
Diffstat (limited to 'examples/03-font-render.lisp')
-rw-r--r-- | examples/03-font-render.lisp | 35 |
1 files changed, 16 insertions, 19 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index de3c487..66d097d 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -49,16 +49,13 @@ (defmethod ww::boot ((app font-display)) (let ((hello - (make-instance - 'ww::text - ;:content "Hell! Oh World ..." - :content (format nil "Hell!~%Oh World...") - :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2)))) + (make-instance 'ww::text + :content (format nil "Hell!~%Oh World...") + :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2)))) (instructions - (make-instance - 'ww::text - :content "Click to spin. Press any key to change color." - :font (ww::get-asset "Ticketing.ttf")))) + (make-instance 'ww::text + :content "Click to spin. Press any key to change color." + :font (ww::get-asset "Ticketing.ttf")))) (ww::scale-by hello 3.0) (setf @@ -77,16 +74,16 @@ (defun start () - (ww::start (make-instance - 'font-display - :fps 60 - :refocus-on-mousedown-p nil - :width 800 - :height 600 - :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 + :width 800 + :height 600 + :title "Wheelwork Example: Font display" + :asset-root (merge-pathnames + "examples/" + (asdf:system-source-directory :wheelwork))))) |