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

Try to simplify link code in roomRect

Browse Source
This commit is contained in:
justin
2025-10-27 15:10:19 +00:00
parent c88fc1c729
commit 0946ee1310
9 changed files with 95 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Airlock.hs
+3 -4
View File
@@ -177,7 +177,7 @@ airlockZ = do
defaultRoom
{ _rmPolys = [rectNSWE 120 0 0 180]
, _rmLinks = lnks
, _rmPath = linksGridToPath' lnks $ loopPairs $ rectNSWE 100 40 40 140
, _rmPath = linksDAGToPath lnks $ loopPairs $ rectNSWE 100 40 40 140
, _rmPmnts =
[ pContID (PS (V2 90 115) pi) xSwitch $
\btid ->
@@ -212,7 +212,7 @@ airlock90 =
]
]
, _rmLinks = lnks
, _rmPath = linksGridToPath' lnks $ doublePairSet (V2 40 40, V2 80 80)
, _rmPath = linksDAGToPath lnks $ [(40,80)]
, _rmPmnts =
[ pContID
(PS (V2 120 120) (3 * pi / 4))
@@ -251,8 +251,7 @@ airlockCrystal =
defaultRoom
{ _rmPolys = [rectNSWE 140 0 0 40, switchcutout]
, _rmLinks = lnks
, _rmPath = linksGridToPath' lnks
$ loopPairs [V2 20 40, V2 100 70, V2 20 110]
, _rmPath = linksDAGToPath lnks $ loopPairs [V2 20 40, V2 100 70, V2 20 110]
, _rmPmnts =
[ pContID
(PS (V2 145 70) (pi / 2))