justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak airlock door to stop z fighting

Browse Source
This commit is contained in:
justin
2021-04-22 14:42:49 +02:00
parent 1ab793180c
commit 6c65515381
4 changed files with 24 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room.hs
+12 -7
View File
@@ -65,17 +65,22 @@ airlockOneWay n = Room
col = dim $ dim $ bright red
airlock :: Int -> Room
airlock n = Room
{ _rmPolys = [rectNSWE 90 0 0 40]
{ _rmPolys =
[ rectNSWE 90 0 0 40
, rectNSWE 60 30 (-40) 20
]
, _rmLinks = lnks
, _rmPath = [((20,85),(20,45))
,((20,45),(20, 5))
]
, _rmPS = [PS (0,15) 0 $ PutTriggerDoor col (not . cond) (0,0) (40,0)
,PS (0,75) 0 $ PutTriggerDoor col (cond) (0,0) (40,0)
,PS (35,45) (pi/2) $ PutButton $ makeSwitch col
(over worldState (M.insert (DoorNumOpen n) True))
(over worldState (M.insert (DoorNumOpen n) False))
]
, _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
(over worldState (M.insert (DoorNumOpen n) True))
(over worldState (M.insert (DoorNumOpen n) False))
,PS (-25, 45) 0 putLamp
]
, _rmBound = rectNSWE 75 15 0 40
}
where lnks = [((20,85),0)