humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

formatting

Browse Source
This commit is contained in:
Humza Shahid
2025-07-30 07:28:37 +01:00
parent 0445595990
commit 8cc2adcbf0
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
fcore/common-update.sml
View File

@@ -33,7 +33,8 @@ struct
let let
val {squares, canvasWidth, canvasHeight, modalNum, ...} = model val {squares, canvasWidth, canvasHeight, modalNum, ...} = model
val exportString = val exportString =
CollisionTree.toCollisionString (squares, canvasWidth, canvasHeight, modalNum) CollisionTree.toCollisionString
(squares, canvasWidth, canvasHeight, modalNum)
val msg = EXPORT_COLLISIONS exportString val msg = EXPORT_COLLISIONS exportString
val model = AppWith.modalNum (model, 0) val model = AppWith.modalNum (model, 0)

6
fcore/quad-tree.sml
View File

@@ -534,7 +534,8 @@ struct
in "endYToNdc (yOffset, " ^ startY ^ ", " ^ endY ^ ", scale, halfHeight)" in "endYToNdc (yOffset, " ^ startY ^ ", " ^ endY ^ ", scale, halfHeight)"
end 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 let
val ex = if ex < maxWidth then ex + 1 else ex val ex = if ex < maxWidth then ex + 1 else ex
val ey = if ey < maxHeight then ey + 1 else ey val ey = if ey < maxHeight then ey + 1 else ey
@@ -633,7 +634,8 @@ struct
fun mapGrid grid = Vector.map mapYAxis grid 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 let
val ex = if ex < maxWidth then ex + 1 else ex val ex = if ex < maxWidth then ex + 1 else ex
val ey = if ey < maxHeight then ey + 1 else ey val ey = if ey < maxHeight then ey + 1 else ey