Remove ssaTri, bullet movement is broken

2021-12-15 17:34:20 +00:00
parent dccacd9d22
commit adab32bf68
13 changed files with 74 additions and 213 deletions
@@ -247,7 +247,7 @@ closestPointOnSeg segP1 segP2 p
 orthogonalPointOnSeg :: Point2 -> Point2 -> Point2 -> Maybe Point2
 orthogonalPointOnSeg a b p
    | param < 0 || param > 1 = Nothing
-    | otherwise              = Just $ a +.+ param *.* (normalizeV $ b -.- a)
+    | otherwise              = Just $ a +.+ param *.* normalizeV (b -.- a)
  where
    param = closestPointOnLineParam a b p