Add laser tunnel lock-key combination

src/Geometry/Polygon.hs

@@ -21,6 +21,17 @@ 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
 
+isotriBWH :: Point2 -> Float -> Float -> [Point2]
+isotriBWH (V2 x y) w h = [V2 (x-w) y, V2 (x+w) y, V2 x (y+h)]
+
+-- trapezion
+trapezionBWHW :: Point2 -> Float -> Float -> Float -> [Point2]
+trapezionBWHW (V2 x y) w1 h w2 = 
+    [ V2 (x-w1) y
+    , V2 (x+w1) y
+    , V2 (x+w2) (y+h)
+    , V2 (x-w2) (y+h)]
+
 rectXH :: Float -> Float -> [Point2]
 rectXH x h = rectNSWE h (-h) 0 x