Tweak pillar room

2021-10-03 17:52:35 +01:00
parent 0c6fa80ce0
commit 2c5cdbdc73
8 changed files with 44 additions and 35 deletions
@@ -63,8 +63,11 @@ rectNSEW !n !s !e !w = rectNESW n e s w
 rectNSWE :: Float -> Float -> Float -> Float -> [Point2]
 rectNSWE !n !s !w !e = [V2 w n, V2 w s, V2 e s, V2 e n]
 -- | Draw a rectangle around the origin with given height and width
-rectWdthHght :: Float -> Float -> [Point2]
-rectWdthHght w h = rectNSWE h (-h) (-w) w
+rectWH :: Float -> Float -> [Point2]
+rectWH w h = rectNSWE h (-h) (-w) w
+
+square :: Float -> [Point2]
+square n = rectWH n n

 mirrorXAxis :: [Point2] -> [Point2]
 mirrorXAxis ps = orderPolygon $ ps ++ mapMaybe f ps