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

a bit of refactoring for quad tree's 'toTriangles' function

Browse Source
This commit is contained in:
Humza Shahid
2025-07-06 13:26:33 +01:00
parent 1ce3a36db4
commit 833005703b
1 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
temp-squares/fcore/quad-tree.sml
View File

@@ -236,24 +236,27 @@ struct
BinTree.insert (item, acc) BinTree.insert (item, acc)
fun toList qtree = fun toList qtree =
let let val tree = foldWithDuplicates (insertItemIntoTree, qtree, BinTree.empty)
val tree = foldWithDuplicates (insertItemIntoTree, qtree, BinTree.empty) in BinTree.toList (tree, [])
in
BinTree.toList (tree, [])
end end
fun toTriangles (windowWidth, windowHeight, squares, acc) = local
case squares of fun loop (windowWidth, windowHeight, squares, acc) =
{x, y, ex, ey, data = _} :: tl => case squares of
let {x, y, ex, ey, data = _} :: tl =>
val startX = Ndc.fromPixelX (x, windowWidth, windowHeight) let
val endX = Ndc.fromPixelX (ex, windowWidth, windowHeight) val startX = Ndc.fromPixelX (x, windowWidth, windowHeight)
val startY = Ndc.fromPixelY (y, windowWidth, windowHeight) val endX = Ndc.fromPixelX (ex, windowWidth, windowHeight)
val endY = Ndc.fromPixelY (ey, windowWidth, windowHeight) val startY = Ndc.fromPixelY (y, windowWidth, windowHeight)
val endY = Ndc.fromPixelY (ey, windowWidth, windowHeight)
val acc = Ndc.ltrbToVertex (startX, startY, endX, endY) :: acc val acc = Ndc.ltrbToVertex (startX, startY, endX, endY) :: acc
in in
toTriangles (windowWidth, windowHeight, tl, acc) loop (windowWidth, windowHeight, tl, acc)
end end
| [] => Vector.concat acc | [] => Vector.concat acc
in
fun toTriangles (windowWidth, windowHeight, squares) =
loop (windowWidth, windowHeight, squares, [])
end
end end