diff options
| author | colin <colin@cicadas.surf> | 2024-12-10 07:11:02 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-12-14 08:35:58 -0800 |
| commit | 8a51ba81c7df6b0b6dab7cf4b35b5ca084b653ba (patch) | |
| tree | 23f5f0a5449a06473aba2ec7914a3c2193823a10 /examples/03-font-render.lisp | |
| parent | 2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff) | |
Replaced defclass-std with defrefactor-with-def
Diffstat (limited to 'examples/03-font-render.lisp')
| -rw-r--r-- | examples/03-font-render.lisp | 39 |
1 files changed, 18 insertions, 21 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index de3c487..ba575ca 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -44,21 +44,18 @@ (remhash target *spin-table*)))))) (ww::defhandler twirl-on-click - (ww::on-mousedown () - (ww::add-handler target #'spin))) + (ww::on-mousedown () + (ww::add-handler target #'spin))) (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))))) |