diff --git a/src/Classes/Physics/Collidible.hs b/src/Classes/Physics/Collidible.hs index eb8f1da..5628cab 100644 --- a/src/Classes/Physics/Collidible.hs +++ b/src/Classes/Physics/Collidible.hs @@ -34,12 +34,12 @@ class (Show c, Mass c) => Collidible c where delta2@(V2 vx2 vy2) = (dt *) <$> velocity m2 dtx 0 = dt dtx vx = - if vx1 > 0 + if vx > 0 then (m2x1 - m1x2) / vx else (m1x1 - m2x2) / (-vx) dty 0 = dt dty vy = - if vy1 > 0 + if vy > 0 then (m2y1 - m1y2) / vy else (m1y1 - m2y2) / (-vy) posColl =