Remove creature records

2025-06-06 13:36:18 +01:00
parent 73c79f2f4d
commit 0f55257bff
48 changed files with 621 additions and 610 deletions
@@ -9,6 +9,7 @@ module Dodge.Creature.Picture (
    deadFeet,
 ) where

+import Dodge.Creature.Radius
 import Dodge.Creature.Shape
 import Control.Lens
 import Dodge.Creature.HandPos (translateToLeftHand, translateToRightHand)
@@ -46,7 +47,7 @@ basicCrShape cr
                ]
  where
    cskin = crShape $ _crType cr
-    crsize = 0.1 * _crRad cr
+    crsize = 0.1 * crRad (cr ^. crType)
    tr = uncurryV translateSHxy (_crPos cr)
    rotdir = rotateSH (_crDir cr)
    rotmdir = rotateSH (_crMvDir cr)