Unify RoomPos constructors

2022-03-10 18:40:22 +00:00
parent 7b1ac2b682
commit 01c58490fa
8 changed files with 135 additions and 127 deletions
@@ -153,3 +153,11 @@ tweenAngles frac a1 a2
        | abs (a1' - a2') < pi = frac' * (a1' - a2') + a2'
        | a1' > a2'   = go frac' (a1' - 2*pi) a2'
        | otherwise = go frac' a1' (a2' - 2*pi)
+
+xV2 :: Point2 -> Float
+{-# INLINE xV2 #-}
+xV2 (V2 x _) = x
+
+yV2 :: Point2 -> Float
+{-# INLINE yV2 #-}
+yV2 (V2 _ y) = y