Implement randomised markings on sensors

src/Dodge/Room/Tanks.hs

@@ -6,11 +6,13 @@ import Dodge.Room.Procedural
 import Dodge.Room.Foreground
 --import Dodge.Room.RoadBlock
 import Dodge.Placement.Instance
+import Dodge.Placement.TopDecoration
 import Dodge.PlacementSpot
 --import Padding
 import Color
 --import Shape
 import LensHelp
+--import Geometry
 
 --import Data.Maybe
 --import Data.Tree
@@ -20,12 +22,12 @@ import qualified Data.Set as S
 
 randomTank :: RandomGen g => State g Placement
 randomTank = takeOne $ map (\f -> f (dim orange) orange)
-    [ tankSquareEmboss4
-    , tankSquareEmboss
-    , tankSquare
+    [ tankSquareDec fourEmbossDecoration
+    , tankSquareDec midBarDecoration
+    , tankSquareDec squareDecoration
     , roundTank
     , roundTankCross
-    , tankSquareCross
+    , tankSquareDec plusDecoration
     ]
 
 tanksRoom :: RandomGen g => [Creature] -> [Item] -> State g Room