Remove creature records

src/Dodge/Item/BackgroundEffect.hs

@@ -4,6 +4,7 @@ module Dodge.Item.BackgroundEffect (
     itEffectOnDrop,
 ) where
 
+import Dodge.Creature.Radius
 import Dodge.Inventory.SelectionList
 --import Dodge.Inventory.Path
 import Data.Maybe
@@ -67,7 +68,7 @@ createShieldWall' it cr w = case it ^? itParams . flatShieldWlMIX . _Just of
     wlline = (a, b)
     crdirv = unitVectorAtAngle $ _crDir cr
     crpos = _crPos cr
-    rad = _crRad cr + 2
+    rad = crRad (cr ^. crType) + 2
     a = crpos +.+ rad *.* crdirv -.- 10 *.* therot crdirv
     b = crpos +.+ rad *.* crdirv +.+ 10 *.* therot crdirv
     therot

src/Dodge/Item/HeldOffset.hs

@@ -7,6 +7,7 @@ module Dodge.Item.HeldOffset (
     heldItemOrient2D,
 ) where
 
+import Dodge.Creature.Radius
 import Dodge.Data.AimStance
 import Dodge.Item.AimStance
 import qualified Quaternion as Q
@@ -36,16 +37,16 @@ heldItemRelativeOrient itm cr (p,q)
     | Aiming {} <- _posture (_crStance cr) =
         (p + aimingWeaponZeroPos cr itm `v2z` shoulderHeight, Q.qID * q)
     |  TwoHandFlat <- aStance itm = 
-        ( V3 (_crRad cr) 0 handD + rotate3 (twoFlatHRot cr) (transToHandle itm p)
+        ( V3 (crRad $ cr ^. crType) 0 handD + rotate3 (twoFlatHRot cr) (transToHandle itm p)
         , Q.axisAngle (V3 0 0 1) (twoFlatHRot cr) * q
         )
     |  OneHand <- aStance itm = 
-            ( V3 (_crRad cr * 0.7 + handPos) (_crRad cr * negate 0.7) handD
+            ( V3 (crRad (cr ^. crType) * 0.7 + handPos) (crRad (cr ^. crType) * negate 0.7) handD
                 + transToHandle itm p
             , Q.qID * q
             )
     | otherwise = 
-        ( V3 (_crRad cr) 0 handD 
+        ( V3 (crRad $ cr ^. crType) 0 handD 
             + rotate3 (strideRot cr + 1.2) (V3 (-8) 0 0 + transToHandle itm p)
         , Q.axisAngle (V3 0 0 1) (strideRot cr + 1.2) * q
         )