diff --git a/src/Dodge/Creature/Shape.hs b/src/Dodge/Creature/Shape.hs
new file mode 100644
index 000000000..2d779c68b
--- /dev/null
+++ b/src/Dodge/Creature/Shape.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE LambdaCase #-}
+
+module Dodge.Creature.Shape (crShape) where
+
+import Color
+import Dodge.Data.Creature.Misc
+
+crShape :: CreatureType -> CreatureShape
+crShape = \case
+    Avatar{} -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3) InanimateAI
+    ChaseCrit -> Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3) ChaseAI
+    SwarmCrit -> Humanoid (greyN 0.9) (lightx4 yellow) (greyN 0.3) SwarmAI
+    AutoCrit -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3) AutoAI
+    AvatarDead -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3) InanimateAI
+    BarrelCrit {} -> Barreloid
+    LampCrit {} -> NonDrawnCreature