add types module

This commit is contained in:
nek0 2022-07-21 23:12:09 +02:00
parent 4c09e5d5a6
commit 68645fc5de

28
src/Types.hs Normal file
View file

@ -0,0 +1,28 @@
module Types where
import qualified Data.Vector as V
import Foreign.C.Types (CInt)
import Linear
import qualified SDL
import qualified Vulkan as Vk
data ShaderContainer = ShaderContainer
{ containedVertexShader :: Vk.ShaderModule
, containedFragmentShader :: Vk.ShaderModule
}
deriving (Show)
data EngineData = EngineData
{ engineWindow :: SDL.Window
, engineWindowDimensions :: V2 CInt
, engineLogicalDevice :: Vk.Device
, engineSwapchain :: Vk.SwapchainKHR
, engineQueue :: Vk.Queue
, engineCommandBuffers :: V.Vector Vk.CommandBuffer
, engineFramebuffers :: V.Vector Vk.Framebuffer
, enginePipelines :: V.Vector Vk.Pipeline
, engineRenderPass :: Vk.RenderPass
, engineInFlightFence :: Vk.Fence
, engineImageAvailableSemaphore :: Vk.Semaphore
, engineRenderFinishedSemaphore :: Vk.Semaphore
}