Add haddocks

2021-04-04 18:53:43 +02:00
parent d3821fc7b3
commit b3649597fa
5 changed files with 61 additions and 21 deletions
@@ -761,7 +761,7 @@ logistic x0 l k x = l / (1 + exp (k*(x0 - x)))
 wallLOS :: [Point2] -> Point2 -> Point2 -> Bool
 {-# INLINE wallLOS #-}
 wallLOS !(x:y:_) !c !p = isRHS c x y || isLHS p x' y' || isLHS c p x || isRHS c p y
-    where n = 10 *.* (normV . vNormal $ y -.- x)
+    where n = 10 *.* (safeNormalizeV . vNormal $ y -.- x)
          x' = x +.+ n
          y' = y +.+ n