Work on bouncing debris

src/Dodge/Material/Color.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE LambdaCase #-}
+
+module Dodge.Material.Color (materialColor) where
+
+import Dodge.Data.Material
+import Color
+
+materialColor :: Material -> Color
+materialColor =
+    withAlpha 0.5 . \case
+        Wood -> dark yellow
+        Dirt -> dark $ dark orange
+        Stone -> greyN 0.5
+        Glass -> white
+        Metal -> orange
+        Crystal -> green
+        Flesh -> red
+        Electronics -> greyN 0.2