Start moving creature properties out of records

src/Dodge/Creature/Picture.hs

@@ -9,6 +9,7 @@ module Dodge.Creature.Picture (
     deadFeet,
 ) where
 
+import Dodge.Creature.Shape
 import Control.Lens
 import Dodge.Creature.HandPos (translateToLeftHand, translateToRightHand)
 import Dodge.Creature.Test
@@ -44,7 +45,7 @@ basicCrShape cr
                 , rotmdir $ colorSH (_skinLower cskin) $ feet cr
                 ]
   where
-    cskin = _crType cr
+    cskin = crShape $ _crType cr
     crsize = 0.1 * _crRad cr
     tr = uncurryV translateSHxy (_crPos cr)
     rotdir = rotateSH (_crDir cr)