2020-10-16 23:53:25 +00:00
|
|
|
module State.Loading.Load where
|
|
|
|
|
|
|
|
import Affection
|
|
|
|
|
|
|
|
import SDL (($=), get)
|
|
|
|
import qualified SDL
|
|
|
|
import qualified SDL.Internal.Numbered as SDL
|
|
|
|
import qualified SDL.Raw.Video as SDL (glSetAttribute)
|
|
|
|
import qualified SDL.Raw.Enum as SDL
|
|
|
|
|
|
|
|
import qualified Graphics.Rendering.OpenGL as GL
|
|
|
|
import qualified Graphics.GL as GLRaw
|
|
|
|
|
|
|
|
import Foreign.Marshal.Array
|
|
|
|
|
|
|
|
import qualified Data.ByteString as B
|
|
|
|
import qualified Data.ByteString.Char8 as B8
|
|
|
|
|
|
|
|
import Control.Concurrent.STM
|
|
|
|
|
|
|
|
-- internal imports
|
|
|
|
|
|
|
|
import Types
|
|
|
|
import Map
|
|
|
|
|
2020-10-17 08:35:25 +00:00
|
|
|
initLoad
|
2020-10-16 23:53:25 +00:00
|
|
|
:: GameData
|
|
|
|
-> Affection ()
|
2020-10-17 08:35:25 +00:00
|
|
|
initLoad gd =
|
|
|
|
liftIO $ atomically $ writeTVar (gameState gd) (MainGame Test)
|