From f01d1f643cec7d31644a53a9b82a9293affd8675 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Fri, 2 Dec 2022 19:57:04 -0800
Subject: [PATCH] levels

---
 app/Main.hs | 123 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 122 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index dd7591b..ed18fe9 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -156,7 +156,7 @@ main :: IO ()
 main =
   bracket (mkVty =<< userConfig) shutdown \vty ->
    do
-      loop vty (pure world0)
+      loop vty (pure clone11)
       pure ()
 
 loop :: Vty -> NonEmpty World -> IO ()
@@ -221,3 +221,124 @@ smallWorld =
           (Original (solid 9))
           (withForeColor defAttr red))
     ]) 'b'
+
+center8 :: World
+center8 =
+  World
+    (Map.fromList
+    [('a',
+      Box (Location 'a' 3 (-3))
+          (Original (makeWalls [
+            "▓▓▓▓▓▓▓▓▓",
+            "▓▓▓▓▓▓▓▓▓",
+            "▓▓     ▓▓",
+            "▓▓     ▓▓",
+            "▓      ▓▓",
+            "▓      ▓▓",
+            "▓▓▓▓ ▓▓▓▓",
+            "▓ ▓▓   ▓▓",
+            "▓▓▓▓▓▓▓▓▓"
+           ]))
+          (withForeColor defAttr black)),
+      ('1',
+        Box
+          (Location 'a' 0 0)
+          (Original (makeWalls [
+            "       ▓▓",
+            "    ▓▓▓▓▓",
+            "         ",
+            "         ",
+            "         ",
+            "         ",
+            "         ",
+            "         ",
+            "         "
+           ]))
+          (withForeColor defAttr green)),
+      ('2',
+        Box
+          (Location '1' (-4) 0)
+          (Original (solid 9))
+          (withForeColor defAttr yellow)),
+      ('b',
+        Box
+          (Location 'a' (-1) 0)
+          (Original (solid 9))
+          (withForeColor defAttr red))
+    ]) 'b'
+
+center13 :: World
+center13 =
+  World
+    (Map.fromList
+    [('a',
+      Box (Location 'a' 3 (-3))
+          (Original (makeWalls [
+            "▓▓▓▓▓▓▓▓▓",
+            "▓       ▓",
+            "▓       ▓",
+            "▓       ▓",
+            "▓       ▓",
+            "▓  ▓▓▓ ▓▓",
+            "▓  ▓ ▓ ▓▓",
+            "▓ ▓▓    ▓",
+            "▓▓▓▓▓▓▓▓▓"
+           ]))
+          (withForeColor defAttr cyan)),
+      ('1',
+        Box
+          (Location 'a' (-1) 1)
+          (Original (makeWalls [
+            "         ",
+            " ▓▓▓▓▓▓▓ ",
+            " ▓▓▓▓▓▓▓ ",
+            " ▓▓▓▓▓▓▓ ",
+            " ▓▓▓▓▓▓▓ ",
+            " ▓▓▓▓▓▓▓ ",
+            " ▓▓▓▓▓▓▓ ",
+            " ▓▓▓▓▓▓▓ ",
+            "         "
+           ]))
+          (withForeColor defAttr green)),
+      ('2',
+        Box
+          (Location 'a' (-1) (-1))
+          (Original (solid 9))
+          (withForeColor defAttr yellow)),
+      ('b',
+        Box
+          (Location 'a' (-3) 0)
+          (Original (solid 9))
+          (withForeColor defAttr red))
+    ]) 'b'
+
+
+clone11 :: World
+clone11 =
+  World
+    (Map.fromList
+    [('a',
+      Box (Location 'a' (-2) 2)
+          (Original (makeWalls [
+            "▓▓▓▓▓▓▓▓▓",
+            "▓   ▓   ▓",
+            "▓   ▓   ▓",
+            "▓   ▓   ▓",
+            "    ▓    ",
+            "▓   ▓   ▓",
+            "▓   ▓   ▓",
+            "▓▓▓   ▓▓▓",
+            "▓▓▓▓▓▓▓▓▓"
+           ]))
+          (withForeColor defAttr green)),
+      ('A',
+        Box
+          (Location 'a' 0 2)
+          (Link 'a')
+          (withForeColor defAttr green)),
+      ('b',
+        Box
+          (Location 'a' 0 (-2))
+          (Original (solid 9))
+          (withForeColor defAttr red))
+    ]) 'b'