Improve low level flamer

2022-03-15 08:54:23 +00:00
parent 4c116a82c9
commit b71579441e
10 changed files with 78 additions and 47 deletions
@@ -249,6 +249,11 @@ ps0jPushPS :: PSType -> Placement -> Placement
 ps0jPushPS pst plmnt = Placement (PSNoShiftCont (V2 0 0) 0) pst Nothing 
    $ \p -> Just $ plmnt & plSpot .~ _plSpot p

+-- the NoShiftCont is necessary when shifting then combining rooms
+ps0PushPS :: PSType -> (Placement -> Maybe Placement) -> Placement
+ps0PushPS pst f = Placement (PSNoShiftCont (V2 0 0) 0) pst Nothing 
+    $ \pl -> f pl & _Just . plSpot %~ const (_plSpot pl)
+
 addPlmnt :: Placement -> Placement -> Placement
 addPlmnt pl pl2 = case pl2 of
    (PlacementUsingPos p f) -> PlacementUsingPos p (fmap (addPlmnt pl) f)