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
@@ -83,7 +83,7 @@ windowLineType = PutLineBlock baseWindowPane 8 8

 baseBlockPane :: Wall
 baseBlockPane = Block
-    { _wlLine = []
+    { _wlLine = ((0,0),(50,0))
    , _wlID = 0
    , _wlColor = greyN 0.5
    , _wlSeen = False
@@ -96,7 +96,7 @@ baseBlockPane = Block
    }
 baseWindowPane :: Wall
 baseWindowPane = Block
-    { _wlLine = []
+    { _wlLine = ((0,0),(50,0))
    , _wlID = 0
    , _wlColor = withAlpha 0.2 cyan
    , _wlSeen = False