Tweak gibs

2022-06-04 00:40:51 +01:00
parent fa60ea0028
commit 4f4c039fec
7 changed files with 49 additions and 22 deletions
@@ -100,9 +100,8 @@ difference x y
 -- | Given vector line direction and a vector movement,
 -- reflects the movement according to the line.
 reflectIn :: Point2 -> Point2 -> Point2
-reflectIn line vec = rotateV angle vec
-  where
-    angle = 2 * angleBetween line vec
+reflectIn line vec = rotateV (2 * angleBetween line vec) vec
+
 -- | Find angle between two points.
 -- Not normalised, ranges from -2*pi to 2*pi.
 angleBetween :: Point2 -> Point2 -> Float