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

add GameType.game_type which stores player and wall types, add GameUpdate.update function which takes a game type and returns a new game type, and refactor player/wall files, and gl-draw file, in light of these changes

Browse Source
This commit is contained in:
Humza Shahid
2024-12-15 09:10:19 +00:00
parent 1017bf1b7a
commit cc7f30f718
8 changed files with 165 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
fcore/wall.sml
View File

@@ -1,18 +1,6 @@
structure Wall =
struct
type t = {id: int, x: int, y: int, width: int, height: int}
val wall1 = {id = 1, x = 0, y = 0, width = 100, height = 1080}
val wall2 = {id = 2, x = 1820, y = 0, width = 100, height = 1080}
val wall3 = {id = 3, x = 0, y = 980, width = 1920, height = 108}
val wall4 = {id = 4, x = 155, y = 911, width = 155, height = 55}
val wallVec = Vector.fromList [wall1, wall2, wall3, wall4]
fun getID n =
Vector.sub (wallVec, n - 1)
fun generateTree (pos, wallVec, acc) =
fun helpGenerateTree (pos, wallVec, acc) =
if pos = Vector.length wallVec then
acc
else
@@ -21,33 +9,27 @@ struct
val acc = QuadTree.insert
(x, y, width, height, 0, 0, 1920, 1080, id, acc)
in
generateTree (pos + 1, wallVec, acc)
helpGenerateTree (pos + 1, wallVec, acc)
end
val tree =
let
val {id, x, y, width, height} = Vector.sub (wallVec, 0)
val acc = QuadTree.fromItem (id, x, y, width, height)
in
generateTree (1, wallVec, acc)
end
fun generateTree wallVec = helpGenerateTree (0, wallVec, QuadTree.empty)
fun helpGenerateWalls (pos, wallVec, acc, winWidth, winHeight) =
fun helpGetDrawVec (pos, wallVec, acc, winWidth, winHeight) =
if pos = Vector.length wallVec then
Vector.concat acc
else
let
val wall = Vector.sub (wallVec, pos)
val {x, y, width, height, ...} = wall
val {x, y, width, height, id = _} = wall
val width = Real32.fromInt width
val height = Real32.fromInt height
val block = Block.lerp
(x, y, width, height, winWidth, winHeight, 0.0, 0.0, 0.0)
val acc = block :: acc
in
helpGenerateWalls (pos + 1, wallVec, acc, winWidth, winHeight)
helpGetDrawVec (pos + 1, wallVec, acc, winWidth, winHeight)
end
fun generateWalls () =
helpGenerateWalls (0, wallVec, [], 1920.0, 1080.0)
fun getDrawVec wallVec =
helpGetDrawVec (0, wallVec, [], 1920.0, 1080.0)
end