Cleanup. Add room-wise random placement spots

2021-11-07 19:46:14 +00:00
parent f380e140e1
commit 5681a37953
18 changed files with 179 additions and 141 deletions
@@ -46,6 +46,16 @@ tankRectCross w h col x y = shiftPlacement (V2 x y,0) $ ps0j
 tankSquareCross :: Color -> Float -> Float -> Placement
 tankSquareCross = tankRectCross 20 20

+lowWall :: [Point2] -> Placement
+lowWall ps = ps0j (PutForeground . colorSH col $ upperPrismPoly 30 ps)
+    $ sps0 $ PutWall ps theWall
+  where
+    col = _wlColor defaultWall
+    theWall = defaultWall
+        { _wlOpacity = SeeAbove
+        , _wlDraw = False
+        }
+
 tankRect :: Float -> Float -> Color -> Float -> Float -> Placement
 tankRect w h col x y = shiftPlacement (V2 x y,0) $ ps0j
    (PutForeground $ colorSH col