Allow for more complex placement positioning

2021-11-24 20:51:50 +00:00
parent c4614866e6
commit e44c5e7120
16 changed files with 178 additions and 173 deletions
@@ -77,8 +77,8 @@ dirtPoly :: [Point2] -> PSType
 dirtPoly = PutBlock DirtBlock [1] dirtWall . reverse

 -- | A single corridor with a destructible block blocking it.
-blockedCorridor' :: RandomGen g => State g Room
-blockedCorridor' = do
+blockedCorridorCloseBlocks :: RandomGen g => State g Room
+blockedCorridorCloseBlocks = do
    r <- state $ randomR (0,pi)
    theblocks <- takeOne 
        [  -- [sPS (V2 20 40) r $ dirtPoly $ square 10]
@@ -86,8 +86,10 @@ blockedCorridor' = do
        --    , sPS (V2 35 40) (r+0.5) $ dirtPoly $ square 10
        --    ]
        --,   
-          [ sPS (V2 5 50) r $ dirtPoly $ square 10
-            , sPS (V2 35 35) (r+0.5) $ dirtPoly $ square 10
+          --[ sPS (V2 5 50) r $ dirtPoly $ square 10
+          --, sPS (V2 35 35) (r+0.5) $ dirtPoly $ square 10
+            [ sPS (V2  6 25) r $ dirtPoly $ square 10
+            , sPS (V2 35 20) (r+0.5) $ dirtPoly $ square 10
            ]
        ]
    return $ corridor & rmPmnts .~ theblocks