diff --git a/src/CommandBuffer.hs b/src/CommandBuffer.hs index 868a3b5..70971e0 100644 --- a/src/CommandBuffer.hs +++ b/src/CommandBuffer.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE FlexibleContexts #-} @@ -320,50 +319,6 @@ recordCommandBuffer ) draws - -- V.mapM_ - -- (\(IndirectBatch mesh material first count) -> do - - -- when - -- (materialTextureSet material /= Vk.NULL_HANDLE) - -- (Vk.cmdBindDescriptorSets - -- commandBuffer - -- Vk.PIPELINE_BIND_POINT_GRAPHICS - -- (materialPipelineLayout material) - -- 2 - -- (V.singleton $ materialTextureSet material) - -- V.empty - -- ) - - -- Vk.cmdBindPipeline commandBuffer Vk.PIPELINE_BIND_POINT_GRAPHICS (materialPipeline material) - - -- Vk.cmdBindDescriptorSets - -- commandBuffer - -- Vk.PIPELINE_BIND_POINT_GRAPHICS - -- (materialPipelineLayout material) - -- 0 - -- (V.singleton $ frameGlobalDescriptor frame) - -- V.empty - - -- Vk.cmdBindDescriptorSets - -- commandBuffer - -- Vk.PIPELINE_BIND_POINT_GRAPHICS - -- (materialPipelineLayout material) - -- 1 - -- (V.singleton $ frameObjectDescriptor frame) - -- V.empty - - -- Vk.cmdBindVertexBuffers - -- commandBuffer - -- 0 - -- (V.fromList [ allocatedBuffer $ meshBuffer mesh ]) - -- (V.fromList [ 0 ]) - - -- mapM_ - -- (Vk.cmdDraw commandBuffer (fromIntegral $ V.length $ meshVertices mesh) 1 0) - -- [first .. (count - 1)] - -- ) - -- draws - prepareRecording :: V2 CInt -> Vk.CommandBuffer