pituicat/src/Scenes/Test/Types.hs

30 lines
576 B
Haskell
Raw Normal View History

module Scenes.Test.Types where
2021-01-11 23:51:58 +00:00
import Affection
import Control.Concurrent.STM
import qualified Data.Vector as V
-- internal imports
import Types
data Test = Test
2021-01-11 23:51:58 +00:00
{ testMap :: TMVar LevelMap
, testGraphics :: TMVar GLAssets
2021-01-11 23:51:58 +00:00
, testLoaded :: TVar Bool
, testPlayer :: TVar (Maybe Pituicat)
, testStageSet :: TVar (V.Vector StageSet)
2021-01-11 23:51:58 +00:00
, testCast :: TVar (V.Vector Cast)
, testClean :: TVar [UUID]
}
data GLAssets = GLAssets
{ glVA :: VertexArray
, glVB :: VertexBuffer
, glIB :: IndexBuffer
, glSP :: Shader
, glTx :: [Texture]
}