Start moving creature properties out of records

src/Dodge/Render/ShapePicture.hs

@@ -38,9 +38,7 @@ worldSPic cfig u =
 
 drawCreature :: Creature -> SPic
 drawCreature cr = case _crType cr of
-    Avatar {} -> basicCrPict cr
-    Humanoid{} -> basicCrPict cr
-    Barreloid{} ->
+    BarrelCrit{} ->
         picAtCrPos1
             ( setDepth 20 $
                 fold
@@ -50,8 +48,9 @@ drawCreature cr = case _crType cr of
                     ]
             )
             cr
-    Lampoid{_lampHeight = h} -> uncurryV translateSPxy (_crPos cr) $ lampCrSPic h
-    NonDrawnCreature -> mempty
+    LampCrit{_lampHeight = h} -> uncurryV translateSPxy (_crPos cr) $ lampCrSPic h
+    _ -> basicCrPict cr
+--    NonDrawnCreature -> mempty
 
 lampCrSPic :: Float -> SPic
 lampCrSPic h =