nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

start new chapter

Browse source
This commit is contained in:
nek0 2023-02-03 06:46:42 +01:00
parent f2af2a8ccf
commit 79a4fea655
2 changed files with 20 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Init.hs
View file

@ -119,7 +119,7 @@ initVulkan window = do
initScene initScene
return $ EngineData EngineData
window window
dimensions dimensions
vulkanPhysicalDevice vulkanPhysicalDevice
@ -137,6 +137,7 @@ initVulkan window = do
frames frames
descriptorSetLayout descriptorSetLayout
descriptorPool descriptorPool
<$> Vk.getPhysicalDeviceProperties vulkanPhysicalDevice
initScene :: (MonadReader ReadState m, MonadIO m) => m () initScene :: (MonadReader ReadState m, MonadIO m) => m ()
initScene = do initScene = do

1
src/Types.hs
View file

@ -41,6 +41,7 @@ data EngineData = EngineData
, engineFrames :: V.Vector FrameData , engineFrames :: V.Vector FrameData
, engineGlobalSetLayout :: Vk.DescriptorSetLayout , engineGlobalSetLayout :: Vk.DescriptorSetLayout
, engineDescriptorPool :: Vk.DescriptorPool , engineDescriptorPool :: Vk.DescriptorPool
, enginePhysicalDeviceProperties :: Vk.PhysicalDeviceProperties
} }
data AllocatedBuffer = AllocatedBuffer data AllocatedBuffer = AllocatedBuffer