Cleanup
This commit is contained in:
parent
425bb6eee2
commit
d0b41049be
2 changed files with 13 additions and 3 deletions
|
@ -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
|
||||
|
|
14
src/Main.hs
14
src/Main.hs
|
@ -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
|
||||
|
|
Reference in a new issue