Improve wall glare

2021-03-24 21:33:15 +01:00
parent 7fd49d9b41
commit baecb8e15a
4 changed files with 26 additions and 32 deletions
@@ -18,6 +18,11 @@ import Data.Maybe

 import Control.Applicative

+alongLineBy :: Float -> Point2 -> Point2 -> Point2
+alongLineBy x a b = a +.+ y *.* normalizeV (b -.- a)
+  where
+    y = min x $ dist a b
+

 closestPointOnLine :: Point2 -> Point2 -> Point2 -> Point2
 {-# INLINE closestPointOnLine #-}