use strictly background color for terrain

swarm-game · Dec 4, 2023 · 9af3d35 · 9af3d35
1 parent b8d37a9
commit 9af3d35
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/Swarm/Game/Entity/Cosmetic/Assignment.hs b/src/Swarm/Game/Entity/Cosmetic/Assignment.hs
@@ -60,13 +60,13 @@ worldAttributes =
 -- * Terrain
 
 dirt :: (TerrainAttr, PreservableColor)
-dirt = (TerrainAttr "dirt", FgOnly $ Triple $ RGB 165 42 42)
+dirt = (TerrainAttr "dirt", BgOnly $ Triple $ RGB 100 1 1)
 
 grass :: (TerrainAttr, PreservableColor)
-grass = (TerrainAttr "grass", FgOnly $ Triple $ RGB 0 32 0) -- dark green
+grass = (TerrainAttr "grass", BgOnly $ Triple $ RGB 0 1 0) -- dark green
 
 stone :: (TerrainAttr, PreservableColor)
-stone = (TerrainAttr "stone", FgOnly $ Triple $ RGB 32 32 32)
+stone = (TerrainAttr "stone", BgOnly $ Triple $ RGB 1 1 1)
 
 ice :: (TerrainAttr, PreservableColor)
 ice = (TerrainAttr "ice", BgOnly $ AnsiColor White)

diff --git a/src/Swarm/Game/Terrain.hs b/src/Swarm/Game/Terrain.hs
@@ -59,9 +59,9 @@ getTerrainWord = T.toLower . T.pack . init . show
 terrainMap :: Map TerrainType Display
 terrainMap =
   M.fromList
-    [ (StoneT, defaultTerrainDisplay '▒' (ATerrain "stone"))
-    , (DirtT, defaultTerrainDisplay '▒' (ATerrain "dirt"))
-    , (GrassT, defaultTerrainDisplay '▒' (ATerrain "grass"))
+    [ (StoneT, defaultTerrainDisplay ' ' (ATerrain "stone"))
+    , (DirtT, defaultTerrainDisplay ' ' (ATerrain "dirt"))
+    , (GrassT, defaultTerrainDisplay ' ' (ATerrain "grass"))
     , (IceT, defaultTerrainDisplay ' ' (ATerrain "ice"))
     , (BlankT, defaultTerrainDisplay ' ' ADefault)
     ]