Partially implement separate blocks

2021-10-26 22:53:49 +01:00
parent d136fd910c
commit 12d43f9cf0
15 changed files with 145 additions and 115 deletions
@@ -39,6 +39,8 @@ shiftPSBy (pos,rot) ps = ps
    & psPos %~ shiftPointBy (pos,rot)
    & psRot %~ (+ rot)

+-- the Int here allows for passing parameters down to other placements:
+-- button ids, etc
 placeSpotID :: PlacementSpot -> World -> (Int, World)
 placeSpotID ps w = case _psType ps of
    PutProp prop -> placeProp prop p rot w