Simplify facade shape coloring

2025-12-07 20:19:27 +00:00
parent 79f86a3158
commit 9e98cdc34b
3 changed files with 23 additions and 29 deletions
@@ -84,7 +84,7 @@ drawTurret lw tu mc = fold $ do
    return $ overPosSP (turretItemOffset itm tu mc) (itemSPic itm)

 sensorSPic :: (PaletteColor, DecorationShape) -> SPic
-sensorSPic (pc, ds) = noPic $ decorationToShape ds w w 25 col
+sensorSPic (pc, ds) = noPic $ colorSH col $ decorationToShape ds w w 25
  where
    col = paletteToColor pc
    w = 10