Cleanup

2025-10-12 20:40:40 +01:00
parent 3206cdebf6
commit 5e5b24cad0
11 changed files with 157 additions and 139 deletions
@@ -865,7 +865,7 @@ crCrSpring c1 c2
  where
    id1 = _crID c1
    id2 = _crID c2
-    vec = c1 ^. crPos . _xy -.- c2 ^. crPos . _xy
+    vec = c1 ^. crPos . _xy - c2 ^. crPos . _xy
    diff = magV vec
    comRad = crRad (c1 ^. crType) + crRad (c2 ^. crType)
    overlap1 = ((comRad - diff) * crMass (_crType c2) * 0.5 / massT) *.* errorNormalizeV 55 vec