Fix space leak, start to unify door mechanisms

2021-07-20 13:42:38 +02:00
parent 40ee81aff9
commit 316a4141ab
3 changed files with 7 additions and 13 deletions
@@ -460,7 +460,7 @@ mvPointTowardAtSpeed
    -> Point2   -- ^ End point.
    -> Point2   -- ^ Start point.
    -> Point2
-mvPointTowardAtSpeed speed !ep !p 
+mvPointTowardAtSpeed !speed !ep !p 
    | dist p ep < speed = ep
    | otherwise         = p +.+ speed *.* normalizeV (ep -.- p)
 {- | given a target and a start point, shift toward the end point by 1.