pituicat/src/Main.hs

61 lines
1.4 KiB
Haskell
Raw Normal View History

2020-09-23 23:26:47 +00:00
{-# LANGUAGE OverloadedStrings #-}
2020-08-30 15:36:32 +00:00
module Main where
2020-09-23 23:26:47 +00:00
import Affection
import qualified Data.Text as T
import qualified SDL
import Control.Concurrent.STM
import qualified Data.Map.Strict as M
import Linear
-- internal imports
import Types
instance Affectionate GameData where
preLoop _ = return ()
handleEvents _ _ = return ()
update _ _ = return ()
draw _ = return ()
loadState = Main.init
cleanUp _ = return ()
hasNextStep = liftIO . atomically . readTVar . gameRunning
2020-08-30 15:36:32 +00:00
main :: IO ()
2020-09-23 23:26:47 +00:00
main = do
let config = AffectionConfig
{ initComponents = All
, windowTitle = "Pituicat"
, windowConfigs =
[ ( 0
, SDL.defaultWindow
{ SDL.windowInitialSize = V2 800 600
, SDL.windowResizable = True
, SDL.windowGraphicsContext = SDL.OpenGLContext SDL.defaultOpenGL
{ SDL.glProfile = SDL.Core SDL.Normal 3 3
}
}
, SDL.Windowed
)
]
} :: AffectionConfig GameData
withAffection config
init :: IO GameData
init = GameData
<$> newTVarIO Loading
2020-10-09 23:00:33 +00:00
<*> newTVarIO EmptyData
2020-09-23 23:26:47 +00:00
<*> (Subsystems
<$> (SubWindow <$> newTVarIO [])
<*> (SubMouse <$> newTVarIO [])
<*> (SubKeyboard <$> newTVarIO [])
<*> (SubTranslator <$> newTVarIO [])
)
<*> newTVarIO (M.fromList [])
<*> newTVarIO True