pituicat/src/Scenes/Test/Types.hs

40 lines
750 B
Haskell
Raw Normal View History

module Scenes.Test.Types where
2021-01-11 23:51:58 +00:00
import Affection
2021-01-20 04:12:16 +00:00
import Linear
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)
2021-04-20 02:19:54 +00:00
, testPowerups :: TVar (V.Vector PowerUp)
2021-01-20 04:12:16 +00:00
, testMatrices :: TVar PVM
2021-01-11 23:51:58 +00:00
, testClean :: TVar [UUID]
}
data GLAssets = GLAssets
{ glVA :: VertexArray
, glVB :: VertexBuffer
, glIB :: IndexBuffer
, glSP :: Shader
, glTx :: [Texture]
}
2021-01-20 04:12:16 +00:00
data PVM = PVM
{ pvmP :: M44 Float
, pvmV :: M44 Float
, pvmM :: M44 Float
}