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

Add more rooms

Browse Source
This commit is contained in:
justin
2022-06-15 14:05:59 +01:00
parent 29e1ee14a1
commit e30f7a0585
5 changed files with 39 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Procedural.hs
-3
View File
@@ -72,7 +72,6 @@ roomRect x y xn yn = defaultRoom
}
}
where
roomposat onoffpath p = RoomPos p 0 (S.singleton onoffpath) NotLink 0
yd = (y - 40) / fromIntegral yn
xd = (x - 40) / fromIntegral xn
somelnks poffset ps a = zip (map (+.+ poffset) ps) (repeat a)
@@ -96,8 +95,6 @@ roomRect x y xn yn = defaultRoom
]
posps' = map (over _1 (+.+ V2 20 20)) $ gridPoints'' xd (xn+1) yd (xn+1)
interposps' = map (over _1 (+.+ V2 (20 + xd/2) (20 + yd/2))) $ gridPoints'' xd xn yd yn
posps = map (+.+ V2 20 20) $ gridPoints xd (xn+1) yd (yn+1)
interposps = map (+.+ V2 (20 + xd/2) (20 + yd/2)) $ gridPoints xd xn yd yn
makeoffpos (p,a) = RoomPos p 0 (S.singleton $ RoomPosOffPath $ makerpedges' a) NotLink 0
makerpedges' (a,b) = S.fromList
[PathFromEdge South b