fix remnants

This commit is contained in:
nek0 2021-01-02 23:17:53 +01:00
parent b043ff7707
commit cd303affc8
1 changed files with 2 additions and 2 deletions

View File

@ -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 =