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 }) - ] }