Work on rocket/grenade launcher

2024-12-27 21:46:46 +00:00
parent 0ef28c132e
commit 5c749bff63
19 changed files with 400 additions and 324 deletions
@@ -301,6 +301,7 @@ inSegArea a b c = param >= 0 && param <= dotV (b -.- a) (b -.- a)
    param = dotV (b -.- a) (c -.- a)

 -- I suspect that this may not be correct...
+-- it should probably use closestPointOnSeg
 intersectCircSeg :: Point2 -> Float -> Point2 -> Point2 -> [Point2]
 intersectCircSeg c r a b
    | y < 0 = []