module Desenhar where

import Graphics.Gloss

import Worms

-- | Função que desenha o estado do jogo no Gloss.
desenha :: Worms -> Picture
desenha :: Worms -> Picture
desenha Worms
_ = Float -> Float -> Picture -> Picture
Translate (-Float
450) Float
0 (Picture -> Picture) -> Picture -> Picture
forall a b. (a -> b) -> a -> b
$ Float -> Float -> Picture -> Picture
Scale Float
0.5 Float
0.5 (Picture -> Picture) -> Picture -> Picture
forall a b. (a -> b) -> a -> b
$ String -> Picture
Text String
"Welcome to Worms!"