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
@@ -101,7 +101,7 @@ mapWall w wl =
    t = normalizeV (y -.- x)
 --    n2 = 2 *.* vNormal t
    n2 = 20 *.* vNormal t
-    (x:y:_) = _wlLine wl
+    (x,y) = _wlLine wl
    c = _wlColor wl

 {- | Pictures of popup text for items close to your position.-}