Add more rooms

src/Geometry/Vector.hs

@@ -90,6 +90,9 @@ rotateV r (V2 x y) = V2
     (x * cos r - y * sin r)
     (x * sin r + y * cos r)
 {-# INLINE rotateV #-}
+rotateVAround :: Point2 -> Float -> Point2 -> Point2
+rotateVAround p r q = rotateV r (q -.- p) +.+ p
+{-# INLINE rotateVAround #-}
 -- | Convert degrees to radians
 degToRad :: Float -> Float
 degToRad d = d * pi / 180