Refactor wall points from lists to pairs

2021-05-04 01:31:55 +02:00
parent e21178b688
commit 6d4c17fc07
23 changed files with 260 additions and 255 deletions
@@ -71,7 +71,7 @@ lowLightPic len wdth col (a,b) w = case thingsHit a b w of
        ((p, E3x2 wall):_) 
            -> setCol . lineOfThickness wdth $ [alongSegBy len p wa, alongSegBy len p wb]
                where x = len *.* normalizeV (wa -.- wb)
-                      (wa:wb:_) = _wlLine wall
+                      (wa,wb) = _wlLine wall
        ((p, E3x1 cr):_) 
            -> setCol . uncurry translate cp . rotate (-0.25 * pi + argV (p -.- cp))
                    $ thickArc 0 (pi/2) (_crRad cr) wdth