Allow for easier mounted objects on doors

src/Dodge/Room/Airlock.hs

@@ -3,6 +3,8 @@
 {- Rooms that contain two doors and a switch alternating both.  -}
 module Dodge.Room.Airlock where
 
+import Dodge.Room.Foreground
+import ShapePicture
 import Control.Lens
 import Control.Monad
 import qualified Data.IntMap.Strict as IM
@@ -16,7 +18,6 @@ import Dodge.LevelGen.PlacementHelper
 import Dodge.LevelGen.Switch
 import Dodge.Placement.Instance
 import Dodge.Placement.Instance.Analyser
-import Dodge.Room.Foreground
 import Dodge.Room.Path
 import Dodge.RoomLink
 import Geometry
@@ -208,7 +209,8 @@ airlock90 =
                 (PS (V2 120 120) (3 * pi / 4))
                 xSwitch
                 $ \btid -> jsps (V2 5 5) 0 $ putDoor (WdBlBtOn btid) l1 x1 y1
-            , mntLS vShape (V2 35 35) (V3 70 70 50)
+                        & putDoorDoor . drMounts .~ themounts
+--            , mntLS vShape (V2 35 35) (V3 70 70 50)
             ]
         , _rmBound =
             pure
@@ -221,7 +223,14 @@ airlock90 =
         , _rmName = "airlock90"
         }
   where
+    themounts = 
+        [ MountedLight (V3 hl hl 50) 150 0.5
+        , MountedLight (V3 hl (-hl) 50) 150 0.5
+        , MountedSPic . noPic $ thinHighBar 55 (V2 hl (-hl')) (V2 hl hl')
+        ]
     lnks = muout [(V2 0 40, pi / 2)] ++ muin [(V2 40 0, pi)]
+    hl = 27.5
+    hl' = 30
     l1 = 55
     y1 = (0, 0)
     x1 = (0, pi / 2)