intro: Rearrange text.

1 files changed, 6 insertions, 4 deletions

diff --git a/scenes/intro.scm b/scenes/intro.scm
index 30ea844..8758a50 100644
--- a/scenes/intro.scm
+++ b/scenes/intro.scm
@@ -61,9 +61,9 @@ History yields to the present.
 The present crumbles underfoot.
 You better move."
     "\
-A leaf has turned. The sunshine
-warms and blinds. The leaf begins
-to dry."))
+A leaf has turned.
+The sunshine warms and blinds.
+The leaf begins to dry."))
 
 (set! *random-state* (random-state-from-platform))
 
@@ -87,7 +87,9 @@ to dry."))
               #:name 'welcome
               #:font game-font
               #:text part
-              #:position (vec2 16.0 (- 150.0 (* 12 i)))))
+              #:position (vec2 (- (/ %width 2)
+                                  (/ (font-line-width (asset-ref game-font) part) 2))
+                               (- 120.0 (* 15 i)))))
           parts (iota (length parts))))))
 
 (define-method (on-key-press (intro <intro>) key mods repeat?)