diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-28 06:34:12 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-28 06:34:12 -0500 |
| commit | 3527744ffd63f2d83659964d32a5a838bf83baef (patch) | |
| tree | eafedbe1dcd91feb0902b2dd92e796e9e7adc9b1 /examples/03-font-render.lisp | |
| parent | f311a9c510e4c54fb6cfaac2c3dc9681b6804b3a (diff) | |
[modify] +standard-font-chars+ includes newline
Diffstat (limited to 'examples/03-font-render.lisp')
| -rw-r--r-- | examples/03-font-render.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index 60ffcf2..551d4ba 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -48,13 +48,13 @@ (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))))) (ww::set-height-preserve-aspect hello 100) (setf (ww::unit-x hello) 100 - (ww::unit-y hello) 400) + (ww::unit-y hello) 300) (ww::add-handler hello #'marquee) (ww::add-handler hello #'change-text-color) (ww::add-handler hello #'twirl-on-click) @@ -67,6 +67,8 @@ 'font-display :fps 60 :refocus-on-mousedown-p nil + :width 800 + :height 600 :title "Wheelwork Example: Font display" :asset-root (merge-pathnames "examples/" |