1
Fork 0
This commit is contained in:
Tibo De Peuter 2022-11-15 23:33:12 +01:00
parent 425bb6eee2
commit d0b41049be
2 changed files with 13 additions and 3 deletions

View file

@ -31,8 +31,10 @@ renderPNG = fromJust . unsafePerformIO . loadJuicyPNG
blank :: Picture
blank = Gloss.Blank
-- Translate a picture by moving it along two axis.
translate :: Float -> Float -> Picture -> Picture
translate = Gloss.translate
-- Compose multiple pictures into a single picture.
compose :: [Picture] -> Picture
compose = Gloss.Pictures

View file

@ -1,4 +1,12 @@
import VoorbeeldModule (hoi)
import Patience
main :: IO ()
main = putStrLn hoi
----------------------------- Constants ------------------------------
-- Framerate of the game
fps :: Int
fps = 60
----------------------------------------------------------------------
main :: IO()
main = playPatience fps