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

Implement different door speeds

Browse Source
This commit is contained in:
justin
2025-10-25 09:57:13 +01:00
parent 3f5f5d2c6b
commit c2cc38a642
7 changed files with 72 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/LevelGen/PlacementHelper.hs
-8
View File
@@ -83,11 +83,3 @@ ps0PushPS pst f = Placement (PSNoShiftCont (V2 0 0) 0) pst Nothing Nothing $
ps0PushPSw :: PSType -> (GenWorld -> Placement -> Maybe Placement) -> Placement
ps0PushPSw pst f = Placement (PSNoShiftCont (V2 0 0) 0) pst Nothing Nothing $
\w pl -> f w pl & _Just . plSpot %~ const (_plSpot pl)
addPlmnt :: Placement -> Placement -> Placement
addPlmnt pl pl2 = case pl2 of
-- (RandomPlacement rp) -> RandomPlacement $ fmap (addPlmnt pl) rp
(Placement ps pt mi mj f) -> Placement ps pt mi mj (fmap (fmap g) f)
where
g Nothing = Just pl
g (Just pl') = Just $ addPlmnt pl pl'