Safe Haskell	None
Language	Haskell2010

Play.Engine.MySDL.MySDL

Synopsis

myWindowConfig :: V2 CInt -> WindowConfig
withWindow :: Text -> WindowConfig -> (Window -> IO a) -> IO a
withRenderer :: MonadIO m => Window -> ((Window, Renderer) -> m a) -> m a
apploop :: ResourcesT TVar -> TQueue Response -> Window -> Renderer -> a -> ([Response] -> [EventPayload] -> (Scancode -> Bool) -> a -> IO (Either [String] ([Request], a))) -> (a -> IO ()) -> IO a
regulateFPS :: Word32 -> Word32 -> Word32 -> IO ()
getJoystick :: IO (Maybe Joystick)
setBGColor :: MonadIO m => V4 Word8 -> Renderer -> m Renderer
collectEvents :: MonadIO m => m [EventPayload]
checkEvent :: EventPayload -> [EventPayload] -> Bool
isWindowHidden :: [EventPayload] -> Bool
isWindowExposed :: [EventPayload] -> Bool
data Resource
- = RTexture Texture
- | RFont Font
- | RMusic ByteString
data ResourceType a
- = Texture a
- | Font a
- | Music a
data Request
- = Load ![(String, ResourceType FilePath)]
- | DestroyTexture Texture
- | MakeText (String, FilePath) Text
- | PlayMusic (String, FilePath)
- | MuteMusic
- | UnmuteMusic
- | SetNormalWindowScale Size
- | SetSmallWindowScale Size
data Response
- = ResourcesLoaded Resources
- | NewText Texture
- | Exception String
data ResourcesT f = Resources {
- textures :: HKD f (Map FilePath Texture)
- fonts :: HKD f (Map FilePath Font)
- music :: HKD f (Map FilePath ByteString)
}
type family HKD f a where ...
type Resources = ResourcesT Identity
initResources :: IO (ResourcesT TVar)
runRequest :: ResourcesT TVar -> TQueue Response -> Window -> Renderer -> Request -> IO ()
loadResource :: (HKD f (Map FilePath Font) ~# TVar (Map [Char] Font), HKD f (Map FilePath Texture) ~# TVar (Map [Char] Texture), HKD f (Map FilePath ByteString) ~# TVar (Map [Char] ByteString)) => Renderer -> ResourcesT f -> (t, ResourceType [Char]) -> IO (t, Resource)
resourcesToResponse :: [(String, Resource)] -> Response

Documentation

myWindowConfig :: V2 CInt -> WindowConfig Source #

Config window

withWindow :: Text -> WindowConfig -> (Window -> IO a) -> IO a Source #

Init SDL and create a Window and pass in as a parameter to function

withRenderer :: MonadIO m => Window -> ((Window, Renderer) -> m a) -> m a Source #

apploop :: ResourcesT TVar -> TQueue Response -> Window -> Renderer -> a -> ([Response] -> [EventPayload] -> (Scancode -> Bool) -> a -> IO (Either [String] ([Request], a))) -> (a -> IO ()) -> IO a Source #

App loop: takes the current world and functions that updates the world renders it manage ticks, events and loop

regulateFPS :: Word32 -> Word32 -> Word32 -> IO () Source #

Will wait until ticks pass

getJoystick :: IO (Maybe Joystick) Source #

setBGColor :: MonadIO m => V4 Word8 -> Renderer -> m Renderer Source #

collectEvents :: MonadIO m => m [EventPayload] Source #

Collect all events from inputs

checkEvent :: EventPayload -> [EventPayload] -> Bool Source #

Checks if specific event happend

isWindowHidden :: [EventPayload] -> Bool Source #

isWindowExposed :: [EventPayload] -> Bool Source #

data Resource Source #

Constructors

RTexture Texture
RFont Font
RMusic ByteString

data ResourceType a Source #

Constructors

Texture a
Font a
Music a

data Request Source #

Constructors

Load ![(String, ResourceType FilePath)]
DestroyTexture Texture
MakeText (String, FilePath) Text
PlayMusic (String, FilePath)
MuteMusic
UnmuteMusic
SetNormalWindowScale Size
SetSmallWindowScale Size

data Response Source #

Constructors

ResourcesLoaded Resources
NewText Texture
Exception String

data ResourcesT f Source #

Constructors

Resources
Fields textures :: HKD f (Map FilePath Texture) fonts :: HKD f (Map FilePath Font) music :: HKD f (Map FilePath ByteString)

type family HKD f a where ... Source #

Equations

HKD Identity a = a
HKD f a = f a

type Resources = ResourcesT Identity Source #

initResources :: IO (ResourcesT TVar) Source #

runRequest :: ResourcesT TVar -> TQueue Response -> Window -> Renderer -> Request -> IO () Source #

loadResource :: (HKD f (Map FilePath Font) ~# TVar (Map [Char] Font), HKD f (Map FilePath Texture) ~# TVar (Map [Char] Texture), HKD f (Map FilePath ByteString) ~# TVar (Map [Char] ByteString)) => Renderer -> ResourcesT f -> (t, ResourceType [Char]) -> IO (t, Resource) Source #

resourcesToResponse :: [(String, Resource)] -> Response Source #