Add variable door speed, still buggy

src/Geometry/Vector.hs

@@ -41,6 +41,7 @@ a *.* V2 x2 y2 =
 normalizeV :: Point2 -> Point2
 {-# INLINE normalizeV #-}
 normalizeV p = (1 / magV p) *.* p
+
 {- | Angle between two vectors.  Always positive.  -}
 angleVV :: Point2 -> Point2 -> Float
 {-# INLINE angleVV #-}