Tweak switch doors

2021-04-22 17:10:53 +02:00
parent 6c65515381
commit fdac382c61
5 changed files with 77 additions and 71 deletions
@@ -66,20 +66,20 @@ airlockOneWay n = Room
 airlock :: Int -> Room
 airlock n = Room
    { _rmPolys =
-        [ rectNSWE 90 0 0 40
-        , rectNSWE 60 30 (-40) 20
+        [ rectNSWE 100 0 0 40
+        , rectNSWE 65 35 (-40) 20
        ]
    , _rmLinks = lnks
    , _rmPath  = [((20,85),(20,45))
                 ,((20,45),(20, 5))
                 ]
    , _rmPS    = 
-        [PS (0,15) 0 $ PutTriggerDoor col (not . cond) (1,0) (39,0)
-        ,PS (0,75) 0 $ PutTriggerDoor col (cond)       (1,0) (39,0)
-        ,PS (35,45) (pi/2) $ PutButton $ makeSwitch col 
+        [PS (0,20) 0 $ PutTriggerDoor col (not . cond) (1,0) (39,0)
+        ,PS (0,80) 0 $ PutTriggerDoor col (cond)       (1,0) (39,0)
+        ,PS (35,50) (pi/2) $ PutButton $ makeSwitch col 
                           (over worldState (M.insert (DoorNumOpen n) True))
                           (over worldState (M.insert (DoorNumOpen n) False))
-        ,PS (-25, 45) 0 putLamp
+        ,PS (-25, 50) 0 putLamp
        ]
    , _rmBound = rectNSWE 75 15 0 40
    }