save grid to custom format

2025-07-12 06:03:59 +01:00
parent 04bb7a18c0
commit eb0b8d31b2
6 changed files with 41 additions and 15 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -3,12 +3,12 @@ struct
  open AppType

  fun updateSquares (squares, newX, newY, item) =
-  let
-    val yAxis = Vector.sub (squares, newX)
-    val yAxis = Vector.update (yAxis, newY, item)
-  in
-    Vector.update (squares, newX, yAxis)
-  end
+    let
+      val yAxis = Vector.sub (squares, newX)
+      val yAxis = Vector.update (yAxis, newY, item)
+    in
+      Vector.update (squares, newX, yAxis)
+    end

  fun changeSquaresSize (squares, newCanvasWidth, newCanvasHeight) =
    let