2022-07-29 16:32:45 +02:00
|
|
|
module Lib where
|
2022-07-29 15:20:17 +02:00
|
|
|
|
2022-07-29 16:32:45 +02:00
|
|
|
import Graphics.Gloss
|
2022-07-31 16:01:13 +02:00
|
|
|
import Canvas
|
|
|
|
import Costants
|
2022-07-29 16:32:45 +02:00
|
|
|
|
|
|
|
app :: IO ()
|
2022-07-31 16:01:13 +02:00
|
|
|
app = play
|
|
|
|
Costants.display -- Display type
|
|
|
|
Costants.background -- Background
|
|
|
|
60 -- FPS
|
|
|
|
Costants.initial -- Initial world
|
|
|
|
Canvas.render -- Render function
|
|
|
|
Canvas.handle -- Input hadler
|
|
|
|
Canvas.update -- Update function (unused, since we don't have to make animations)
|