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

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

@@ -236,13 +236,12 @@ 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
fun loop (windowWidth, windowHeight, squares, acc) =
case squares of case squares of
{x, y, ex, ey, data = _} :: tl => {x, y, ex, ey, data = _} :: tl =>
let let
@@ -253,7 +252,11 @@ struct
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