Add haddocks and/or cleanup

2021-04-04 16:26:06 +02:00
parent 1231939482
commit 3b417c4966
10 changed files with 174 additions and 116 deletions
@@ -61,7 +61,7 @@ lowLightPic :: Float -> Float -> Color -> (Point2, Point2) -> World -> Picture
 lowLightPic len wdth col (a,b) w
    = case thingsHit a b w of
        ((p, E3x2 wall):_) 
-            -> setCol . lineOfThickness wdth $ [alongLineBy len p wa, alongLineBy len p wb]
+            -> setCol . lineOfThickness wdth $ [alongSegBy len p wa, alongSegBy len p wb]
                where x = len *.* (normalizeV $ wa -.- wb)
                      (wa:wb:_) = _wlLine wall
        ((p, E3x1 cr):_)