Improve debris

src/Dodge/Room/Pillar.hs

@@ -32,7 +32,7 @@ blockPillar w' h' = ps0jPushPS (aline tl tr)
     aline = PutLineBlock baseBlockPane StoneBlock 9 9
 
 smallPillar :: PSType
-smallPillar = PutBlock StoneBlock 5 [5,5] baseBlockPane $ reverse $ square 5
+smallPillar = PutBlock StoneBlock 500 baseBlockPane $ reverse $ square 5
 
 crossPillar :: Float -> Float -> Placement
 crossPillar w' h' = ps0jPushPS (aline (V2 (-w) 0) (V2 w 0))

src/Dodge/Room/RoadBlock.hs

@@ -66,7 +66,7 @@ blockedCorridor :: RandomGen g => State g (Tree Room)
 blockedCorridor = longBlockedCorridor 0
 
 dirtPoly :: [Point2] -> PSType
-dirtPoly = PutBlock DirtBlock 1 [] dirtWall . reverse
+dirtPoly = PutBlock DirtBlock 1 dirtWall . reverse
 
 -- | A single corridor with a destructible block blocking it.
 blockedCorridorCloseBlocks :: RandomGen g => State g Room