From 0dbceb76d14382a0eab62f4c6c3bb5eb7e4d06eb Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 29 Sep 2023 07:02:06 -0400
Subject: display: Fix text extent computation / centering

---
 virtual-programs/display.folk | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index 268e462d..e42ea621 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -218,6 +218,7 @@ On process {
             variable font
             set em [* $scale 25.0]
             set x 0; set y 0
+            set width 0
             for {set i 0} {$i < [string length $text]} {incr i} {
                 set char [string index $text $i]
                 if {$char eq "\n"} {
@@ -231,8 +232,9 @@ On process {
                 }
                 lassign $glyphInfo advance planeBounds atlasBounds
                 set x [+ $x [* $advance $em]]
+                if {$x > $width} { set width $x }
             }
-            return [list $x $y]
+            return [list $width [+ $y $em]]
         }
         proc text {x0 y0 scale text radians} {
             variable font
-- 
cgit v1.2.3