diff --git a/dotscape b/dotscape index a348c99..01010f6 100755 Binary files a/dotscape and b/dotscape differ diff --git a/fonts/upper-case-f.dsc b/fonts/upper-case-f.dsc new file mode 100644 index 0000000..6e3b256 --- /dev/null +++ b/fonts/upper-case-f.dsc @@ -0,0 +1,6 @@ +x ~0.272727310658 y ~0.0909090563655 x ~0.272727310658 y 0.0909091234207 x 0.272727310658 y 0.0909091234207 +x ~0.272727310658 y ~0.0909090563655 x 0.272727310658 y ~0.0909090563655 x 0.272727310658 y 0.0909091234207 +x ~0.272727310658 y 0.454545468092 x ~0.272727310658 y 0.636363625526 x 0.454545408487 y 0.636363625526 +x ~0.272727310658 y 0.454545468092 x 0.454545408487 y 0.454545468092 x 0.454545408487 y 0.636363625526 +x ~0.454545468092 y ~0.818181753159 x ~0.454545468092 y 0.636363625526 x ~0.272727310658 y 0.636363625526 +x ~0.454545468092 y ~0.818181753159 x ~0.272727310658 y ~0.818181753159 x ~0.272727310658 y 0.636363625526 diff --git a/fonts/upper-case-g.dsc b/fonts/upper-case-g.dsc new file mode 100644 index 0000000..81fefc8 --- /dev/null +++ b/fonts/upper-case-g.dsc @@ -0,0 +1,12 @@ +x 0.0909090563655 y ~0.272727310658 x 0.272727310658 y ~0.272727310658 x 0.272727310658 y ~0.0909090563655 +x 0.0909090563655 y ~0.272727310658 x 0.0909090563655 y ~0.0909090563655 x 0.272727310658 y ~0.0909090563655 +x 0.272727310658 y ~0.636363506317 x 0.454545408487 y ~0.636363506317 x 0.454545408487 y ~0.0909090563655 +x 0.272727310658 y ~0.636363506317 x 0.272727310658 y ~0.0909090563655 x 0.454545408487 y ~0.0909090563655 +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.454545468092 y 0.636363625526 x ~0.272727310658 y 0.636363625526 +x ~0.454545468092 y ~0.636363506317 x ~0.272727310658 y ~0.636363506317 x ~0.272727310658 y 0.636363625526 +x 0.272727310658 y 0.454545468092 x 0.272727310658 y 0.636363625526 x 0.454545408487 y 0.636363625526 +x 0.272727310658 y 0.454545468092 x 0.454545408487 y 0.454545468092 x 0.454545408487 y 0.636363625526 +x ~0.272727310658 y 0.636363625526 x 0.272727310658 y 0.636363625526 x 0.272727310658 y 0.818181812763 +x ~0.272727310658 y 0.636363625526 x ~0.272727310658 y 0.818181812763 x 0.272727310658 y 0.818181812763 diff --git a/fonts/upper-case-h.dsc b/fonts/upper-case-h.dsc new file mode 100644 index 0000000..f1b77c4 --- /dev/null +++ b/fonts/upper-case-h.dsc @@ -0,0 +1,6 @@ +x 0.272727310658 y ~0.818181753159 x 0.272727310658 y 0.636363625526 x 0.454545408487 y 0.636363625526 +x 0.272727310658 y ~0.818181753159 x 0.454545408487 y ~0.818181753159 x 0.454545408487 y 0.636363625526 +x ~0.272727310658 y ~0.0909090563655 x ~0.272727310658 y 0.0909091234207 x 0.272727310658 y 0.0909091234207 +x ~0.272727310658 y ~0.0909090563655 x 0.272727310658 y ~0.0909090563655 x 0.272727310658 y 0.0909091234207 +x ~0.454545468092 y ~0.818181753159 x ~0.272727310658 y ~0.818181753159 x ~0.272727310658 y 0.636363625526 +x ~0.454545468092 y ~0.818181753159 x ~0.454545468092 y 0.636363625526 x ~0.272727310658 y 0.636363625526 diff --git a/fonts/upper-case-i.dsc b/fonts/upper-case-i.dsc new file mode 100644 index 0000000..d25272d --- /dev/null +++ b/fonts/upper-case-i.dsc @@ -0,0 +1,6 @@ +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.272727310658 y 0.636363625526 +x 0.0909090563655 y 0.454545468092 x ~0.0909091234207 y ~0.636363506317 x 0.0909090563655 y ~0.636363506317 +x ~0.0909091234207 y ~0.636363506317 x ~0.0909091234207 y 0.454545468092 x 0.0909090563655 y 0.454545468092 +x ~0.272727310658 y ~0.636363506317 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 diff --git a/fonts/upper-case-j.dsc b/fonts/upper-case-j.dsc new file mode 100644 index 0000000..876ea33 --- /dev/null +++ b/fonts/upper-case-j.dsc @@ -0,0 +1,8 @@ +x ~0.0909091234207 y 0.454545468092 x ~0.0909091234207 y 0.636363625526 x 0.272727310658 y 0.636363625526 +x ~0.0909091234207 y 0.454545468092 x 0.272727310658 y 0.454545468092 x 0.272727310658 y 0.636363625526 +x 0.454545408487 y 0.636363625526 x 0.272727310658 y ~0.636363506317 x 0.454545408487 y ~0.636363506317 +x 0.272727310658 y ~0.636363506317 x 0.272727310658 y 0.636363625526 x 0.454545408487 y 0.636363625526 +x ~0.454545468092 y ~0.272727310658 x ~0.272727310658 y ~0.272727310658 x ~0.272727310658 y ~0.636363506317 +x ~0.272727310658 y ~0.636363506317 x ~0.454545468092 y ~0.636363506317 x ~0.454545468092 y ~0.272727310658 +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 diff --git a/fonts/upper-case-k.dsc b/fonts/upper-case-k.dsc new file mode 100644 index 0000000..4c08809 --- /dev/null +++ b/fonts/upper-case-k.dsc @@ -0,0 +1,14 @@ +x 0.454545408487 y ~0.818181753159 x 0.272727310658 y ~0.454545408487 x 0.454545408487 y ~0.454545408487 +x 0.272727310658 y ~0.454545408487 x 0.272727310658 y ~0.818181753159 x 0.454545408487 y ~0.818181753159 +x 0.272727310658 y ~0.454545408487 x 0.0909090563655 y ~0.0909090563655 x 0.272727310658 y ~0.0909090563655 +x 0.0909090563655 y ~0.0909090563655 x 0.0909090563655 y ~0.454545408487 x 0.272727310658 y ~0.454545408487 +x 0.454545408487 y 0.454545468092 x 0.454545408487 y 0.636363625526 x 0.272727310658 y 0.454545468092 +x 0.272727310658 y 0.454545468092 x 0.272727310658 y 0.636363625526 x 0.454545408487 y 0.636363625526 +x 0.272727310658 y 0.454545468092 x 0.0909090563655 y 0.454545468092 x 0.0909090563655 y 0.272727310658 +x 0.0909090563655 y 0.272727310658 x 0.272727310658 y 0.272727310658 x 0.272727310658 y 0.454545468092 +x 0.0909090563655 y 0.272727310658 x ~0.0909091234207 y 0.0909091234207 x 0.0909090563655 y 0.0909091234207 +x ~0.0909091234207 y 0.0909091234207 x ~0.0909091234207 y 0.272727310658 x 0.0909090563655 y 0.272727310658 +x 0.0909090563655 y ~0.0909090563655 x ~0.272727310658 y ~0.0909090563655 x ~0.272727310658 y 0.0909091234207 +x ~0.272727310658 y 0.0909091234207 x 0.0909090563655 y 0.0909091234207 x 0.0909090563655 y ~0.0909090563655 +x ~0.454545468092 y ~0.818181753159 x ~0.454545468092 y 0.636363625526 x ~0.272727310658 y 0.636363625526 +x ~0.454545468092 y ~0.818181753159 x ~0.272727310658 y ~0.818181753159 x ~0.272727310658 y 0.636363625526 diff --git a/imperative-shell/file-thread.sml b/imperative-shell/file-thread.sml index 4cda94b..68a9da8 100644 --- a/imperative-shell/file-thread.sml +++ b/imperative-shell/file-thread.sml @@ -10,9 +10,9 @@ struct datatype parse_result = OK of AppType.triangle list | PARSE_ERROR - val structureName = "UpperCaseF" - val filename = "fonts/upper-case-f.dsc" - val exportFilename = "fonts/upper-case-f.sml" + val structureName = "UpperCaseG" + val filename = "fonts/upper-case-k.dsc" + val exportFilename = "fonts/upper-case-h.sml" fun ndcToLerpX num = let