Reogranise drawing in main

2021-03-31 11:27:45 +02:00
parent 89c3ff96c8
commit e62ff391a5
7 changed files with 99 additions and 44 deletions
@@ -59,7 +59,7 @@ glareBetween t len wdth col a b w

 lowLightPic :: Float -> Float -> Color -> (Point2, Point2) -> World -> Picture
 lowLightPic len wdth col (a,b) w
-    = case thingsHitLongLine a b w of
+    = case thingsHit a b w of
        ((p, E3x2 wall):_) 
            -> setCol . lineOfThickness wdth $ [alongLineBy len p wa, alongLineBy len p wb]
                where x = len *.* (normalizeV $ wa -.- wb)