begin refactoring AppUpdate structure

2025-07-06 02:49:38 +01:00
parent e8e090a19d
commit df5f326e36
6 changed files with 113 additions and 9 deletions
--- a/temp-squares/fcore/ndc.sml
+++ b/temp-squares/fcore/ndc.sml
@@ -0,0 +1,23 @@
+structure Ndc = 
+struct
+  (* ndc = normalised device coordinates *)
+  fun ltrbToVertex (left, top, right, bottom) =
+    #[ left, bottom
+     , right, bottom
+     , left, top
+
+     , left, top
+     , right, bottom
+     , right, top
+     ]
+
+  fun ltrbToVertexRgb (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