change graph lines to draw dots at clickable points rather than lines which are similar to graph paper

2024-09-21 13:23:25 +01:00
parent 29755c2ddb
commit 967dd2433e
6 changed files with 54 additions and 192 deletions
--- a/functional-core/app/ndc.sml
+++ b/functional-core/app/ndc.sml
@@ -1,8 +1,17 @@
 structure Ndc = 
 struct
  (* ndc = normalised device coordinates *)
+  fun ltrbToVertex (left, top, right, bottom) =
+    #[ left, bottom
+     , right, bottom
+     , left, top

-  fun ltrbToVertex (left, top, right, bottom, r, g, b) =
+     , 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