begin refactoring

2024-08-08 00:18:03 +01:00
parent 7c2f74b33b
commit 894dca2017
10 changed files with 554 additions and 561 deletions
--- a/functional-core/ndc.sml
+++ b/functional-core/ndc.sml
@@ -0,0 +1,14 @@
+structure Ndc = 
+struct
+  (* ndc = normalised device coordinates *)
+
+  fun ltrbToVertex (left, top, right, bottom, r, g, b) =
+    #[ left, bottom, r, g, b
+     , right, bottom, r, g, b
+     , left, top, r, g, b
+
+     , left, top, r, g, b
+     , right, bottom, r, g, b
+     , right, top, r, g, b
+     ]
+end