From 3527744ffd63f2d83659964d32a5a838bf83baef Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 28 Jun 2022 06:34:12 -0500
Subject: [modify] +standard-font-chars+ includes newline

---
 examples/03-font-render.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'examples/03-font-render.lisp')

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/"
-- 
cgit v1.2.3