From 2b8092f418da01e249e129e777a0ff4898de04cb Mon Sep 17 00:00:00 2001
From: Alec Murphy <alec@checksum.fail>
Date: Wed, 9 Apr 2025 08:59:06 -0400
Subject: [PATCH] System/Libraries/Graphics2D: Add @get_truetype_text_width()

---
 System/Libraries/Graphics2D.HC | 51 ++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/System/Libraries/Graphics2D.HC b/System/Libraries/Graphics2D.HC
index 3b93b44..e56d1bd 100644
--- a/System/Libraries/Graphics2D.HC
+++ b/System/Libraries/Graphics2D.HC
@@ -1126,6 +1126,57 @@ I64 Print2D(Context2D* ctx, BitmapFont* font, I64 x, I64 y,
     return retval;
 }
 
+I64 X1Pos(CDC* src)
+{
+    I64 x = 0;
+    I64 y = 0;
+    I64 color;
+    while (x < src->width) {
+        y = 0;
+        while (y < src->height) {
+            color = GrPeek(src, x, y);
+            if (color)
+                return x;
+            y++;
+        }
+        x++;
+    }
+    return -1;
+}
+
+I64 X2Pos(CDC* src)
+{
+    I64 x = src->width - 1;
+    I64 y = src->height - 1;
+    I64 color;
+    while (x > -1) {
+        y = src->height - 1;
+        while (y > -1) {
+            color = GrPeek(src, x, y);
+            if (color)
+                return x;
+            y--;
+        }
+        x--;
+    }
+    return -1;
+}
+
+I64 @get_truetype_text_width(U8* font_name, I64 size, U8* text)
+{
+    stbtt_fontinfo* font = Fonts->@(font_name);
+    if (!font) {
+        return 0;
+    }
+    I64 res = 0;
+    CDC* dc = DCNew(Display.Width(), (size * 2));
+    Free(dc->body);
+    dc->body = @stbtt_RenderText(font, dc->width_internal, dc->height, ToI64(size * 1.5), text);
+    res = X2Pos(dc) - X1Pos(dc);
+    DCDel(dc);
+    return res;
+}
+
 U0 Text2D(Context2D* ctx, U8* font_name, I64 x, I64 y, I64 size, U32 color, U8* text)
 {
     stbtt_fontinfo* font = Fonts->@(font_name);