Add a base to blocks

2025-11-23 14:14:37 +00:00
parent 2cffe81b75
commit 581d832569
7 changed files with 90 additions and 122 deletions
@@ -2,17 +2,17 @@

 module Dodge.Material.Color (materialColor) where

-import Dodge.Data.Material
 import Color
+import Dodge.Data.Material

 materialColor :: Material -> Color
 materialColor = \case
-        Wood -> dark yellow
-        Dirt -> dark $ dark orange
-        Stone -> greyN 0.5
-        Glass -> aquamarine
-        Metal -> orange
-        Crystal -> green
-        Flesh -> red
-        Electronics -> greyN 0.2
-        ForceField -> magenta
+    Wood -> dark yellow
+    Dirt -> dark $ dark orange
+    Stone -> greyN 0.5
+    Glass -> aquamarine
+    Metal -> orange
+    Crystal -> green
+    Flesh -> red
+    Electronics -> greyN 0.2
+    ForceField -> magenta