gpu-vulkan-middle 0.1.0.65 → 0.1.0.66

raw patch · 3 files changed

+18/−2 lines, 3 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• gpu-vulkan-middle.cabal +1/−1
• src/Gpu/Vulkan/Cmd/Middle.hs +16/−0
• src/Gpu/Vulkan/Middle/Internal.hsc +1/−1

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           gpu-vulkan-middle-version:        0.1.0.65+version:        0.1.0.66 synopsis:       Medium wrapper for Vulkan API description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-middle#readme> category:       GPU

@@ -32,6 +32,10 @@  	copyBuffer, copyBufferToImage, copyImageToBuffer, blitImage, +	-- * CLEAR COLOR IMAGE++	clearColorImage,+ 	-- * MEMORY DEPENDENCY  	pipelineBarrier, pipelineBarrier2,@@ -53,6 +57,7 @@ import Control.Monad.Cont import Data.TypeLevel.Maybe qualified as TMaybe import Data.TypeLevel.List qualified as TList+import Data.List qualified as L import Data.HeteroParList qualified as HPList import Data.HeteroParList qualified as HeteroParList import Data.Word@@ -264,3 +269,14 @@ writeTimestamp 	(CommandBuffer.M.C _ c) (Pipeline.StageFlagBits fls) (QueryPool.Q q) i = 	C.writeTimestamp c fls q i++clearColorImage :: ClearColorValueToCore cct =>+	CommandBuffer.M.C -> Image.I -> Image.Layout ->+	ClearValue ('ClearTypeColor cct) -> [Image.SubresourceRange] -> IO ()+clearColorImage+	(CommandBuffer.M.C _ cb) (Image.I rimg) (Image.Layout lyt) cv srrs =+	readIORef rimg >>= \(_, img) ->+	clearColorValueToCore cv \ccv ->+	allocaArray (length srrs) \psrrs ->+	pokeArray psrrs (Image.subresourceRangeToCore <$> srrs) >>+	C.clearColorImage cb img lyt ccv (L.genericLength srrs) psrrs

@@ -18,7 +18,7 @@ 	ExtensionProperties(..), extensionPropertiesFromCore, 	StencilOpState(..), stencilOpStateToCore, 	ClearValue(..), ClearValueListToCore(..),-	ClearValueToCore, ClearColorValueToCore,+	ClearValueToCore, ClearColorValueToCore(..), 	clearValueListToArray, 	ClearType(..), ClearColorType(..),