done adding export-collision functionality, including collision message, in functional core. Next: add imperative shell scaffolding

2025-07-13 15:33:32 +01:00
parent de16e816b4
commit 7e96203f92
7 changed files with 15 additions and 56 deletions
--- a/fcore/quad-tree.sml
+++ b/fcore/quad-tree.sml
@@ -666,7 +666,6 @@ struct
      val qtree = buildTree (0, 0, size, squares)
      val bintree = merge (qtree, squares)

-      val scale = if scale = 0 then 1 else scale
      val f = toCollisionStringFolder scale
      val collisions = BinTree.foldr (f, bintree, [])
      val collisions = String.concatWith ",\n" collisions