Humza Shahid
da8790f0b6
git-subtree-dir: game-sml git-subtree-mainline:aa5357714dgit-subtree-split:113c3e67ab
16 lines
386 B
Standard ML
16 lines
386 B
Standard ML
structure Collision =
|
|
struct
|
|
fun isColliding (ix, iy, ifx, ify, cx, cy, cfx, cfy) =
|
|
ix < cfx andalso ifx > cx andalso iy < cfy andalso ify > cy
|
|
|
|
fun isCollidingPlus (ix, iy, iw, ih, cx, cy, cw, ch) =
|
|
let
|
|
val ifx = ix + iw
|
|
val ify = iy + ih
|
|
val cfx = cx + cw
|
|
val cfy = cy + ch
|
|
in
|
|
isColliding (ix, iy, ifx, ify, cx, cy, cfx, cfy)
|
|
end
|
|
end
|