Add skin colors

src/Dodge/Data.hs

@@ -323,7 +323,7 @@ data Creature = Creature
     , _crTwist          :: Float
     , _crID             :: Int
     , _crPict           :: Creature -> Configuration -> World -> SPic
-    , _crSkinColor      :: Color
+    , _crSkin           :: CreatureSkin
     , _crUpdate         :: Creature -> World -> World
     , _crRad            :: Float
     , _crMass           :: Float
@@ -355,6 +355,11 @@ data Creature = Creature
     , _crStatistics     :: CreatureStatistics
     , _crCamouflage     :: CamouflageStatus
     }
+data CreatureSkin = CreatureSkin
+    { _skinHead     :: Color
+    , _skinUpper    :: Color
+    , _skinLower    :: Color
+    }
 data CamouflageStatus
     = FullyVisible
     | Invisible
@@ -1590,6 +1595,7 @@ makeLenses ''ActivateEquipment
 makeLenses ''EquipParams
 makeLenses ''TerminalCommand
 makeLenses ''GenParams
+makeLenses ''CreatureSkin
 ----- ROOM LENSES
 
 makeLenses ''Room