Cleanup

lib/PNGRenderer.hs

@@ -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

src/Main.hs

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