nek0/pituicat
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

correct reaction

Browse source
This commit is contained in:
nek0 2021-01-17 20:57:45 +01:00
parent bb61df8b6d
commit 0b03c306c3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Classes/Physics/Collidible.hs
View file

@ -89,8 +89,8 @@ class (Show c, Mass c) => Collidible c where
then
( gt
, if gx == g1 || gx == g3
then V2 0 (round $ signum d1y)
else V2 (round $ signum d1x) 0
then V2 (round $ signum d1x) 0
else V2 0 (round $ signum d1y)
)
else acc1
)