From c4f0895e54a8a88861ecb2bcce68a5e4836be688 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Thu, 16 May 2024 21:18:49 -0700
Subject: [PATCH] Make boxes scale in a more stable way.

---
 common/graphics_utils.fs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/common/graphics_utils.fs b/common/graphics_utils.fs
index 0b53281..5ff4f0a 100644
--- a/common/graphics_utils.fs
+++ b/common/graphics_utils.fs
@@ -65,10 +65,10 @@ gstack value gp
 graphics definitions also internals
 
 : box { left top w h }
-  left sx * tx + 16 arshift
-  top sy * ty + 16 arshift
-  w sx * 16 arshift
-  h sy * 16 arshift
+  left sx * tx + 16 arshift { l } l
+  top sy * ty + 16 arshift { t } t
+  left w + sx * tx + 16 arshift l -
+  top h + sy * ty + 16 arshift t -
   raw-box
 ;