diff --git a/dotscape b/dotscape
index 2b3aaac..a477a06 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/fonts/upper-case-r.dsc b/fonts/upper-case-r.dsc
new file mode 100644
index 0000000..4c77280
--- /dev/null
+++ b/fonts/upper-case-r.dsc
@@ -0,0 +1,12 @@
+x 0.454545408487 y 0.0909091234207 x 0.454545408487 y 0.454545468092 x 0.272727310658 y 0.454545468092
+x 0.272727310658 y 0.454545468092 x 0.272727310658 y 0.0909091234207 x 0.454545408487 y 0.0909091234207
+x 0.272727310658 y 0.636363625526 x ~0.272727310658 y 0.636363625526 x ~0.272727310658 y 0.454545468092
+x ~0.272727310658 y 0.454545468092 x 0.272727310658 y 0.454545468092 x 0.272727310658 y 0.636363625526
+x 0.0909090563655 y 0.0909091234207 x ~0.272727310658 y 0.0909091234207 x ~0.272727310658 y ~0.0909090563655
+x ~0.272727310658 y ~0.0909090563655 x 0.0909090563655 y ~0.0909090563655 x 0.0909090563655 y 0.0909091234207
+x 0.0909090563655 y 0.0909091234207 x 0.0909090563655 y ~0.272727310658 x 0.272727310658 y ~0.272727310658
+x 0.272727310658 y ~0.272727310658 x 0.272727310658 y 0.0909091234207 x 0.0909090563655 y 0.0909091234207
+x 0.454545408487 y ~0.272727310658 x 0.272727310658 y ~0.818181753159 x 0.454545408487 y ~0.818181753159
+x 0.272727310658 y ~0.818181753159 x 0.272727310658 y ~0.272727310658 x 0.454545408487 y ~0.272727310658
+x ~0.272727310658 y 0.636363625526 x ~0.454545468092 y 0.636363625526 x ~0.454545468092 y ~0.818181753159
+x ~0.454545468092 y ~0.818181753159 x ~0.272727310658 y ~0.818181753159 x ~0.272727310658 y 0.636363625526
diff --git a/fonts/upper-case-t.dsc b/fonts/upper-case-t.dsc
index 1c9fe10..8d5f2ff 100644
--- a/fonts/upper-case-t.dsc
+++ b/fonts/upper-case-t.dsc
@@ -1 +1,4 @@
-x 0.0909090563655 y ~0.272727310658 x 0.272727310658 y ~0.0909090563655 x 0.272727310658 y ~0.272727310658
+x 0.0909090563655 y ~0.818181753159 x 0.0909090563655 y 0.454545468092 x ~0.0909091234207 y 0.454545468092
+x ~0.0909091234207 y 0.454545468092 x ~0.0909091234207 y ~0.818181753159 x 0.0909090563655 y ~0.818181753159
+x 0.454545408487 y 0.454545468092 x 0.454545408487 y 0.636363625526 x ~0.454545468092 y 0.636363625526
+x ~0.454545468092 y 0.636363625526 x ~0.454545468092 y 0.454545468092 x 0.454545408487 y 0.454545468092
diff --git a/fonts/upper-case-u.dsc b/fonts/upper-case-u.dsc
new file mode 100644
index 0000000..f0e8270
--- /dev/null
+++ b/fonts/upper-case-u.dsc
@@ -0,0 +1,6 @@
+x 0.272727310658 y ~0.636363506317 x 0.454545408487 y ~0.636363506317 x 0.454545408487 y 0.636363625526
+x 0.272727310658 y ~0.636363506317 x 0.272727310658 y 0.636363625526 x 0.454545408487 y 0.636363625526
+x ~0.272727310658 y ~0.818181753159 x 0.272727310658 y ~0.818181753159 x 0.272727310658 y ~0.636363506317
+x ~0.272727310658 y ~0.818181753159 x ~0.272727310658 y ~0.636363506317 x 0.272727310658 y ~0.636363506317
+x ~0.454545468092 y ~0.636363506317 x ~0.272727310658 y ~0.636363506317 x ~0.454545468092 y 0.636363625526
+x ~0.454545468092 y 0.636363625526 x ~0.272727310658 y 0.636363625526 x ~0.272727310658 y ~0.636363506317
diff --git a/imperative-shell/file-thread.sml b/imperative-shell/file-thread.sml
index ab7581a..9890990 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-z.dsc"
+  val filename = "fonts/upper-case-u.dsc"
   val exportFilename = "fonts/upper-case-h.sml"
 
   fun ndcToLerpX num =