2021-01-11 09:33:20 +00:00
|
|
|
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
|
|
|
|
|
2021-01-11 09:33:20 +00:00
|
|
|
import Control.Concurrent.STM
|
|
|
|
|
|
|
|
import qualified Data.Vector as V
|
|
|
|
|
|
|
|
-- internal imports
|
|
|
|
|
|
|
|
import Types
|
2021-04-29 18:28:52 +00:00
|
|
|
import Graphics
|
2021-01-11 09:33:20 +00:00
|
|
|
|
|
|
|
data Test = Test
|
2021-01-11 23:51:58 +00:00
|
|
|
{ testMap :: TMVar LevelMap
|
2021-01-11 09:33:20 +00:00
|
|
|
, testGraphics :: TMVar GLAssets
|
2021-01-11 23:51:58 +00:00
|
|
|
, testLoaded :: TVar Bool
|
|
|
|
, testPlayer :: TVar (Maybe Pituicat)
|
2021-01-11 09:33:20 +00:00
|
|
|
, 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]
|
2021-01-11 09:33:20 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
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
|
|
|
|
}
|