Start adding mouse control of inventory

2024-10-15 23:26:08 +01:00
parent e745238b8f
commit cf0873d73b
18 changed files with 333 additions and 269 deletions
@@ -35,6 +35,14 @@ rectXH x h = rectNSWE h (- h) 0 x
 rectXY :: Float -> Float -> [Point2]
 rectXY x y = rectNSWE y 0 0 x

+rectVV :: Point2 -> Point2 -> [Point2]
+rectVV (V2 x y) (V2 a b) = rectNSWE n s w e
+  where
+    (e,w) | x > a = (x,a)
+        | otherwise = (a,x)
+    (n,s) | y > b = (y,b)
+        | otherwise = (b,y)
+
 square :: Float -> [Point2]
 square n = rectWH n n