From 7f236b0fe2949e12074c71d6ce516cc320ec5348 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@galois.com>
Date: Fri, 2 Dec 2022 11:26:00 -0800
Subject: [PATCH] fiddle with world map

---
 app/Main.hs | 39 +++++++++++++++++++++++++++++++++------
 1 file changed, 33 insertions(+), 6 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 8e522ad..4da724f 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -30,13 +30,13 @@ world0 = World {
       boxColor = withForeColor defAttr cyan,
       boxLocation = Location '1' 1 1,
       boxWalls = makeWalls [
-        "▓▓▓ ▓▓▓",
-        "▓     ▓",
+        "▓ ▓ ▓ ▓",
+        "       ",
         "▓     ▓",
         "       ",
         "▓     ▓",
-        "▓     ▓",
-        "▓▓▓ ▓▓▓"
+        "       ",
+        "▓ ▓ ▓ ▓"
       ]
     }),
     ('3', Box {
@@ -68,7 +68,15 @@ world0 = World {
     ('b', Box {
         boxColor = withForeColor defAttr red,
         boxLocation = Location '1' 0 1,
-        boxWalls = solid 7
+        boxWalls = makeWalls [
+        "▓▓▓▓▓▓▓",
+        "▓     ▓",
+        "▓ ▓ ▓ ▓",
+        "       ",
+        "▓    ▓▓",
+        "▓     ▓",
+        "▓▓▓▓▓▓▓"
+        ]
     }),
     ('x', Box {
         boxColor = withForeColor defAttr yellow,
@@ -79,8 +87,27 @@ world0 = World {
         boxColor = withForeColor defAttr magenta,
         boxLocation = Location '1' 0 (-2),
         boxWalls = solid 7
+    }),
+    ('i', Box {
+        boxColor = withForeColor defAttr black,
+        boxLocation = Location 'b' 0 (-2),
+        boxWalls = solid 7
+    }),
+    ('j', Box {
+        boxColor = withForeColor defAttr black,
+        boxLocation = Location 'b' 0 (-1),
+        boxWalls = solid 7
+    }),
+        ('k', Box {
+        boxColor = withForeColor defAttr black,
+        boxLocation = Location 'b' 0 0,
+        boxWalls = solid 7
+    }),
+        ('l', Box {
+        boxColor = withForeColor defAttr black,
+        boxLocation = Location 'b' 0 1,
+        boxWalls = solid 7
     })
-
     ]
   }