Tweak gibs

src/Dodge/Creature/Picture.hs

@@ -29,12 +29,11 @@ import ShapePicture
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Vector as V
-basicCrPict :: Color    -- ^ Creature color
-    -> Creature 
+basicCrPict :: Creature 
     -> Configuration
     -> World
     -> SPic
-basicCrPict col cr cfig w = 
+basicCrPict cr cfig w = 
     drawCrEquipment cr
     <>
     (basicCrShape col cr
@@ -45,6 +44,7 @@ basicCrPict col cr cfig w =
         ]
     )
   where 
+    col = _crSkinColor cr
     targetingPic = IM.elems $ IM.mapMaybeWithKey f $ _crInv cr
     f invid it = fmap (\g -> g invid it cr cfig w) (it ^? itTargeting . tgDraw)
 
@@ -240,8 +240,6 @@ shoulderSH = translateSHz 20
 --waistSH :: Shape -> Shape
 --waistSH = translateSHz 10
 
-light4 :: Color -> Color
-light4 = light . light . light . light
 
 --drawAwakeLevel
 --    :: Creature