diff --git a/dotscape b/dotscape
index a477a06..4058945 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/fonts/box.sml b/fonts/box.sml
new file mode 100644
index 0000000..413393a
--- /dev/null
+++ b/fonts/box.sml
@@ -0,0 +1,8 @@
+x ~0.636363625526 y 0.818181812763 x 0.636363506317 y 0.818181812763 x 0.636363506317 y 0.636363625526
+x 0.636363506317 y 0.636363625526 x ~0.636363625526 y 0.636363625526 x ~0.636363625526 y 0.818181812763
+x 0.818181753159 y 0.818181812763 x 0.818181753159 y ~0.636363506317 x 0.636363506317 y ~0.636363506317
+x 0.636363506317 y ~0.636363506317 x 0.636363506317 y 0.818181812763 x 0.818181753159 y 0.818181812763
+x ~0.636363625526 y 0.818181812763 x ~0.636363625526 y ~0.636363506317 x ~0.818181812763 y ~0.636363506317
+x ~0.818181812763 y ~0.636363506317 x ~0.818181812763 y 0.818181812763 x ~0.636363625526 y 0.818181812763
+x 0.818181753159 y ~0.636363506317 x ~0.818181812763 y ~0.636363506317 x ~0.818181812763 y ~0.818181753159
+x ~0.818181812763 y ~0.818181753159 x 0.818181753159 y ~0.818181753159 x 0.818181753159 y ~0.636363506317
diff --git a/imperative-shell/file-thread.sml b/imperative-shell/file-thread.sml
index 9890990..c2411ec 100644
--- a/imperative-shell/file-thread.sml
+++ b/imperative-shell/file-thread.sml
@@ -11,7 +11,7 @@ struct
   datatype parse_result = OK of AppType.triangle list | PARSE_ERROR
 
   val structureName = "UpperCaseG"
-  val filename = "fonts/upper-case-u.dsc"
+  val filename = "fonts/box.dsc"
   val exportFilename = "fonts/upper-case-h.sml"
 
   fun ndcToLerpX num =