Cleanup

2021-12-05 12:29:01 +00:00
parent 1bb1a06101
commit d9c5cfc26d
22 changed files with 148 additions and 144 deletions
@@ -16,8 +16,7 @@ module Geometry
    , module Geometry.Vector
    , module Geometry.Vector3D
    , module Geometry.LHS
-    )
-    where
+    ) where
 import Geometry.Data
 import Geometry.Intersect
 import Geometry.Bezier
@@ -67,6 +66,12 @@ 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

+rectXH :: Float -> Float -> [Point2]
+rectXH x h = rectNSWE h (-h) 0 x
+
+rectXY :: Float -> Float -> [Point2]
+rectXY x y = rectNSWE y 0 0 x
+
 square :: Float -> [Point2]
 square n = rectWH n n