From 126f3c929cc2b0ee71b83bc152908ac175b09878 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sun, 22 Sep 2024 20:54:29 +0100
Subject: [PATCH] add upper case K

---
 dotscape                         | Bin 1049312 -> 1049312 bytes
 fonts/upper-case-k.dsc           |  14 ++++++++++++++
 imperative-shell/file-thread.sml |   2 +-
 3 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 fonts/upper-case-k.dsc

diff --git a/dotscape b/dotscape
index c185d477ac2758369255fed6a6d0c649486711ef..aad2e06d784a17c4ad4b86b4282daa2b92491060 100755
GIT binary patch
delta 103
zcmaFR>hPe|VZ#+B5pkAh|IcyVerwdzB`UK0Rn1<JU-O$^Ftxv6VgzCk%?!jWK+Fon
pY(UHo#2i4(x%~wbm!SY-R=boi7Z7s;F%J;)0x{oqDPjI&?*R?qCeHu>

delta 103
zcmaFR>hPe|VZ#+Bk)KEJ$7*mqI^FiCMB?)NzL&c_?0cJEFtxv6VgzCk%?!jWK+Fon
pY(UHo#2i4(x%~wbm!SY-cDs}?7Z7s;F%J;)0x{oqDPjI&?*VP0C)EG|

diff --git a/fonts/upper-case-k.dsc b/fonts/upper-case-k.dsc
new file mode 100644
index 0000000..095b869
--- /dev/null
+++ b/fonts/upper-case-k.dsc
@@ -0,0 +1,14 @@
+x 0.0666666701436 y ~0.0666667371988 x 0.0666666701436 y ~0.333333283663 x 0.199999943376 y ~0.333333283663
+x 0.199999943376 y ~0.333333283663 x 0.199999943376 y ~0.0666667371988 x 0.0666666701436 y ~0.0666667371988
+x 0.333333283663 y ~0.333333283663 x 0.333333283663 y ~0.599999964237 x 0.199999943376 y ~0.599999964237
+x 0.199999943376 y ~0.599999964237 x 0.199999943376 y ~0.333333283663 x 0.333333283663 y ~0.333333283663
+x 0.333333283663 y 0.466666638851 x 0.333333283663 y 0.333333343267 x 0.199999943376 y 0.333333343267
+x 0.199999943376 y 0.333333343267 x 0.199999943376 y 0.466666638851 x 0.333333283663 y 0.466666638851
+x 0.199999943376 y 0.333333343267 x 0.199999943376 y 0.200000017881 x 0.0666666701436 y 0.200000017881
+x 0.0666666701436 y 0.200000017881 x 0.0666666701436 y 0.333333343267 x 0.199999943376 y 0.333333343267
+x 0.0666666701436 y 0.200000017881 x 0.0666666701436 y 0.0666666701436 x ~0.0666666701436 y 0.0666666701436
+x ~0.0666666701436 y 0.0666666701436 x ~0.0666666701436 y 0.200000017881 x 0.0666666701436 y 0.200000017881
+x 0.0666666701436 y ~0.0666667371988 x ~0.200000017881 y ~0.0666667371988 x ~0.200000017881 y 0.0666666701436
+x ~0.200000017881 y 0.0666666701436 x 0.0666666701436 y 0.0666666701436 x 0.0666666701436 y ~0.0666667371988
+x ~0.200000017881 y ~0.599999964237 x ~0.200000017881 y 0.466666638851 x ~0.333333343267 y 0.466666638851
+x ~0.333333343267 y 0.466666638851 x ~0.333333343267 y ~0.599999964237 x ~0.200000017881 y ~0.599999964237
diff --git a/imperative-shell/file-thread.sml b/imperative-shell/file-thread.sml
index 68a9da8..097e9ab 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-k.dsc"
+  val filename = "fonts/upper-case-l.dsc"
   val exportFilename = "fonts/upper-case-h.sml"
 
   fun ndcToLerpX num =