Add more procedural girders

src/Dodge/Room/SensorDoor.hs

@@ -6,15 +6,14 @@ import Dodge.Data
 import Dodge.Tree
 --import Dodge.RoomLink
 import Dodge.Room.Door
+import Dodge.Room.Ngon
 import Dodge.Room.Procedural
-import Dodge.Room.Room
 import Dodge.Room.Corridor
 import Dodge.Room.Link
 --import Dodge.Room.Procedural
 import Dodge.Room.Foreground
 --import Dodge.Room.RoadBlock
 import Dodge.Placement.Instance
-import Dodge.SoundLogic
 --import Dodge.Default.Room
 --import Dodge.Item.Weapon.BulletGuns
 --import Dodge.Item.Weapon.Utility
@@ -69,33 +68,20 @@ sensInsideDoor senseType outplid rm = rm
             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))
-        , putTerminal messagef 
+        , putTerminal (genTermMessage messagef)
             & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)
         ]
     & rmOutPmnt .~ [OutPlacement (sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100)) outplid]
   where
     mtoup = map toUpper
     horline = "-----------------"
-    topflush = [replicate i ' ' ++ "*" | i <- [0,2 .. length horline -1]]
     messagef gp = 
         let Just (pc,ds) = gp ^? sensorCoding . ix senseType
-            themessage =
-                topflush ++
-                [horline
-                ,"SENSOR ATTRIBUTES"
-                ,horline
-                ,mtoup $ show senseType
-                ,"COLOR:"++ mtoup (show pc)
-                ,"SHAPE:"++ mtoup (reverse . drop 10 . reverse $ show ds)
-                ,horline
-                ]
-        in TerminalParams
-            {_termDisplayedLines = [] --zip (replicate 7 horline) (repeat white)
-            ,_termFutureLines = TerminalLineEffect 0 termsound
-                : map totermline themessage
-            ,_termMaxLines = 7
-            }
-    totermline s = TerminalLineDisplay 0 s white
-    termsound subinv w' = soundStart TerminalSound tpos computerBeepingS Nothing w'
-      where
-        tpos = fromMaybe 0 $ w' ^? buttons . ix (_termID subinv) . btPos
+        in [horline
+           ,"SENSOR ATTRIBUTES"
+           ,horline
+           ,mtoup $ show senseType
+           ,"COLOR:"++ mtoup (show pc)
+           ,"SHAPE:"++ mtoup (reverse . drop 10 . reverse $ show ds)
+           ,horline
+           ]