collision.fs

let screen = Vector(800., 600.)
let ball = Circle 10.
let box = Rectangle screen

let collision = detectCollision ball box

match collision with
| NoCollision -> ...
| Collision FullContact -> x
| Collision (PartialCollision side) -> x
| Collision (TangentialContact North) -> x
| Collision (TangentialContact East) -> x
| Collision (TangentialContact South) -> x
| Collision (TangentialContact West) -> x
| Collision (Contained (Centered, direction)) -> x
| Collision (Contained ((Floating side), direction)) -> x
| Collision (Contained ((TangentialContainment East), RightContainsLeft)) -> x
| Collision (Contained ((TangentialContainment side), direction)) -> x