26 lines
776 B
Haskell
26 lines
776 B
Haskell
module Patience
|
|
( playPatience
|
|
) where
|
|
|
|
import PatienceBoard
|
|
import PatienceRenderer
|
|
|
|
import Graphics.Gloss (green, play)
|
|
|
|
---------------------------------------------------------------------
|
|
-- Single module to play patience. --
|
|
-- Includes all logic and rendering. --
|
|
---------------------------------------------------------------------
|
|
|
|
----------------------------- Constants ------------------------------
|
|
|
|
-- Framerate of the game
|
|
type FPS = Int
|
|
|
|
---------------------------------------------------------------------
|
|
|
|
-- Play a game of patience.
|
|
playPatience :: FPS -> IO()
|
|
playPatience fps = do play window green fps initGame render handleInputs step
|
|
where window = getWindow
|
|
step _ g = g
|