Complete stritifying points

2021-07-30 01:36:48 +02:00
parent 7b7fd302d8
commit c67feb485f
7 changed files with 18 additions and 18 deletions
@@ -201,7 +201,7 @@ crSpring c w = IM.foldl' (flip $ crCrSpring c) w cs
 crCrSpring :: Creature -> Creature -> World -> World
 crCrSpring c1 c2 w 
    | id1 == id2 = w
-    | vec == (0,0) = w
+    | vec == (V2 0 0) = w
    | diff >= comRad = w
    | otherwise = over (creatures . ix id1 . crPos) (+.+ overlap1)
                        $ over (creatures . ix id2 . crPos) (-.- overlap2) w