Room with doors and central ledge terminal

2026-02-01 22:23:06 +00:00
parent a6976eae8d
commit f3aaf8ba57
7 changed files with 286 additions and 148 deletions
@@ -19,6 +19,14 @@ rectNSWE !n !s !w !e = [V2 w n, V2 w s, V2 e s, V2 e n]
 rectWH :: Float -> Float -> [Point2]
 rectWH w h = rectNSWE h (- h) (- w) w

+trapTBH :: Float -> Float -> Float -> [Point2]
+trapTBH t b h = 
+    [ V2 (-b) (-h)
+    , V2 b (-h)
+    , V2 t h
+    , V2 (-t) h
+    ]
+
 isotriBWH :: Point2 -> Float -> Float -> [Point2]
 isotriBWH (V2 x y) w h = [V2 (x - w) y, V2 (x + w) y, V2 x (y + h)]