Abstract out block placement

src/Dodge/Room/SensorDoor.hs

@@ -8,6 +8,7 @@ import Dodge.Placement.Instance.Terminal
 import Dodge.Terminal
 import Dodge.Data
 import Dodge.Tree
+import Dodge.Wire
 --import Dodge.RoomLink
 import Dodge.Room.Door
 import Dodge.Room.Ngon
@@ -80,11 +81,9 @@ sensInsideDoor :: DamageType -> Int -> Room -> Room
 sensInsideDoor senseType outplid rm = rm
     & rmName .++~ take 4 (show senseType)
     & rmPmnts .++~ 
-        [ psPt atFstLnkOut 
-            (PutShape $ colorSH yellow $
-            thinHighBar 0 (V2 20 (-1)) (V2 20 (-100))
-            <> thinHighBar 0 (V2 0 (-100)) (V2 20 (-100))
-            <> barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80))
+        [ psPt atFstLnkOut . PutForeground $ floorWire (V2 20 0) (V2 20 (-100))
+        , psPt atFstLnkOut . PutForeground $ floorWire (V2 0 (-100)) (V2 20 (-100))
+        , psPt atFstLnkOut . PutForeground $ verticalWire (V2 20 0) 0 80
         , putTerminal terminalColor (basicTerminal & tmScrollCommands .:~ damageCodeCommand)
             & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)
         ]