app/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

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