Add skin colors

2022-06-04 12:25:16 +01:00
parent 2b9ad58f6f
commit 602a004e87
14 changed files with 68 additions and 37 deletions
@@ -31,7 +31,7 @@ defaultCreature = Creature
    , _crTwist  = 0
    , _crID     = 1
    , _crPict   = \_ _ _ -> mempty
-    , _crSkinColor = white
+    , _crSkin = defaultCreatureSkin
    , _crUpdate = const id
    , _crRad    = 10
    , _crMass   = 10
@@ -67,6 +67,9 @@ defaultCreature = Creature
    , _crStatistics = CreatureStatistics 10 10 10
    , _crCamouflage = FullyVisible
    }
+defaultCreatureSkin :: CreatureSkin
+defaultCreatureSkin = CreatureSkin (greyN 0.9) (light4 green) (greyN 0.3)
+
 defaultInanimate :: Creature
 defaultInanimate = defaultCreature & crActionPlan .~ Inanimate