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)

src/Dodge/Room/Tutorial.hs

@@ -45,13 +45,14 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
-        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---        , return $ tToBTree "cor" $ return $ cleatOnward airlock90
-        , return $ tToBTree "cor" $ return $ cleatOnward (twinSlowDoorRoom 80 200 40)
-        , return $ tToBTree "cor" $ return $ cleatOnward corridor
-        , return $ tToBTree "cor" $ return $ cleatOnward airlock0
-        , return $ tToBTree "cor" $ return $ cleatOnward corridor
-        , tToBTree "x" . return . cleatOnward <$> airlockSimple
+        , return $ tToBTree "cor" $ return $ cleatOnward $ corridor & rmPmnts .~ mempty
+        , return $ tToBTree "cor" $ return $ cleatOnward airlock90
+        , corDoor
+--        , return $ tToBTree "cor" $ return $ cleatOnward (twinSlowDoorRoom 80 200 40)
+--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+--        , return $ tToBTree "cor" $ return $ cleatOnward airlock0
+--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+--        , tToBTree "x" . return . cleatOnward <$> airlockSimple
 --        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor