generate first 5 upper case letters (A-E)

2024-09-20 22:29:06 +01:00
parent 2098a4eda7
commit 4c5df92a0a
14 changed files with 54 additions and 244 deletions
--- a/imperative-shell/constants.sml
+++ b/imperative-shell/constants.sml
@@ -2,7 +2,7 @@ structure Constants =
 struct
  val windowWidth = 1000
  val windowHeight = 900
-  val initialNumClickPoints = 26
+  val initialNumClickPoints = 11

  val graphVertexShaderString =
    "#version 300 es\n\
--- 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 = "UpperCaseA"
-  val filename = "fonts/a.dsc"
-  val exportFilename = "fonts/a.sml"
+  val structureName = "UpperCaseF"
+  val filename = "fonts/upper-case-f.dsc"
+  val exportFilename = "fonts/upper-case-f.sml"

  fun ndcToLerpX num =
    let