From 7133a728596918544601a18e3090281eaff34ad1 Mon Sep 17 00:00:00 2001
From: melody!
Date: Wed, 7 Aug 2024 21:23:52 -0400
Subject: did stuff

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

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 60d904e..f8e8c5f 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,8 +1,38 @@
 module Main where
+import Screen
 
-import qualified MyLib (someFunc)
+import Beekeep
+  ( Garden
+  , newGarden
+  , gardenWidth
+  -- , gardenHeight
+  , gardenGet )
+
+printGarden' :: [(Int, Int)] -> Garden -> IO ()
+printGarden' [] _ = return ()
+printGarden' ((x,y):xs) g =
+  do
+    _ <- gardenGet g (x, y)
+    putChar 'x'
+    if x == viewportWidth then
+      putStrLn ""
+    else return ()
+    printGarden' xs g
+
+viewportWidth :: Int
+viewportWidth = 32
+
+viewportHeight :: Int
+viewportHeight = 16
+
+printGarden :: Garden -> IO ()
+printGarden = printGarden' [(x, y) |
+  y <- [1..viewportHeight],
+  x <- [1..viewportWidth]]
 
 main :: IO ()
 main = do
-  putStrLn "Hello, Haskell!"
-  MyLib.someFunc
+  clear
+  g <- newGarden
+  printGarden g
+
-- 
cgit 1.4.1-2-gfad0