From 8cc2adcbf007c5bb0d5668dbeef602a8d7b57af3 Mon Sep 17 00:00:00 2001 From: Humza Shahid Date: Wed, 30 Jul 2025 07:28:37 +0100 Subject: [PATCH] formatting --- fcore/common-update.sml | 3 ++- fcore/quad-tree.sml | 6 ++++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/fcore/common-update.sml b/fcore/common-update.sml index 2750bb9..c35440b 100644 --- a/fcore/common-update.sml +++ b/fcore/common-update.sml @@ -33,7 +33,8 @@ struct let val {squares, canvasWidth, canvasHeight, modalNum, ...} = model val exportString = - CollisionTree.toCollisionString (squares, canvasWidth, canvasHeight, modalNum) + CollisionTree.toCollisionString + (squares, canvasWidth, canvasHeight, modalNum) val msg = EXPORT_COLLISIONS exportString val model = AppWith.modalNum (model, 0) diff --git a/fcore/quad-tree.sml b/fcore/quad-tree.sml index d573aac..3379737 100644 --- a/fcore/quad-tree.sml +++ b/fcore/quad-tree.sml @@ -534,7 +534,8 @@ struct in "endYToNdc (yOffset, " ^ startY ^ ", " ^ endY ^ ", scale, halfHeight)" end - fun toExportStringFolder (maxWidth, maxHeight) ({x, ex, y, ey, data = {r, g, b, a}}, acc) = + fun toExportStringFolder (maxWidth, maxHeight) + ({x, ex, y, ey, data = {r, g, b, a}}, acc) = let val ex = if ex < maxWidth then ex + 1 else ex val ey = if ey < maxHeight then ey + 1 else ey @@ -633,7 +634,8 @@ struct fun mapGrid grid = Vector.map mapYAxis grid - fun toCollisionStringFolder (scale, maxWidth, maxHeight) ({x, ex, y, ey, data = _}, acc) = + fun toCollisionStringFolder (scale, maxWidth, maxHeight) + ({x, ex, y, ey, data = _}, acc) = let val ex = if ex < maxWidth then ex + 1 else ex val ey = if ey < maxHeight then ey + 1 else ey