Increase default mounted lamp range

src/Dodge/Room/Room.hs

@@ -36,6 +36,7 @@ import Geometry
 import LensHelp
 import MonadHelp
 import RandomHelp
+import Linear
 
 roomC :: RandomGen g => Float -> Float -> State g Room
 roomC w h = do
@@ -75,6 +76,8 @@ glassSwitchBack = do
     hgt <- state $ randomR (400, 600)
     wllen <- state $ randomR (60, wth / 2 -40)
     l1 <- mntLightLnkCond (resetPLUse $ rprBool $ \rp _ -> isInLnk rp)
+    --l2 <- mntLightLnkCond (rprBool $ \rp _ -> (rp ^. rpPos . _x) > wth -1 && null (rp ^. rpPlacementUse))
+    l2 <- mntLightLnkCond (rprBool $ \rp _ -> rp ^. rpLinkStatus . rplsType . at (OnEdge West) == Just ()&& null (rp ^. rpPlacementUse))
     let hf = hgt / 5
         awindow h xl xr = windowLine (V2 xl h) (V2 xr h)
         plmnts =
@@ -87,6 +90,11 @@ glassSwitchBack = do
             , blockLine (V2 0 (3 * hf)) (V2 wllen (3 * hf))
             , blockLine (V2 (wth - wllen) (4 * hf)) (V2 wth (4 * hf))
             , l1
+            , l2
+            , l2
+            , l2
+            , l2
+            , l2
 --            , sPS (V2 (wth / 2) (10 + hgt / 2)) 0 putLamp
             ]
     let northPSs = do