Implement randomised markings on sensors

src/Dodge/Room/SensorDoor.hs

@@ -38,7 +38,6 @@ sensorRoom senseType n = do
     let doorroom = triggerDoorRoom n
     return $ treeFromPost [PassDown door,PassDown cenroom,PassDown doorroom] (UseAll door)
 
-
 sensAboveDoor :: DamageType -> Float -> PlacementSpot -> Placement
 sensAboveDoor sensetype wth ps = extTrigLitPos 
     (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))

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