allow width and height to have a different number of click points

2025-02-18 11:53:28 +00:00
parent 68cbf59f04
commit 78905b59f0
9 changed files with 129 additions and 75 deletions
--- a/functional-core/file/parse-file.sml
+++ b/functional-core/file/parse-file.sml
@@ -5,7 +5,14 @@ end

 structure ParseFile :> PARSE_FILE =
 struct
-  datatype triangle_token = X | Y | R | G | B | COORD of Real32.real | UNKNOWN of string
+  datatype triangle_token =
+    X
+  | Y
+  | R
+  | G
+  | B
+  | COORD of Real32.real
+  | UNKNOWN of string

  val zero: Real32.real = 0.0