module Main where

import Graphics.Gloss

import Desenhar
import Eventos
import Worms
import Tempo

janela :: Display
janela :: Display
janela = String -> (Int, Int) -> (Int, Int) -> Display
InWindow String
"Worms" (Int
1920, Int
1080) (Int
0, Int
0)

fundo :: Color
fundo :: Color
fundo = Color
white

fr :: Int
fr :: Int
fr = Int
60

-- | Função principal que invoca o Gloss para correr o jogo.
main :: IO ()
IO ()
main = do
  String -> IO ()
putStrLn String
"Hello from Worms!"

  Display
-> Color
-> Int
-> Worms
-> (Worms -> Picture)
-> (Event -> Worms -> Worms)
-> (Float -> Worms -> Worms)
-> IO ()
forall world.
Display
-> Color
-> Int
-> world
-> (world -> Picture)
-> (Event -> world -> world)
-> (Float -> world -> world)
-> IO ()
play Display
janela Color
fundo Int
fr Worms
it Worms -> Picture
desenha Event -> Worms -> Worms
reageEventos Float -> Worms -> Worms
reageTempo
  where
    it :: Worms
it = Worms {}