From a8beb8fca592e792dac361f9480715fc95e90c8c Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 5 May 2018 13:41:55 +0200 Subject: [PATCH] more fix --- src/Test.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Test.hs b/src/Test.hs index eb67f5b..19fe507 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -359,9 +359,9 @@ checkBoundsCollision2 -> V2 Double checkBoundsCollision2 pre@(V2 pr pc) next@(V2 nr nc) dt acc (Boundaries (minr, minc) (maxr, maxc)) - | (colltr >= dt || abs colltr > 0.1) && (colltc >= dt || abs colltc > 0.1) = acc - | (colltr >= dt || abs colltr > 0.1) = (V2 1 0) * acc - | (colltc >= dt || abs colltc > 0.1) = (V2 0 1) * acc + | (colltr > dt || colltr < -0.1) && (colltc > dt || colltc < -0.1) = acc + | (colltr > dt || colltr < -0.1) = (V2 1 0) * acc + | (colltc > dt || colltc < -0.1) = (V2 0 1) * acc | otherwise = V2 0 0 where vel@(V2 vr vc) = fmap (/ dt) (next - pre)