module Main where
import Screen

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
  clear
  g <- newGarden
  printGarden g