Remove creature records

src/Dodge/Update.hs

@@ -7,6 +7,7 @@ Description : Simulation update
 -}
 module Dodge.Update (updateUniverse) where
 
+import Dodge.Creature.Radius
 import Dodge.Creature.Mass
 import Dodge.Damage
 import RandomHelp
@@ -568,7 +569,7 @@ updateTeslaArc w pt
     (lp, rdir)
         | ArcStep lp' ld' (CrID crid) <- last thearc
           , Just cr <- w ^? cWorld . lWorld . creatures . ix crid =
-            (lp' -.- (_crRad cr + 1) *.* unitVectorAtAngle ld', rp $ ld' + pi)
+            (lp' -.- (crRad (cr ^. crType) + 1) *.* unitVectorAtAngle ld', rp $ ld' + pi)
         | ArcStep lp' ld' (WlID wlid) <- last thearc
           , Just wl <- w ^? cWorld . lWorld . walls . ix wlid =
             ( lp' -.- 2 *.* unitVectorAtAngle ld'
@@ -793,7 +794,7 @@ crCrSpring c1 c2
     id2 = _crID c2
     vec = _crPos c1 -.- _crPos c2
     diff = magV vec
-    comRad = _crRad c1 + _crRad c2
+    comRad = crRad (c1 ^. crType) + crRad (c2 ^. crType)
     overlap1 = ((comRad - diff) * crMass (_crType c2) * 0.5 / massT) *.* errorNormalizeV 55 vec
     overlap2 = ((comRad - diff) * crMass (_crType c1) * 0.5 / massT) *.* errorNormalizeV 56 vec
     massT = crMass (_crType c1) + crMass (_crType c2)