From 2dfdffd6753043cb8097f4c698e5c411ddc9855b Mon Sep 17 00:00:00 2001
From: Arcade Wise <l3gacy.b3ta@disroot.org>
Date: Thu, 5 Oct 2023 21:11:31 -0400
Subject: Add changing fonts as an option to text rendering

---
 virtual-programs/display.folk | 33 ++++++++++++++++++++++++++++-----
 1 file changed, 28 insertions(+), 5 deletions(-)

(limited to 'virtual-programs/display.folk')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index f7b70959..daa819e9 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -112,7 +112,6 @@ On process {
             namespace export *
             namespace ensemble create
         }
-        variable font [font load "PTSans-Regular"]
         variable glyphMsd [Gpu::fn {sampler2D atlas vec4 atlasGlyphBounds vec2 glyphUv} vec4 {
             vec2 atlasUv = mix(atlasGlyphBounds.xw, atlasGlyphBounds.zy, glyphUv);
             return texture(atlas, vec2(atlasUv.x, 1.0-atlasUv.y));
@@ -214,8 +213,26 @@ On process {
             Gpu::draw $circle [list $x $y] $radius $thickness [getColor $color] [ne $filled "false"]
         }
 
-        proc textExtent {text scale} {
-            variable font
+        set ::FontCache [dict create]
+
+        # load all fonts into the fontCache
+        foreach fontPath [list {*}[glob {*}vendor/fonts/*.png]] {
+            set fontName ""
+            regexp {vendor/fonts/(.*).png} $fontPath whole_match fontName
+            if {!($fontName eq "")} {
+                puts "Loaded $fontName into font cache"
+                set fontdata [font load $fontName]
+                dict set ::FontCache $fontName $fontdata
+            }
+        }
+
+        proc textExtent {text scale {font "PTSans-Regular"}} {
+            if {!([dict exists $::FontCache $font])} {
+                throw {DISPLAY FONT {font doesn't exist}} "$font doesn't exist"
+                return
+            }
+            set font [dict get $::FontCache $font]
+
             set em [* $scale 25.0]
             set x 0; set y 0
             set width 0
@@ -236,8 +253,14 @@ On process {
             }
             return [list $width [+ $y $em]]
         }
-        proc text {x0 y0 scale text radians} {
-            variable font
+        proc text {x0 y0 scale text radians {font ""}} {
+            if {!([dict exists $::FontCache $font])} {
+                throw {DISPLAY FONT {font doesn't exist}} "$font doesn't exist"
+                return
+            }
+            set font [dict get $::FontCache $font]
+        
+
             variable glyph
             set fontAtlas [font gpuAtlasImage $font]
             set fontAtlasSize [list [::image width [font atlasImage $font]] \
-- 
cgit v1.2.3