done refactoring functional core (mostly); next, need to move folders in temp-squares directory into main

2025-07-06 14:45:20 +01:00
parent 1c34bd715f
commit 395d6002d8
7 changed files with 485 additions and 299 deletions
--- a/temp-squares/fcore/quad-tree.sml
+++ b/temp-squares/fcore/quad-tree.sml
@@ -262,11 +262,11 @@ struct
      | [] => Vector.concat acc
  in
    fun toTriangles (windowWidth, windowHeight, squares, size) =
-    let
-      val qtree = build (0, 0, size, squares)
-      val squares = toList qtree
-    in
-      loop (windowWidth, windowHeight, squares, [])
-    end
+      let
+        val qtree = build (0, 0, size, squares)
+        val squares = toList qtree
+      in
+        loop (windowWidth, windowHeight, squares, [])
+      end
  end
 end