Working inter-room placements

2021-11-13 11:13:34 +00:00
parent 17c1a2152d
commit 169ed7d05d
6 changed files with 44 additions and 14 deletions
@@ -52,6 +52,9 @@ spNoID ps pst = Placement ps pst Nothing (const Nothing)
 pContID :: PlacementSpot -> PSType -> (Int -> Maybe Placement) -> Placement
 pContID ps pt = Placement ps pt Nothing . intPlPlPl

+plCont :: PlacementSpot -> PSType -> (Placement -> Maybe Placement) -> Placement
+plCont ps pt = Placement ps pt Nothing
+
 sPS :: Point2 -> Float -> PSType -> Placement
 sPS p a pt = Placement (PS p a) pt Nothing (const Nothing)