From 0cc039580b5e2bc52d4dddfecee4e1589167b34b Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sat, 21 Sep 2024 15:32:51 +0100
Subject: [PATCH] add missing upper case glyphs ('R' and 'U'), and fix broken
 glyph (just 'T')

---
 dotscape                         | Bin 1049312 -> 1049312 bytes
 fonts/upper-case-r.dsc           |  12 ++++++++++++
 fonts/upper-case-t.dsc           |   5 ++++-
 fonts/upper-case-u.dsc           |   6 ++++++
 imperative-shell/file-thread.sml |   2 +-
 5 files changed, 23 insertions(+), 2 deletions(-)
 create mode 100644 fonts/upper-case-r.dsc
 create mode 100644 fonts/upper-case-u.dsc

diff --git a/dotscape b/dotscape
index 2b3aaac9780d715c0c4e85e61f71f1be1218ed06..a477a06f39ffaf99e8a05381e6e8a6d4a2e2c524 100755
GIT binary patch
delta 103
zcmaFR>hPe|VZ#+B5zf7;`@+i}&KH>9;-nT9p<QY7B(nJhQ~L`hMj!^!%s|Wn#H>Kf
p2E^<@%mKul+g~to8456#wo3_f0Wmia^8hg~5c6%966Qbl9spWUB%S~O

delta 103
zcmaFR>hPe|VZ#+B5$3k3XN-gAz9?Lo&3k%jW$G)77gEhHnA%@3F#<7&W(HywAZ7((
pHXvpPVh$kY-2Q@z%TR!^s$EK$3y8Uam<Nb?ftYW*lraCX_W<2$CO`lH

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 =