Improve rooms

2022-03-17 19:37:17 +00:00
parent f8f60537c6
commit c4a8912441
7 changed files with 58 additions and 59 deletions
@@ -152,6 +152,18 @@ subZipWith f g xs ys =
 isPutID :: Int -> Placement -> Bool
 isPutID i ps = Just i == ps ^? plType . putID

+putBlockRect' :: Float -> Float -> Placement
+putBlockRect' w h = ps0jPushPS (aline tl tr)
+    $ ps0jPushPS (aline tr br)
+    $ ps0jPushPS (aline br bl)
+    $ sps0 (aline bl tl)
+  where
+    tl = V2 (-w) h
+    tr = V2 w h
+    br = V2 w (-h)
+    bl = V2 (-w) (-h)
+    aline = PutLineBlock baseBlockPane StoneBlock 9 9
+
 putBlockRect :: Float -> Float -> Float -> Float -> [Placement]
 putBlockRect a x b y =
    [ blockLine (V2 a b) (V2 a y)