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

remove a bit of dead code from fcore/projectile.sml

Browse Source
This commit is contained in:
Humza Shahid
2025-02-15 08:18:57 +00:00
parent e538caa6c6
commit 491ad11c4c
1 changed files with 1 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
fcore/projectile.sml
View File

@@ -1,28 +1,5 @@
structure Projectile = structure Projectile =
struct struct
val projectileSize = 9.0
val projectileSizeInt = 9
fun helpGenerateTree (pos, projectiles, acc) =
if pos = Vector.length projectiles then
acc
else
let
val size = projectileSizeInt
val {x, y, facing = _} = Vector.sub (projectiles, pos)
val acc = QuadTree.insert (x, y, size, size, pos, acc)
in
helpGenerateTree (pos + 1, projectiles, acc)
end
fun generateTree projectiles =
helpGenerateTree
( 0
, projectiles
, QuadTree.create (Constants.worldWidth, Constants.worldHeight)
)
fun helpGetProjectileVec fun helpGetProjectileVec
(pos, projectiles, width, height, ratio, xOffset, yOffset, acc) = (pos, projectiles, width, height, ratio, xOffset, yOffset, acc) =
if pos = Vector.length projectiles then if pos = Vector.length projectiles then
@@ -34,7 +11,7 @@ struct
val x = Real32.fromInt x * ratio + xOffset val x = Real32.fromInt x * ratio + xOffset
val y = Real32.fromInt y * ratio + yOffset val y = Real32.fromInt y * ratio + yOffset
val size = projectileSize * ratio val size = Constants.projectileSize * ratio
val vec = Field.lerp val vec = Field.lerp
(x, y, size, size, width, height, 0.3, 0.9, 0.3, 1.0) (x, y, size, size, width, height, 0.3, 0.9, 0.3, 1.0)