{-# language CPP #-}
module Vulkan.Extensions.VK_EXT_extended_dynamic_state3 ( cmdSetTessellationDomainOriginEXT
, cmdSetDepthClampEnableEXT
, cmdSetPolygonModeEXT
, cmdSetRasterizationSamplesEXT
, cmdSetSampleMaskEXT
, cmdSetAlphaToCoverageEnableEXT
, cmdSetAlphaToOneEnableEXT
, cmdSetLogicOpEnableEXT
, cmdSetColorBlendEnableEXT
, cmdSetColorBlendEquationEXT
, cmdSetColorWriteMaskEXT
, cmdSetRasterizationStreamEXT
, cmdSetConservativeRasterizationModeEXT
, cmdSetExtraPrimitiveOverestimationSizeEXT
, cmdSetDepthClipEnableEXT
, cmdSetSampleLocationsEnableEXT
, cmdSetColorBlendAdvancedEXT
, cmdSetProvokingVertexModeEXT
, cmdSetLineRasterizationModeEXT
, cmdSetLineStippleEnableEXT
, cmdSetDepthClipNegativeOneToOneEXT
, cmdSetViewportWScalingEnableNV
, cmdSetViewportSwizzleNV
, cmdSetCoverageToColorEnableNV
, cmdSetCoverageToColorLocationNV
, cmdSetCoverageModulationModeNV
, cmdSetCoverageModulationTableEnableNV
, cmdSetCoverageModulationTableNV
, cmdSetShadingRateImageEnableNV
, cmdSetCoverageReductionModeNV
, cmdSetRepresentativeFragmentTestEnableNV
, PhysicalDeviceExtendedDynamicState3FeaturesEXT(..)
, PhysicalDeviceExtendedDynamicState3PropertiesEXT(..)
, ColorBlendEquationEXT(..)
, ColorBlendAdvancedEXT(..)
, EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION
, pattern EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION
, EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME
, pattern EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME
, ViewportSwizzleNV(..)
, ViewportCoordinateSwizzleNV(..)
, BlendOverlapEXT(..)
, CoverageModulationModeNV(..)
, CoverageReductionModeNV(..)
, ConservativeRasterizationModeEXT(..)
, LineRasterizationModeEXT(..)
, ProvokingVertexModeEXT(..)
) where
import Vulkan.Internal.Utils (traceAroundEvent)
import Control.Monad (unless)
import Control.Monad.IO.Class (liftIO)
import Foreign.Marshal.Alloc (allocaBytes)
import GHC.IO (throwIO)
import GHC.Ptr (nullFunPtr)
import Foreign.Ptr (nullPtr)
import Foreign.Ptr (plusPtr)
import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.Cont (evalContT)
import qualified Data.Vector (imapM_)
import qualified Data.Vector (length)
import Foreign.C.Types (CFloat(..))
import Vulkan.CStruct (FromCStruct)
import Vulkan.CStruct (FromCStruct(..))
import Vulkan.CStruct (ToCStruct)
import Vulkan.CStruct (ToCStruct(..))
import Vulkan.Zero (Zero(..))
import Control.Monad.IO.Class (MonadIO)
import Data.String (IsString)
import Data.Typeable (Typeable)
import Foreign.C.Types (CFloat)
import Foreign.C.Types (CFloat(CFloat))
import Foreign.Storable (Storable)
import Foreign.Storable (Storable(peek))
import Foreign.Storable (Storable(poke))
import qualified Foreign.Storable (Storable(..))
import GHC.Generics (Generic)
import GHC.IO.Exception (IOErrorType(..))
import GHC.IO.Exception (IOException(..))
import Foreign.Ptr (FunPtr)
import Foreign.Ptr (Ptr)
import Data.Word (Word32)
import Data.Kind (Type)
import Control.Monad.Trans.Cont (ContT(..))
import Data.Vector (Vector)
import Vulkan.Core10.FundamentalTypes (bool32ToBool)
import Vulkan.Core10.FundamentalTypes (boolToBool32)
import Vulkan.NamedType ((:::))
import Vulkan.Core10.Enums.BlendFactor (BlendFactor)
import Vulkan.Core10.Enums.BlendOp (BlendOp)
import Vulkan.Extensions.VK_EXT_blend_operation_advanced (BlendOverlapEXT)
import Vulkan.Core10.FundamentalTypes (Bool32)
import Vulkan.Core10.FundamentalTypes (Bool32(..))
import Vulkan.Core10.Enums.ColorComponentFlagBits (ColorComponentFlagBits(..))
import Vulkan.Core10.Enums.ColorComponentFlagBits (ColorComponentFlags)
import Vulkan.Core10.Handles (CommandBuffer)
import Vulkan.Core10.Handles (CommandBuffer(..))
import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer))
import Vulkan.Core10.Handles (CommandBuffer_T)
import Vulkan.Extensions.VK_EXT_conservative_rasterization (ConservativeRasterizationModeEXT)
import Vulkan.Extensions.VK_EXT_conservative_rasterization (ConservativeRasterizationModeEXT(..))
import Vulkan.Extensions.VK_NV_framebuffer_mixed_samples (CoverageModulationModeNV)
import Vulkan.Extensions.VK_NV_framebuffer_mixed_samples (CoverageModulationModeNV(..))
import Vulkan.Extensions.VK_NV_coverage_reduction_mode (CoverageReductionModeNV)
import Vulkan.Extensions.VK_NV_coverage_reduction_mode (CoverageReductionModeNV(..))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetAlphaToCoverageEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetAlphaToOneEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetColorBlendAdvancedEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetColorBlendEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetColorBlendEquationEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetColorWriteMaskEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetConservativeRasterizationModeEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCoverageModulationModeNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCoverageModulationTableEnableNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCoverageModulationTableNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCoverageReductionModeNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCoverageToColorEnableNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCoverageToColorLocationNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetDepthClampEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetDepthClipEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetDepthClipNegativeOneToOneEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetExtraPrimitiveOverestimationSizeEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetLineRasterizationModeEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetLineStippleEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetLogicOpEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetPolygonModeEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetProvokingVertexModeEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetRasterizationSamplesEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetRasterizationStreamEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetRepresentativeFragmentTestEnableNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetSampleLocationsEnableEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetSampleMaskEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetShadingRateImageEnableNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetTessellationDomainOriginEXT))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetViewportSwizzleNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdSetViewportWScalingEnableNV))
import Vulkan.Extensions.VK_EXT_line_rasterization (LineRasterizationModeEXT)
import Vulkan.Extensions.VK_EXT_line_rasterization (LineRasterizationModeEXT(..))
import Vulkan.Core10.Enums.PolygonMode (PolygonMode)
import Vulkan.Core10.Enums.PolygonMode (PolygonMode(..))
import Vulkan.Extensions.VK_EXT_provoking_vertex (ProvokingVertexModeEXT)
import Vulkan.Extensions.VK_EXT_provoking_vertex (ProvokingVertexModeEXT(..))
import Vulkan.Core10.Enums.SampleCountFlagBits (SampleCountFlagBits)
import Vulkan.Core10.Enums.SampleCountFlagBits (SampleCountFlagBits(..))
import Vulkan.Core10.FundamentalTypes (SampleMask)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Core11.Enums.TessellationDomainOrigin (TessellationDomainOrigin)
import Vulkan.Core11.Enums.TessellationDomainOrigin (TessellationDomainOrigin(..))
import Vulkan.Extensions.VK_NV_viewport_swizzle (ViewportSwizzleNV)
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_FEATURES_EXT))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_PROPERTIES_EXT))
import Vulkan.Extensions.VK_EXT_blend_operation_advanced (BlendOverlapEXT(..))
import Vulkan.Extensions.VK_EXT_conservative_rasterization (ConservativeRasterizationModeEXT(..))
import Vulkan.Extensions.VK_NV_framebuffer_mixed_samples (CoverageModulationModeNV(..))
import Vulkan.Extensions.VK_NV_coverage_reduction_mode (CoverageReductionModeNV(..))
import Vulkan.Extensions.VK_EXT_line_rasterization (LineRasterizationModeEXT(..))
import Vulkan.Extensions.VK_EXT_provoking_vertex (ProvokingVertexModeEXT(..))
import Vulkan.Extensions.VK_NV_viewport_swizzle (ViewportCoordinateSwizzleNV(..))
import Vulkan.Extensions.VK_NV_viewport_swizzle (ViewportSwizzleNV(..))
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetTessellationDomainOriginEXT
:: FunPtr (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ()) -> Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ()
cmdSetTessellationDomainOriginEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
TessellationDomainOrigin
-> io ()
cmdSetTessellationDomainOriginEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> TessellationDomainOrigin -> io ()
cmdSetTessellationDomainOriginEXT CommandBuffer
commandBuffer TessellationDomainOrigin
domainOrigin = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetTessellationDomainOriginEXTPtr :: FunPtr (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
vkCmdSetTessellationDomainOriginEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
pVkCmdSetTessellationDomainOriginEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds :: DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
vkCmdSetTessellationDomainOriginEXTPtr FunPtr (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetTessellationDomainOriginEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetTessellationDomainOriginEXT' :: Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ()
vkCmdSetTessellationDomainOriginEXT' = FunPtr (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
-> Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ()
mkVkCmdSetTessellationDomainOriginEXT FunPtr (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ())
vkCmdSetTessellationDomainOriginEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetTessellationDomainOriginEXT" (Ptr CommandBuffer_T -> TessellationDomainOrigin -> IO ()
vkCmdSetTessellationDomainOriginEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(TessellationDomainOrigin
domainOrigin))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetDepthClampEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetDepthClampEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("depthClampEnable" ::: Bool)
-> io ()
cmdSetDepthClampEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetDepthClampEnableEXT CommandBuffer
commandBuffer Bool
depthClampEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetDepthClampEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClampEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetDepthClampEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClampEnableEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetDepthClampEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetDepthClampEnableEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetDepthClampEnableEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetDepthClampEnableEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClampEnableEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetDepthClampEnableEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetDepthClampEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
depthClampEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetPolygonModeEXT
:: FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ()) -> Ptr CommandBuffer_T -> PolygonMode -> IO ()
cmdSetPolygonModeEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
PolygonMode
-> io ()
cmdSetPolygonModeEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> PolygonMode -> io ()
cmdSetPolygonModeEXT CommandBuffer
commandBuffer PolygonMode
polygonMode = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetPolygonModeEXTPtr :: FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ())
vkCmdSetPolygonModeEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ())
pVkCmdSetPolygonModeEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ())
vkCmdSetPolygonModeEXTPtr FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ())
-> FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ()) -> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetPolygonModeEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetPolygonModeEXT' :: Ptr CommandBuffer_T -> PolygonMode -> IO ()
vkCmdSetPolygonModeEXT' = FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ())
-> Ptr CommandBuffer_T -> PolygonMode -> IO ()
mkVkCmdSetPolygonModeEXT FunPtr (Ptr CommandBuffer_T -> PolygonMode -> IO ())
vkCmdSetPolygonModeEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetPolygonModeEXT" (Ptr CommandBuffer_T -> PolygonMode -> IO ()
vkCmdSetPolygonModeEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(PolygonMode
polygonMode))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetRasterizationSamplesEXT
:: FunPtr (Ptr CommandBuffer_T -> SampleCountFlagBits -> IO ()) -> Ptr CommandBuffer_T -> SampleCountFlagBits -> IO ()
cmdSetRasterizationSamplesEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("rasterizationSamples" ::: SampleCountFlagBits)
-> io ()
cmdSetRasterizationSamplesEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> io ()
cmdSetRasterizationSamplesEXT CommandBuffer
commandBuffer "rasterizationSamples" ::: SampleCountFlagBits
rasterizationSamples = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetRasterizationSamplesEXTPtr :: FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
vkCmdSetRasterizationSamplesEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
pVkCmdSetRasterizationSamplesEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
vkCmdSetRasterizationSamplesEXTPtr FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetRasterizationSamplesEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetRasterizationSamplesEXT' :: Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ()
vkCmdSetRasterizationSamplesEXT' = FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
-> Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> IO ()
mkVkCmdSetRasterizationSamplesEXT FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ())
vkCmdSetRasterizationSamplesEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetRasterizationSamplesEXT" (Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits) -> IO ()
vkCmdSetRasterizationSamplesEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
("rasterizationSamples" ::: SampleCountFlagBits
rasterizationSamples))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetSampleMaskEXT
:: FunPtr (Ptr CommandBuffer_T -> SampleCountFlagBits -> Ptr SampleMask -> IO ()) -> Ptr CommandBuffer_T -> SampleCountFlagBits -> Ptr SampleMask -> IO ()
cmdSetSampleMaskEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("samples" ::: SampleCountFlagBits)
->
("sampleMask" ::: Vector SampleMask)
-> io ()
cmdSetSampleMaskEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("sampleMask" ::: Vector SampleMask)
-> io ()
cmdSetSampleMaskEXT CommandBuffer
commandBuffer "rasterizationSamples" ::: SampleCountFlagBits
samples "sampleMask" ::: Vector SampleMask
sampleMask = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetSampleMaskEXTPtr :: FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
vkCmdSetSampleMaskEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
pVkCmdSetSampleMaskEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
vkCmdSetSampleMaskEXTPtr FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetSampleMaskEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetSampleMaskEXT' :: Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ()
vkCmdSetSampleMaskEXT' = FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
-> Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ()
mkVkCmdSetSampleMaskEXT FunPtr
(Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ())
vkCmdSetSampleMaskEXTPtr
"pSampleMask" ::: Ptr SampleMask
pPSampleMask <- ((("pSampleMask" ::: Ptr SampleMask) -> IO ()) -> IO ())
-> ContT () IO ("pSampleMask" ::: Ptr SampleMask)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pSampleMask" ::: Ptr SampleMask) -> IO ()) -> IO ())
-> ContT () IO ("pSampleMask" ::: Ptr SampleMask))
-> ((("pSampleMask" ::: Ptr SampleMask) -> IO ()) -> IO ())
-> ContT () IO ("pSampleMask" ::: Ptr SampleMask)
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @SampleMask ((("sampleMask" ::: Vector SampleMask) -> Int
forall a. Vector a -> Int
Data.Vector.length ("sampleMask" ::: Vector SampleMask
sampleMask)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
4)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> SampleMask -> IO ())
-> ("sampleMask" ::: Vector SampleMask) -> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i SampleMask
e -> ("pSampleMask" ::: Ptr SampleMask) -> SampleMask -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ("pSampleMask" ::: Ptr SampleMask
pPSampleMask ("pSampleMask" ::: Ptr SampleMask)
-> Int -> "pSampleMask" ::: Ptr SampleMask
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr SampleMask) (SampleMask
e)) ("sampleMask" ::: Vector SampleMask
sampleMask)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetSampleMaskEXT" (Ptr CommandBuffer_T
-> ("rasterizationSamples" ::: SampleCountFlagBits)
-> ("pSampleMask" ::: Ptr SampleMask)
-> IO ()
vkCmdSetSampleMaskEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
("rasterizationSamples" ::: SampleCountFlagBits
samples)
("pSampleMask" ::: Ptr SampleMask
pPSampleMask))
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetAlphaToCoverageEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetAlphaToCoverageEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("alphaToCoverageEnable" ::: Bool)
-> io ()
cmdSetAlphaToCoverageEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetAlphaToCoverageEnableEXT CommandBuffer
commandBuffer Bool
alphaToCoverageEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetAlphaToCoverageEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetAlphaToCoverageEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetAlphaToCoverageEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetAlphaToCoverageEnableEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetAlphaToCoverageEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetAlphaToCoverageEnableEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetAlphaToCoverageEnableEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetAlphaToCoverageEnableEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetAlphaToCoverageEnableEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetAlphaToCoverageEnableEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetAlphaToCoverageEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
alphaToCoverageEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetAlphaToOneEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetAlphaToOneEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("alphaToOneEnable" ::: Bool)
-> io ()
cmdSetAlphaToOneEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetAlphaToOneEnableEXT CommandBuffer
commandBuffer Bool
alphaToOneEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetAlphaToOneEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetAlphaToOneEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetAlphaToOneEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetAlphaToOneEnableEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetAlphaToOneEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetAlphaToOneEnableEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetAlphaToOneEnableEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetAlphaToOneEnableEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetAlphaToOneEnableEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetAlphaToOneEnableEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetAlphaToOneEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
alphaToOneEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetLogicOpEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetLogicOpEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("logicOpEnable" ::: Bool)
-> io ()
cmdSetLogicOpEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetLogicOpEnableEXT CommandBuffer
commandBuffer Bool
logicOpEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetLogicOpEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetLogicOpEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetLogicOpEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetLogicOpEnableEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetLogicOpEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetLogicOpEnableEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetLogicOpEnableEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetLogicOpEnableEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetLogicOpEnableEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetLogicOpEnableEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetLogicOpEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
logicOpEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetColorBlendEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr Bool32 -> IO ()
cmdSetColorBlendEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("firstAttachment" ::: Word32)
->
("colorBlendEnables" ::: Vector Bool)
-> io ()
cmdSetColorBlendEnableEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> SampleMask -> ("colorBlendEnables" ::: Vector Bool) -> io ()
cmdSetColorBlendEnableEXT CommandBuffer
commandBuffer
SampleMask
firstAttachment
"colorBlendEnables" ::: Vector Bool
colorBlendEnables = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetColorBlendEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
vkCmdSetColorBlendEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
pVkCmdSetColorBlendEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
vkCmdSetColorBlendEnableEXTPtr FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetColorBlendEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetColorBlendEnableEXT' :: Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ()
vkCmdSetColorBlendEnableEXT' = FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
-> Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ()
mkVkCmdSetColorBlendEnableEXT FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
vkCmdSetColorBlendEnableEXTPtr
"pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
pPColorBlendEnables <- ((("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
-> IO ())
-> ContT
()
IO
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
-> IO ())
-> ContT
()
IO
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)))
-> ((("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ())
-> IO ())
-> ContT
()
IO
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @Bool32 ((("colorBlendEnables" ::: Vector Bool) -> Int
forall a. Vector a -> Int
Data.Vector.length ("colorBlendEnables" ::: Vector Bool
colorBlendEnables)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
4)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> Bool -> IO ())
-> ("colorBlendEnables" ::: Vector Bool) -> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i Bool
e -> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
pPColorBlendEnables ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr Bool32) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
e))) ("colorBlendEnables" ::: Vector Bool
colorBlendEnables)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetColorBlendEnableEXT" (Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> IO ()
vkCmdSetColorBlendEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(SampleMask
firstAttachment)
((Int -> SampleMask
forall a b. (Integral a, Num b) => a -> b
fromIntegral (("colorBlendEnables" ::: Vector Bool) -> Int
forall a. Vector a -> Int
Data.Vector.length (("colorBlendEnables" ::: Vector Bool) -> Int)
-> ("colorBlendEnables" ::: Vector Bool) -> Int
forall a b. (a -> b) -> a -> b
$ ("colorBlendEnables" ::: Vector Bool
colorBlendEnables)) :: Word32))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
pPColorBlendEnables))
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetColorBlendEquationEXT
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ColorBlendEquationEXT -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ColorBlendEquationEXT -> IO ()
cmdSetColorBlendEquationEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("firstAttachment" ::: Word32)
->
("colorBlendEquations" ::: Vector ColorBlendEquationEXT)
-> io ()
cmdSetColorBlendEquationEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> SampleMask
-> ("colorBlendEquations" ::: Vector ColorBlendEquationEXT)
-> io ()
cmdSetColorBlendEquationEXT CommandBuffer
commandBuffer
SampleMask
firstAttachment
"colorBlendEquations" ::: Vector ColorBlendEquationEXT
colorBlendEquations = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetColorBlendEquationEXTPtr :: FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
vkCmdSetColorBlendEquationEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
pVkCmdSetColorBlendEquationEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
vkCmdSetColorBlendEquationEXTPtr FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetColorBlendEquationEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetColorBlendEquationEXT' :: Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ()
vkCmdSetColorBlendEquationEXT' = FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
-> Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ()
mkVkCmdSetColorBlendEquationEXT FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
vkCmdSetColorBlendEquationEXTPtr
"pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
pPColorBlendEquations <- ((("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO ())
-> IO ())
-> ContT
() IO ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO ())
-> IO ())
-> ContT
() IO ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT))
-> ((("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ())
-> IO ())
-> ContT
() IO ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @ColorBlendEquationEXT ((("colorBlendEquations" ::: Vector ColorBlendEquationEXT) -> Int
forall a. Vector a -> Int
Data.Vector.length ("colorBlendEquations" ::: Vector ColorBlendEquationEXT
colorBlendEquations)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
24)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> ColorBlendEquationEXT -> IO ())
-> ("colorBlendEquations" ::: Vector ColorBlendEquationEXT)
-> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i ColorBlendEquationEXT
e -> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> ColorBlendEquationEXT -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
pPColorBlendEquations ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
24 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr ColorBlendEquationEXT) (ColorBlendEquationEXT
e)) ("colorBlendEquations" ::: Vector ColorBlendEquationEXT
colorBlendEquations)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetColorBlendEquationEXT" (Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ()
vkCmdSetColorBlendEquationEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(SampleMask
firstAttachment)
((Int -> SampleMask
forall a b. (Integral a, Num b) => a -> b
fromIntegral (("colorBlendEquations" ::: Vector ColorBlendEquationEXT) -> Int
forall a. Vector a -> Int
Data.Vector.length (("colorBlendEquations" ::: Vector ColorBlendEquationEXT) -> Int)
-> ("colorBlendEquations" ::: Vector ColorBlendEquationEXT) -> Int
forall a b. (a -> b) -> a -> b
$ ("colorBlendEquations" ::: Vector ColorBlendEquationEXT
colorBlendEquations)) :: Word32))
("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
pPColorBlendEquations))
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetColorWriteMaskEXT
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ColorComponentFlags -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ColorComponentFlags -> IO ()
cmdSetColorWriteMaskEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("firstAttachment" ::: Word32)
->
("colorWriteMasks" ::: Vector ColorComponentFlags)
-> io ()
cmdSetColorWriteMaskEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> SampleMask
-> ("colorWriteMasks" ::: Vector ColorComponentFlags)
-> io ()
cmdSetColorWriteMaskEXT CommandBuffer
commandBuffer
SampleMask
firstAttachment
"colorWriteMasks" ::: Vector ColorComponentFlags
colorWriteMasks = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetColorWriteMaskEXTPtr :: FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
vkCmdSetColorWriteMaskEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
pVkCmdSetColorWriteMaskEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
vkCmdSetColorWriteMaskEXTPtr FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetColorWriteMaskEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetColorWriteMaskEXT' :: Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ()
vkCmdSetColorWriteMaskEXT' = FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
-> Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ()
mkVkCmdSetColorWriteMaskEXT FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ())
vkCmdSetColorWriteMaskEXTPtr
"pColorWriteMasks" ::: Ptr ColorComponentFlags
pPColorWriteMasks <- ((("pColorWriteMasks" ::: Ptr ColorComponentFlags) -> IO ())
-> IO ())
-> ContT () IO ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pColorWriteMasks" ::: Ptr ColorComponentFlags) -> IO ())
-> IO ())
-> ContT () IO ("pColorWriteMasks" ::: Ptr ColorComponentFlags))
-> ((("pColorWriteMasks" ::: Ptr ColorComponentFlags) -> IO ())
-> IO ())
-> ContT () IO ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @ColorComponentFlags ((("colorWriteMasks" ::: Vector ColorComponentFlags) -> Int
forall a. Vector a -> Int
Data.Vector.length ("colorWriteMasks" ::: Vector ColorComponentFlags
colorWriteMasks)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
4)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> ColorComponentFlags -> IO ())
-> ("colorWriteMasks" ::: Vector ColorComponentFlags) -> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i ColorComponentFlags
e -> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> ColorComponentFlags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ("pColorWriteMasks" ::: Ptr ColorComponentFlags
pPColorWriteMasks ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> Int -> "pColorWriteMasks" ::: Ptr ColorComponentFlags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr ColorComponentFlags) (ColorComponentFlags
e)) ("colorWriteMasks" ::: Vector ColorComponentFlags
colorWriteMasks)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetColorWriteMaskEXT" (Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorWriteMasks" ::: Ptr ColorComponentFlags)
-> IO ()
vkCmdSetColorWriteMaskEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(SampleMask
firstAttachment)
((Int -> SampleMask
forall a b. (Integral a, Num b) => a -> b
fromIntegral (("colorWriteMasks" ::: Vector ColorComponentFlags) -> Int
forall a. Vector a -> Int
Data.Vector.length (("colorWriteMasks" ::: Vector ColorComponentFlags) -> Int)
-> ("colorWriteMasks" ::: Vector ColorComponentFlags) -> Int
forall a b. (a -> b) -> a -> b
$ ("colorWriteMasks" ::: Vector ColorComponentFlags
colorWriteMasks)) :: Word32))
("pColorWriteMasks" ::: Ptr ColorComponentFlags
pPColorWriteMasks))
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetRasterizationStreamEXT
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> IO ()
cmdSetRasterizationStreamEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("rasterizationStream" ::: Word32)
-> io ()
cmdSetRasterizationStreamEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> SampleMask -> io ()
cmdSetRasterizationStreamEXT CommandBuffer
commandBuffer SampleMask
rasterizationStream = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetRasterizationStreamEXTPtr :: FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
vkCmdSetRasterizationStreamEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
pVkCmdSetRasterizationStreamEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
vkCmdSetRasterizationStreamEXTPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
-> FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ()) -> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetRasterizationStreamEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetRasterizationStreamEXT' :: Ptr CommandBuffer_T -> SampleMask -> IO ()
vkCmdSetRasterizationStreamEXT' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
-> Ptr CommandBuffer_T -> SampleMask -> IO ()
mkVkCmdSetRasterizationStreamEXT FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
vkCmdSetRasterizationStreamEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetRasterizationStreamEXT" (Ptr CommandBuffer_T -> SampleMask -> IO ()
vkCmdSetRasterizationStreamEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(SampleMask
rasterizationStream))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetConservativeRasterizationModeEXT
:: FunPtr (Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ()) -> Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ()
cmdSetConservativeRasterizationModeEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
ConservativeRasterizationModeEXT
-> io ()
cmdSetConservativeRasterizationModeEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ConservativeRasterizationModeEXT -> io ()
cmdSetConservativeRasterizationModeEXT CommandBuffer
commandBuffer
ConservativeRasterizationModeEXT
conservativeRasterizationMode = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetConservativeRasterizationModeEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
vkCmdSetConservativeRasterizationModeEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
pVkCmdSetConservativeRasterizationModeEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
vkCmdSetConservativeRasterizationModeEXTPtr FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetConservativeRasterizationModeEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetConservativeRasterizationModeEXT' :: Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ()
vkCmdSetConservativeRasterizationModeEXT' = FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
-> Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ()
mkVkCmdSetConservativeRasterizationModeEXT FunPtr
(Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ())
vkCmdSetConservativeRasterizationModeEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetConservativeRasterizationModeEXT" (Ptr CommandBuffer_T -> ConservativeRasterizationModeEXT -> IO ()
vkCmdSetConservativeRasterizationModeEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(ConservativeRasterizationModeEXT
conservativeRasterizationMode))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic"
:: FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) -> Ptr CommandBuffer_T -> CFloat -> IO ()
cmdSetExtraPrimitiveOverestimationSizeEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("extraPrimitiveOverestimationSize" ::: Float)
-> io ()
CommandBuffer
commandBuffer
"extraPrimitiveOverestimationSize" ::: Float
extraPrimitiveOverestimationSize = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetExtraPrimitiveOverestimationSizeEXTPtr :: FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
vkCmdSetExtraPrimitiveOverestimationSizeEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
pVkCmdSetExtraPrimitiveOverestimationSizeEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
vkCmdSetExtraPrimitiveOverestimationSizeEXTPtr FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetExtraPrimitiveOverestimationSizeEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetExtraPrimitiveOverestimationSizeEXT' :: Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ()
vkCmdSetExtraPrimitiveOverestimationSizeEXT' = FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
-> Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat)
-> IO ()
mkVkCmdSetExtraPrimitiveOverestimationSizeEXT FunPtr
(Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ())
vkCmdSetExtraPrimitiveOverestimationSizeEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetExtraPrimitiveOverestimationSizeEXT" (Ptr CommandBuffer_T
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ()
vkCmdSetExtraPrimitiveOverestimationSizeEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(("extraPrimitiveOverestimationSize" ::: Float)
-> "extraPrimitiveOverestimationSize" ::: CFloat
CFloat ("extraPrimitiveOverestimationSize" ::: Float
extraPrimitiveOverestimationSize)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetDepthClipEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetDepthClipEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("depthClipEnable" ::: Bool)
-> io ()
cmdSetDepthClipEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetDepthClipEnableEXT CommandBuffer
commandBuffer Bool
depthClipEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetDepthClipEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClipEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetDepthClipEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClipEnableEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetDepthClipEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetDepthClipEnableEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetDepthClipEnableEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetDepthClipEnableEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClipEnableEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetDepthClipEnableEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetDepthClipEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
depthClipEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetSampleLocationsEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetSampleLocationsEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("sampleLocationsEnable" ::: Bool)
-> io ()
cmdSetSampleLocationsEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetSampleLocationsEnableEXT CommandBuffer
commandBuffer Bool
sampleLocationsEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetSampleLocationsEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetSampleLocationsEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetSampleLocationsEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetSampleLocationsEnableEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetSampleLocationsEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetSampleLocationsEnableEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetSampleLocationsEnableEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetSampleLocationsEnableEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetSampleLocationsEnableEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetSampleLocationsEnableEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetSampleLocationsEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
sampleLocationsEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetColorBlendAdvancedEXT
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ColorBlendAdvancedEXT -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ColorBlendAdvancedEXT -> IO ()
cmdSetColorBlendAdvancedEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("firstAttachment" ::: Word32)
->
("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT)
-> io ()
cmdSetColorBlendAdvancedEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> SampleMask
-> ("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT)
-> io ()
cmdSetColorBlendAdvancedEXT CommandBuffer
commandBuffer
SampleMask
firstAttachment
"colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT
colorBlendAdvanced = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetColorBlendAdvancedEXTPtr :: FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
vkCmdSetColorBlendAdvancedEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
pVkCmdSetColorBlendAdvancedEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
vkCmdSetColorBlendAdvancedEXTPtr FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetColorBlendAdvancedEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetColorBlendAdvancedEXT' :: Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ()
vkCmdSetColorBlendAdvancedEXT' = FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
-> Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ()
mkVkCmdSetColorBlendAdvancedEXT FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
vkCmdSetColorBlendAdvancedEXTPtr
"pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
pPColorBlendAdvanced <- ((("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO ())
-> IO ())
-> ContT
() IO ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO ())
-> IO ())
-> ContT
() IO ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT))
-> ((("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ())
-> IO ())
-> ContT
() IO ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @ColorBlendAdvancedEXT ((("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT) -> Int
forall a. Vector a -> Int
Data.Vector.length ("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT
colorBlendAdvanced)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
20)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> ColorBlendAdvancedEXT -> IO ())
-> ("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT) -> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i ColorBlendAdvancedEXT
e -> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> ColorBlendAdvancedEXT -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
pPColorBlendAdvanced ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int -> "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
20 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr ColorBlendAdvancedEXT) (ColorBlendAdvancedEXT
e)) ("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT
colorBlendAdvanced)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetColorBlendAdvancedEXT" (Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ()
vkCmdSetColorBlendAdvancedEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(SampleMask
firstAttachment)
((Int -> SampleMask
forall a b. (Integral a, Num b) => a -> b
fromIntegral (("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT) -> Int
forall a. Vector a -> Int
Data.Vector.length (("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT) -> Int)
-> ("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT) -> Int
forall a b. (a -> b) -> a -> b
$ ("colorBlendAdvanced" ::: Vector ColorBlendAdvancedEXT
colorBlendAdvanced)) :: Word32))
("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
pPColorBlendAdvanced))
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetProvokingVertexModeEXT
:: FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ()) -> Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ()
cmdSetProvokingVertexModeEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
ProvokingVertexModeEXT
-> io ()
cmdSetProvokingVertexModeEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ProvokingVertexModeEXT -> io ()
cmdSetProvokingVertexModeEXT CommandBuffer
commandBuffer ProvokingVertexModeEXT
provokingVertexMode = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetProvokingVertexModeEXTPtr :: FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
vkCmdSetProvokingVertexModeEXTPtr = DeviceCmds
-> FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
pVkCmdSetProvokingVertexModeEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
vkCmdSetProvokingVertexModeEXTPtr FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
-> FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetProvokingVertexModeEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetProvokingVertexModeEXT' :: Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ()
vkCmdSetProvokingVertexModeEXT' = FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
-> Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ()
mkVkCmdSetProvokingVertexModeEXT FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ())
vkCmdSetProvokingVertexModeEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetProvokingVertexModeEXT" (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ()
vkCmdSetProvokingVertexModeEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(ProvokingVertexModeEXT
provokingVertexMode))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetLineRasterizationModeEXT
:: FunPtr (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ()) -> Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ()
cmdSetLineRasterizationModeEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
LineRasterizationModeEXT
-> io ()
cmdSetLineRasterizationModeEXT :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> LineRasterizationModeEXT -> io ()
cmdSetLineRasterizationModeEXT CommandBuffer
commandBuffer LineRasterizationModeEXT
lineRasterizationMode = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetLineRasterizationModeEXTPtr :: FunPtr (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
vkCmdSetLineRasterizationModeEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
pVkCmdSetLineRasterizationModeEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
vkCmdSetLineRasterizationModeEXTPtr FunPtr (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetLineRasterizationModeEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetLineRasterizationModeEXT' :: Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ()
vkCmdSetLineRasterizationModeEXT' = FunPtr (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
-> Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ()
mkVkCmdSetLineRasterizationModeEXT FunPtr (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ())
vkCmdSetLineRasterizationModeEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetLineRasterizationModeEXT" (Ptr CommandBuffer_T -> LineRasterizationModeEXT -> IO ()
vkCmdSetLineRasterizationModeEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(LineRasterizationModeEXT
lineRasterizationMode))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetLineStippleEnableEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetLineStippleEnableEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("stippledLineEnable" ::: Bool)
-> io ()
cmdSetLineStippleEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetLineStippleEnableEXT CommandBuffer
commandBuffer Bool
stippledLineEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetLineStippleEnableEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetLineStippleEnableEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetLineStippleEnableEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetLineStippleEnableEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetLineStippleEnableEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetLineStippleEnableEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetLineStippleEnableEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetLineStippleEnableEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetLineStippleEnableEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetLineStippleEnableEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetLineStippleEnableEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
stippledLineEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetDepthClipNegativeOneToOneEXT
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetDepthClipNegativeOneToOneEXT :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("negativeOneToOne" ::: Bool)
-> io ()
cmdSetDepthClipNegativeOneToOneEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetDepthClipNegativeOneToOneEXT CommandBuffer
commandBuffer Bool
negativeOneToOne = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetDepthClipNegativeOneToOneEXTPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClipNegativeOneToOneEXTPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetDepthClipNegativeOneToOneEXT (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClipNegativeOneToOneEXTPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetDepthClipNegativeOneToOneEXT is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetDepthClipNegativeOneToOneEXT' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetDepthClipNegativeOneToOneEXT' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetDepthClipNegativeOneToOneEXT FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetDepthClipNegativeOneToOneEXTPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetDepthClipNegativeOneToOneEXT" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetDepthClipNegativeOneToOneEXT'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
negativeOneToOne)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetViewportWScalingEnableNV
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetViewportWScalingEnableNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("viewportWScalingEnable" ::: Bool)
-> io ()
cmdSetViewportWScalingEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetViewportWScalingEnableNV CommandBuffer
commandBuffer
Bool
viewportWScalingEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetViewportWScalingEnableNVPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetViewportWScalingEnableNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetViewportWScalingEnableNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetViewportWScalingEnableNVPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetViewportWScalingEnableNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetViewportWScalingEnableNV' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetViewportWScalingEnableNV' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetViewportWScalingEnableNV FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetViewportWScalingEnableNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetViewportWScalingEnableNV" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetViewportWScalingEnableNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
viewportWScalingEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetViewportSwizzleNV
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ViewportSwizzleNV -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> Word32 -> Ptr ViewportSwizzleNV -> IO ()
cmdSetViewportSwizzleNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("firstViewport" ::: Word32)
->
("viewportSwizzles" ::: Vector ViewportSwizzleNV)
-> io ()
cmdSetViewportSwizzleNV :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> SampleMask
-> ("viewportSwizzles" ::: Vector ViewportSwizzleNV)
-> io ()
cmdSetViewportSwizzleNV CommandBuffer
commandBuffer
SampleMask
firstViewport
"viewportSwizzles" ::: Vector ViewportSwizzleNV
viewportSwizzles = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetViewportSwizzleNVPtr :: FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
vkCmdSetViewportSwizzleNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
pVkCmdSetViewportSwizzleNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
vkCmdSetViewportSwizzleNVPtr FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetViewportSwizzleNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetViewportSwizzleNV' :: Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ()
vkCmdSetViewportSwizzleNV' = FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
-> Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ()
mkVkCmdSetViewportSwizzleNV FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ())
vkCmdSetViewportSwizzleNVPtr
"pViewportSwizzles" ::: Ptr ViewportSwizzleNV
pPViewportSwizzles <- ((("pViewportSwizzles" ::: Ptr ViewportSwizzleNV) -> IO ())
-> IO ())
-> ContT () IO ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pViewportSwizzles" ::: Ptr ViewportSwizzleNV) -> IO ())
-> IO ())
-> ContT () IO ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV))
-> ((("pViewportSwizzles" ::: Ptr ViewportSwizzleNV) -> IO ())
-> IO ())
-> ContT () IO ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @ViewportSwizzleNV ((("viewportSwizzles" ::: Vector ViewportSwizzleNV) -> Int
forall a. Vector a -> Int
Data.Vector.length ("viewportSwizzles" ::: Vector ViewportSwizzleNV
viewportSwizzles)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
16)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> ViewportSwizzleNV -> IO ())
-> ("viewportSwizzles" ::: Vector ViewportSwizzleNV) -> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i ViewportSwizzleNV
e -> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> ViewportSwizzleNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV
pPViewportSwizzles ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> Int -> "pViewportSwizzles" ::: Ptr ViewportSwizzleNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
16 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr ViewportSwizzleNV) (ViewportSwizzleNV
e)) ("viewportSwizzles" ::: Vector ViewportSwizzleNV
viewportSwizzles)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetViewportSwizzleNV" (Ptr CommandBuffer_T
-> SampleMask
-> SampleMask
-> ("pViewportSwizzles" ::: Ptr ViewportSwizzleNV)
-> IO ()
vkCmdSetViewportSwizzleNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(SampleMask
firstViewport)
((Int -> SampleMask
forall a b. (Integral a, Num b) => a -> b
fromIntegral (("viewportSwizzles" ::: Vector ViewportSwizzleNV) -> Int
forall a. Vector a -> Int
Data.Vector.length (("viewportSwizzles" ::: Vector ViewportSwizzleNV) -> Int)
-> ("viewportSwizzles" ::: Vector ViewportSwizzleNV) -> Int
forall a b. (a -> b) -> a -> b
$ ("viewportSwizzles" ::: Vector ViewportSwizzleNV
viewportSwizzles)) :: Word32))
("pViewportSwizzles" ::: Ptr ViewportSwizzleNV
pPViewportSwizzles))
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetCoverageToColorEnableNV
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetCoverageToColorEnableNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("coverageToColorEnable" ::: Bool)
-> io ()
cmdSetCoverageToColorEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetCoverageToColorEnableNV CommandBuffer
commandBuffer Bool
coverageToColorEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetCoverageToColorEnableNVPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetCoverageToColorEnableNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetCoverageToColorEnableNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetCoverageToColorEnableNVPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetCoverageToColorEnableNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetCoverageToColorEnableNV' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetCoverageToColorEnableNV' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetCoverageToColorEnableNV FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetCoverageToColorEnableNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetCoverageToColorEnableNV" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetCoverageToColorEnableNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
coverageToColorEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetCoverageToColorLocationNV
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> IO ()
cmdSetCoverageToColorLocationNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("coverageToColorLocation" ::: Word32)
-> io ()
cmdSetCoverageToColorLocationNV :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> SampleMask -> io ()
cmdSetCoverageToColorLocationNV CommandBuffer
commandBuffer
SampleMask
coverageToColorLocation = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetCoverageToColorLocationNVPtr :: FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
vkCmdSetCoverageToColorLocationNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
pVkCmdSetCoverageToColorLocationNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
vkCmdSetCoverageToColorLocationNVPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
-> FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ()) -> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetCoverageToColorLocationNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetCoverageToColorLocationNV' :: Ptr CommandBuffer_T -> SampleMask -> IO ()
vkCmdSetCoverageToColorLocationNV' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
-> Ptr CommandBuffer_T -> SampleMask -> IO ()
mkVkCmdSetCoverageToColorLocationNV FunPtr (Ptr CommandBuffer_T -> SampleMask -> IO ())
vkCmdSetCoverageToColorLocationNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetCoverageToColorLocationNV" (Ptr CommandBuffer_T -> SampleMask -> IO ()
vkCmdSetCoverageToColorLocationNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(SampleMask
coverageToColorLocation))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetCoverageModulationModeNV
:: FunPtr (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ()) -> Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ()
cmdSetCoverageModulationModeNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
CoverageModulationModeNV
-> io ()
cmdSetCoverageModulationModeNV :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> CoverageModulationModeNV -> io ()
cmdSetCoverageModulationModeNV CommandBuffer
commandBuffer
CoverageModulationModeNV
coverageModulationMode = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetCoverageModulationModeNVPtr :: FunPtr (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
vkCmdSetCoverageModulationModeNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
pVkCmdSetCoverageModulationModeNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
vkCmdSetCoverageModulationModeNVPtr FunPtr (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetCoverageModulationModeNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetCoverageModulationModeNV' :: Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ()
vkCmdSetCoverageModulationModeNV' = FunPtr (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
-> Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ()
mkVkCmdSetCoverageModulationModeNV FunPtr (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ())
vkCmdSetCoverageModulationModeNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetCoverageModulationModeNV" (Ptr CommandBuffer_T -> CoverageModulationModeNV -> IO ()
vkCmdSetCoverageModulationModeNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(CoverageModulationModeNV
coverageModulationMode))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetCoverageModulationTableEnableNV
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetCoverageModulationTableEnableNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("coverageModulationTableEnable" ::: Bool)
-> io ()
cmdSetCoverageModulationTableEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetCoverageModulationTableEnableNV CommandBuffer
commandBuffer
Bool
coverageModulationTableEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetCoverageModulationTableEnableNVPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetCoverageModulationTableEnableNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetCoverageModulationTableEnableNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetCoverageModulationTableEnableNVPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetCoverageModulationTableEnableNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetCoverageModulationTableEnableNV' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetCoverageModulationTableEnableNV' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetCoverageModulationTableEnableNV FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetCoverageModulationTableEnableNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetCoverageModulationTableEnableNV" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetCoverageModulationTableEnableNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
coverageModulationTableEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetCoverageModulationTableNV
:: FunPtr (Ptr CommandBuffer_T -> Word32 -> Ptr CFloat -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> Ptr CFloat -> IO ()
cmdSetCoverageModulationTableNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("coverageModulationTable" ::: Vector Float)
-> io ()
cmdSetCoverageModulationTableNV :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> ("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float))
-> io ()
cmdSetCoverageModulationTableNV CommandBuffer
commandBuffer
"coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float)
coverageModulationTable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetCoverageModulationTableNVPtr :: FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
vkCmdSetCoverageModulationTableNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
pVkCmdSetCoverageModulationTableNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
vkCmdSetCoverageModulationTableNVPtr FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetCoverageModulationTableNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetCoverageModulationTableNV' :: Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ()
vkCmdSetCoverageModulationTableNV' = FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
-> Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ()
mkVkCmdSetCoverageModulationTableNV FunPtr
(Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
vkCmdSetCoverageModulationTableNVPtr
"pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat)
pPCoverageModulationTable <- ((("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
-> IO ())
-> ContT
()
IO
("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
-> IO ())
-> ContT
()
IO
("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat)))
-> ((("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ())
-> IO ())
-> ContT
()
IO
("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @CFloat ((("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float))
-> Int
forall a. Vector a -> Int
Data.Vector.length ("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float)
coverageModulationTable)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
4)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> ("extraPrimitiveOverestimationSize" ::: Float) -> IO ())
-> ("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float))
-> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i "extraPrimitiveOverestimationSize" ::: Float
e -> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> ("extraPrimitiveOverestimationSize" ::: CFloat) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat)
pPCoverageModulationTable ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> Int
-> "pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr CFloat) (("extraPrimitiveOverestimationSize" ::: Float)
-> "extraPrimitiveOverestimationSize" ::: CFloat
CFloat ("extraPrimitiveOverestimationSize" ::: Float
e))) ("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float)
coverageModulationTable)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetCoverageModulationTableNV" (Ptr CommandBuffer_T
-> SampleMask
-> ("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat))
-> IO ()
vkCmdSetCoverageModulationTableNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
((Int -> SampleMask
forall a b. (Integral a, Num b) => a -> b
fromIntegral (("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float))
-> Int
forall a. Vector a -> Int
Data.Vector.length (("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float))
-> Int)
-> ("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float))
-> Int
forall a b. (a -> b) -> a -> b
$ ("coverageModulationTable"
::: Vector ("extraPrimitiveOverestimationSize" ::: Float)
coverageModulationTable)) :: Word32))
("pCoverageModulationTable"
::: Ptr ("extraPrimitiveOverestimationSize" ::: CFloat)
pPCoverageModulationTable))
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetShadingRateImageEnableNV
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetShadingRateImageEnableNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("shadingRateImageEnable" ::: Bool)
-> io ()
cmdSetShadingRateImageEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetShadingRateImageEnableNV CommandBuffer
commandBuffer
Bool
shadingRateImageEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetShadingRateImageEnableNVPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetShadingRateImageEnableNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetShadingRateImageEnableNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetShadingRateImageEnableNVPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetShadingRateImageEnableNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetShadingRateImageEnableNV' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetShadingRateImageEnableNV' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetShadingRateImageEnableNV FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetShadingRateImageEnableNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetShadingRateImageEnableNV" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetShadingRateImageEnableNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
shadingRateImageEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetCoverageReductionModeNV
:: FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ()) -> Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ()
cmdSetCoverageReductionModeNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
CoverageReductionModeNV
-> io ()
cmdSetCoverageReductionModeNV :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> CoverageReductionModeNV -> io ()
cmdSetCoverageReductionModeNV CommandBuffer
commandBuffer CoverageReductionModeNV
coverageReductionMode = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetCoverageReductionModeNVPtr :: FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
vkCmdSetCoverageReductionModeNVPtr = DeviceCmds
-> FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
pVkCmdSetCoverageReductionModeNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
vkCmdSetCoverageReductionModeNVPtr FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
-> FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetCoverageReductionModeNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetCoverageReductionModeNV' :: Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ()
vkCmdSetCoverageReductionModeNV' = FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
-> Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ()
mkVkCmdSetCoverageReductionModeNV FunPtr (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ())
vkCmdSetCoverageReductionModeNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetCoverageReductionModeNV" (Ptr CommandBuffer_T -> CoverageReductionModeNV -> IO ()
vkCmdSetCoverageReductionModeNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(CoverageReductionModeNV
coverageReductionMode))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdSetRepresentativeFragmentTestEnableNV
:: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO ()
cmdSetRepresentativeFragmentTestEnableNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
("representativeFragmentTestEnable" ::: Bool)
-> io ()
cmdSetRepresentativeFragmentTestEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io ()
cmdSetRepresentativeFragmentTestEnableNV CommandBuffer
commandBuffer
Bool
representativeFragmentTestEnable = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdSetRepresentativeFragmentTestEnableNVPtr :: FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetRepresentativeFragmentTestEnableNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
pVkCmdSetRepresentativeFragmentTestEnableNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetRepresentativeFragmentTestEnableNVPtr FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdSetRepresentativeFragmentTestEnableNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdSetRepresentativeFragmentTestEnableNV' :: Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetRepresentativeFragmentTestEnableNV' = FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
-> Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
mkVkCmdSetRepresentativeFragmentTestEnableNV FunPtr
(Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ())
vkCmdSetRepresentativeFragmentTestEnableNVPtr
String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdSetRepresentativeFragmentTestEnableNV" (Ptr CommandBuffer_T -> ("depthClampEnable" ::: Bool32) -> IO ()
vkCmdSetRepresentativeFragmentTestEnableNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
representativeFragmentTestEnable)))
() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> IO ()) -> () -> IO ()
forall a b. (a -> b) -> a -> b
$ ()
data PhysicalDeviceExtendedDynamicState3FeaturesEXT = PhysicalDeviceExtendedDynamicState3FeaturesEXT
{
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3TessellationDomainOrigin :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3DepthClampEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3PolygonMode :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3RasterizationSamples :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3SampleMask :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3AlphaToCoverageEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3AlphaToOneEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3LogicOpEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ColorBlendEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ColorBlendEquation :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ColorWriteMask :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3RasterizationStream :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ConservativeRasterizationMode :: Bool
,
:: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3DepthClipEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3SampleLocationsEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ColorBlendAdvanced :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ProvokingVertexMode :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3LineRasterizationMode :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3LineStippleEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3DepthClipNegativeOneToOne :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ViewportWScalingEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ViewportSwizzle :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3CoverageToColorEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3CoverageToColorLocation :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3CoverageModulationMode :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3CoverageModulationTableEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3CoverageModulationTable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3CoverageReductionMode :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3RepresentativeFragmentTestEnable :: Bool
,
PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
extendedDynamicState3ShadingRateImageEnable :: Bool
}
deriving (Typeable, PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
(PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool)
-> (PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool)
-> Eq PhysicalDeviceExtendedDynamicState3FeaturesEXT
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$c/= :: PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
== :: PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$c== :: PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceExtendedDynamicState3FeaturesEXT)
#endif
deriving instance Show PhysicalDeviceExtendedDynamicState3FeaturesEXT
instance ToCStruct PhysicalDeviceExtendedDynamicState3FeaturesEXT where
withCStruct :: forall b.
PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> (Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b)
-> IO b
withCStruct PhysicalDeviceExtendedDynamicState3FeaturesEXT
x Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b
f = Int
-> (Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
144 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b)
-> IO b)
-> (Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p -> Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p PhysicalDeviceExtendedDynamicState3FeaturesEXT
x (Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b
f Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p PhysicalDeviceExtendedDynamicState3FeaturesEXT{Bool
extendedDynamicState3ShadingRateImageEnable :: Bool
extendedDynamicState3RepresentativeFragmentTestEnable :: Bool
extendedDynamicState3CoverageReductionMode :: Bool
extendedDynamicState3CoverageModulationTable :: Bool
extendedDynamicState3CoverageModulationTableEnable :: Bool
extendedDynamicState3CoverageModulationMode :: Bool
extendedDynamicState3CoverageToColorLocation :: Bool
extendedDynamicState3CoverageToColorEnable :: Bool
extendedDynamicState3ViewportSwizzle :: Bool
extendedDynamicState3ViewportWScalingEnable :: Bool
extendedDynamicState3DepthClipNegativeOneToOne :: Bool
extendedDynamicState3LineStippleEnable :: Bool
extendedDynamicState3LineRasterizationMode :: Bool
extendedDynamicState3ProvokingVertexMode :: Bool
extendedDynamicState3ColorBlendAdvanced :: Bool
extendedDynamicState3SampleLocationsEnable :: Bool
extendedDynamicState3DepthClipEnable :: Bool
extendedDynamicState3ExtraPrimitiveOverestimationSize :: Bool
extendedDynamicState3ConservativeRasterizationMode :: Bool
extendedDynamicState3RasterizationStream :: Bool
extendedDynamicState3ColorWriteMask :: Bool
extendedDynamicState3ColorBlendEquation :: Bool
extendedDynamicState3ColorBlendEnable :: Bool
extendedDynamicState3LogicOpEnable :: Bool
extendedDynamicState3AlphaToOneEnable :: Bool
extendedDynamicState3AlphaToCoverageEnable :: Bool
extendedDynamicState3SampleMask :: Bool
extendedDynamicState3RasterizationSamples :: Bool
extendedDynamicState3PolygonMode :: Bool
extendedDynamicState3DepthClampEnable :: Bool
extendedDynamicState3TessellationDomainOrigin :: Bool
$sel:extendedDynamicState3ShadingRateImageEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3RepresentativeFragmentTestEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3CoverageReductionMode:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3CoverageModulationTable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3CoverageModulationTableEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3CoverageModulationMode:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3CoverageToColorLocation:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3CoverageToColorEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ViewportSwizzle:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ViewportWScalingEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3DepthClipNegativeOneToOne:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3LineStippleEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3LineRasterizationMode:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ProvokingVertexMode:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ColorBlendAdvanced:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3SampleLocationsEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3DepthClipEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ExtraPrimitiveOverestimationSize:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ConservativeRasterizationMode:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3RasterizationStream:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ColorWriteMask:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ColorBlendEquation:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3ColorBlendEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3LogicOpEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3AlphaToOneEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3AlphaToCoverageEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3SampleMask:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3RasterizationSamples:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3PolygonMode:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3DepthClampEnable:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
$sel:extendedDynamicState3TessellationDomainOrigin:PhysicalDeviceExtendedDynamicState3FeaturesEXT :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_FEATURES_EXT)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3TessellationDomainOrigin))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3DepthClampEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3PolygonMode))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3RasterizationSamples))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3SampleMask))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3AlphaToCoverageEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3AlphaToOneEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3LogicOpEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ColorBlendEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ColorBlendEquation))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ColorWriteMask))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
60 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3RasterizationStream))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ConservativeRasterizationMode))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
68 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ExtraPrimitiveOverestimationSize))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
72 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3DepthClipEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
76 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3SampleLocationsEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
80 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ColorBlendAdvanced))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
84 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ProvokingVertexMode))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
88 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3LineRasterizationMode))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
92 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3LineStippleEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
96 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3DepthClipNegativeOneToOne))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
100 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ViewportWScalingEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
104 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ViewportSwizzle))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
108 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3CoverageToColorEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
112 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3CoverageToColorLocation))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
116 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3CoverageModulationMode))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
120 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3CoverageModulationTableEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
124 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3CoverageModulationTable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
128 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3CoverageReductionMode))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
132 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3RepresentativeFragmentTestEnable))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
136 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
extendedDynamicState3ShadingRateImageEnable))
IO b
f
cStructSize :: Int
cStructSize = Int
144
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_FEATURES_EXT)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
60 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
68 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
72 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
76 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
80 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
84 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
88 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
92 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
96 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
100 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
104 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
108 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
112 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
116 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
120 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
124 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
128 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
132 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
136 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceExtendedDynamicState3FeaturesEXT where
peekCStruct :: Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> IO PhysicalDeviceExtendedDynamicState3FeaturesEXT
peekCStruct Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p = do
"depthClampEnable" ::: Bool32
extendedDynamicState3TessellationDomainOrigin <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3DepthClampEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3PolygonMode <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3RasterizationSamples <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3SampleMask <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3AlphaToCoverageEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3AlphaToOneEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3LogicOpEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ColorBlendEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ColorBlendEquation <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ColorWriteMask <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3RasterizationStream <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
60 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ConservativeRasterizationMode <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ExtraPrimitiveOverestimationSize <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
68 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3DepthClipEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
72 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3SampleLocationsEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
76 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ColorBlendAdvanced <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
80 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ProvokingVertexMode <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
84 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3LineRasterizationMode <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
88 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3LineStippleEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
92 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3DepthClipNegativeOneToOne <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
96 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ViewportWScalingEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
100 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ViewportSwizzle <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
104 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3CoverageToColorEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
108 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3CoverageToColorLocation <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
112 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3CoverageModulationMode <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
116 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3CoverageModulationTableEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
120 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3CoverageModulationTable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
124 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3CoverageReductionMode <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
128 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3RepresentativeFragmentTestEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
132 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
extendedDynamicState3ShadingRateImageEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
136 :: Ptr Bool32))
PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> IO PhysicalDeviceExtendedDynamicState3FeaturesEXT
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> IO PhysicalDeviceExtendedDynamicState3FeaturesEXT)
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> IO PhysicalDeviceExtendedDynamicState3FeaturesEXT
forall a b. (a -> b) -> a -> b
$ Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT
PhysicalDeviceExtendedDynamicState3FeaturesEXT
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3TessellationDomainOrigin)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3DepthClampEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3PolygonMode)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3RasterizationSamples)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3SampleMask)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3AlphaToCoverageEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3AlphaToOneEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3LogicOpEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ColorBlendEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ColorBlendEquation)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ColorWriteMask)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3RasterizationStream)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ConservativeRasterizationMode)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ExtraPrimitiveOverestimationSize)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3DepthClipEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3SampleLocationsEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ColorBlendAdvanced)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ProvokingVertexMode)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3LineRasterizationMode)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3LineStippleEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3DepthClipNegativeOneToOne)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ViewportWScalingEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ViewportSwizzle)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3CoverageToColorEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3CoverageToColorLocation)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3CoverageModulationMode)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3CoverageModulationTableEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3CoverageModulationTable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3CoverageReductionMode)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3RepresentativeFragmentTestEnable)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
extendedDynamicState3ShadingRateImageEnable)
instance Storable PhysicalDeviceExtendedDynamicState3FeaturesEXT where
sizeOf :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int
sizeOf ~PhysicalDeviceExtendedDynamicState3FeaturesEXT
_ = Int
144
alignment :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int
alignment ~PhysicalDeviceExtendedDynamicState3FeaturesEXT
_ = Int
8
peek :: Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> IO PhysicalDeviceExtendedDynamicState3FeaturesEXT
peek = Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> IO PhysicalDeviceExtendedDynamicState3FeaturesEXT
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO ()
poke Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
poked = Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceExtendedDynamicState3FeaturesEXT where
zero :: PhysicalDeviceExtendedDynamicState3FeaturesEXT
zero = Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> PhysicalDeviceExtendedDynamicState3FeaturesEXT
PhysicalDeviceExtendedDynamicState3FeaturesEXT
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
data PhysicalDeviceExtendedDynamicState3PropertiesEXT = PhysicalDeviceExtendedDynamicState3PropertiesEXT
{
PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool
dynamicPrimitiveTopologyUnrestricted :: Bool }
deriving (Typeable, PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool
(PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool)
-> (PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool)
-> Eq PhysicalDeviceExtendedDynamicState3PropertiesEXT
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool
$c/= :: PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool
== :: PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool
$c== :: PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceExtendedDynamicState3PropertiesEXT)
#endif
deriving instance Show PhysicalDeviceExtendedDynamicState3PropertiesEXT
instance ToCStruct PhysicalDeviceExtendedDynamicState3PropertiesEXT where
withCStruct :: forall b.
PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> (Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b)
-> IO b
withCStruct PhysicalDeviceExtendedDynamicState3PropertiesEXT
x Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b
f = Int
-> (Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b)
-> IO b)
-> (Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p -> Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p PhysicalDeviceExtendedDynamicState3PropertiesEXT
x (Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b
f Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p PhysicalDeviceExtendedDynamicState3PropertiesEXT{Bool
dynamicPrimitiveTopologyUnrestricted :: Bool
$sel:dynamicPrimitiveTopologyUnrestricted:PhysicalDeviceExtendedDynamicState3PropertiesEXT :: PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_PROPERTIES_EXT)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
dynamicPrimitiveTopologyUnrestricted))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_PROPERTIES_EXT)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceExtendedDynamicState3PropertiesEXT where
peekCStruct :: Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO PhysicalDeviceExtendedDynamicState3PropertiesEXT
peekCStruct Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p = do
"depthClampEnable" ::: Bool32
dynamicPrimitiveTopologyUnrestricted <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO PhysicalDeviceExtendedDynamicState3PropertiesEXT
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO PhysicalDeviceExtendedDynamicState3PropertiesEXT)
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO PhysicalDeviceExtendedDynamicState3PropertiesEXT
forall a b. (a -> b) -> a -> b
$ Bool -> PhysicalDeviceExtendedDynamicState3PropertiesEXT
PhysicalDeviceExtendedDynamicState3PropertiesEXT
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
dynamicPrimitiveTopologyUnrestricted)
instance Storable PhysicalDeviceExtendedDynamicState3PropertiesEXT where
sizeOf :: PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Int
sizeOf ~PhysicalDeviceExtendedDynamicState3PropertiesEXT
_ = Int
24
alignment :: PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Int
alignment ~PhysicalDeviceExtendedDynamicState3PropertiesEXT
_ = Int
8
peek :: Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO PhysicalDeviceExtendedDynamicState3PropertiesEXT
peek = Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO PhysicalDeviceExtendedDynamicState3PropertiesEXT
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO ()
poke Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
poked = Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> PhysicalDeviceExtendedDynamicState3PropertiesEXT
-> IO ()
-> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceExtendedDynamicState3PropertiesEXT where
zero :: PhysicalDeviceExtendedDynamicState3PropertiesEXT
zero = Bool -> PhysicalDeviceExtendedDynamicState3PropertiesEXT
PhysicalDeviceExtendedDynamicState3PropertiesEXT
Bool
forall a. Zero a => a
zero
data ColorBlendEquationEXT = ColorBlendEquationEXT
{
ColorBlendEquationEXT -> BlendFactor
srcColorBlendFactor :: BlendFactor
,
ColorBlendEquationEXT -> BlendFactor
dstColorBlendFactor :: BlendFactor
,
ColorBlendEquationEXT -> BlendOp
colorBlendOp :: BlendOp
,
ColorBlendEquationEXT -> BlendFactor
srcAlphaBlendFactor :: BlendFactor
,
ColorBlendEquationEXT -> BlendFactor
dstAlphaBlendFactor :: BlendFactor
,
ColorBlendEquationEXT -> BlendOp
alphaBlendOp :: BlendOp
}
deriving (Typeable, ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool
(ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool)
-> (ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool)
-> Eq ColorBlendEquationEXT
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool
$c/= :: ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool
== :: ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool
$c== :: ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (ColorBlendEquationEXT)
#endif
deriving instance Show ColorBlendEquationEXT
instance ToCStruct ColorBlendEquationEXT where
withCStruct :: forall b.
ColorBlendEquationEXT
-> (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO b)
-> IO b
withCStruct ColorBlendEquationEXT
x ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO b
f = Int
-> (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO b)
-> IO b)
-> (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \"pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p -> ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> ColorBlendEquationEXT -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ColorBlendEquationEXT
x (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT) -> IO b
f "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p)
pokeCStruct :: forall b.
("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> ColorBlendEquationEXT -> IO b -> IO b
pokeCStruct "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ColorBlendEquationEXT{BlendOp
BlendFactor
alphaBlendOp :: BlendOp
dstAlphaBlendFactor :: BlendFactor
srcAlphaBlendFactor :: BlendFactor
colorBlendOp :: BlendOp
dstColorBlendFactor :: BlendFactor
srcColorBlendFactor :: BlendFactor
$sel:alphaBlendOp:ColorBlendEquationEXT :: ColorBlendEquationEXT -> BlendOp
$sel:dstAlphaBlendFactor:ColorBlendEquationEXT :: ColorBlendEquationEXT -> BlendFactor
$sel:srcAlphaBlendFactor:ColorBlendEquationEXT :: ColorBlendEquationEXT -> BlendFactor
$sel:colorBlendOp:ColorBlendEquationEXT :: ColorBlendEquationEXT -> BlendOp
$sel:dstColorBlendFactor:ColorBlendEquationEXT :: ColorBlendEquationEXT -> BlendFactor
$sel:srcColorBlendFactor:ColorBlendEquationEXT :: ColorBlendEquationEXT -> BlendFactor
..} IO b
f = do
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr BlendFactor)) (BlendFactor
srcColorBlendFactor)
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4 :: Ptr BlendFactor)) (BlendFactor
dstColorBlendFactor)
Ptr BlendOp -> BlendOp -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr BlendOp)) (BlendOp
colorBlendOp)
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12 :: Ptr BlendFactor)) (BlendFactor
srcAlphaBlendFactor)
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr BlendFactor)) (BlendFactor
dstAlphaBlendFactor)
Ptr BlendOp -> BlendOp -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr BlendOp)) (BlendOp
alphaBlendOp)
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
4
pokeZeroCStruct :: forall b.
("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO b -> IO b
pokeZeroCStruct "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p IO b
f = do
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr BlendFactor)) (BlendFactor
forall a. Zero a => a
zero)
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4 :: Ptr BlendFactor)) (BlendFactor
forall a. Zero a => a
zero)
Ptr BlendOp -> BlendOp -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr BlendOp)) (BlendOp
forall a. Zero a => a
zero)
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12 :: Ptr BlendFactor)) (BlendFactor
forall a. Zero a => a
zero)
Ptr BlendFactor -> BlendFactor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr BlendFactor)) (BlendFactor
forall a. Zero a => a
zero)
Ptr BlendOp -> BlendOp -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr BlendOp)) (BlendOp
forall a. Zero a => a
zero)
IO b
f
instance FromCStruct ColorBlendEquationEXT where
peekCStruct :: ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ColorBlendEquationEXT
peekCStruct "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p = do
BlendFactor
srcColorBlendFactor <- forall a. Storable a => Ptr a -> IO a
peek @BlendFactor (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr BlendFactor))
BlendFactor
dstColorBlendFactor <- forall a. Storable a => Ptr a -> IO a
peek @BlendFactor (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4 :: Ptr BlendFactor))
BlendOp
colorBlendOp <- forall a. Storable a => Ptr a -> IO a
peek @BlendOp (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr BlendOp))
BlendFactor
srcAlphaBlendFactor <- forall a. Storable a => Ptr a -> IO a
peek @BlendFactor (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12 :: Ptr BlendFactor))
BlendFactor
dstAlphaBlendFactor <- forall a. Storable a => Ptr a -> IO a
peek @BlendFactor (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendFactor
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr BlendFactor))
BlendOp
alphaBlendOp <- forall a. Storable a => Ptr a -> IO a
peek @BlendOp (("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
p ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr BlendOp))
ColorBlendEquationEXT -> IO ColorBlendEquationEXT
forall (f :: * -> *) a. Applicative f => a -> f a
pure (ColorBlendEquationEXT -> IO ColorBlendEquationEXT)
-> ColorBlendEquationEXT -> IO ColorBlendEquationEXT
forall a b. (a -> b) -> a -> b
$ BlendFactor
-> BlendFactor
-> BlendOp
-> BlendFactor
-> BlendFactor
-> BlendOp
-> ColorBlendEquationEXT
ColorBlendEquationEXT
BlendFactor
srcColorBlendFactor
BlendFactor
dstColorBlendFactor
BlendOp
colorBlendOp
BlendFactor
srcAlphaBlendFactor
BlendFactor
dstAlphaBlendFactor
BlendOp
alphaBlendOp
instance Storable ColorBlendEquationEXT where
sizeOf :: ColorBlendEquationEXT -> Int
sizeOf ~ColorBlendEquationEXT
_ = Int
24
alignment :: ColorBlendEquationEXT -> Int
alignment ~ColorBlendEquationEXT
_ = Int
4
peek :: ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ColorBlendEquationEXT
peek = ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> IO ColorBlendEquationEXT
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> ColorBlendEquationEXT -> IO ()
poke "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
ptr ColorBlendEquationEXT
poked = ("pColorBlendEquations" ::: Ptr ColorBlendEquationEXT)
-> ColorBlendEquationEXT -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pColorBlendEquations" ::: Ptr ColorBlendEquationEXT
ptr ColorBlendEquationEXT
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero ColorBlendEquationEXT where
zero :: ColorBlendEquationEXT
zero = BlendFactor
-> BlendFactor
-> BlendOp
-> BlendFactor
-> BlendFactor
-> BlendOp
-> ColorBlendEquationEXT
ColorBlendEquationEXT
BlendFactor
forall a. Zero a => a
zero
BlendFactor
forall a. Zero a => a
zero
BlendOp
forall a. Zero a => a
zero
BlendFactor
forall a. Zero a => a
zero
BlendFactor
forall a. Zero a => a
zero
BlendOp
forall a. Zero a => a
zero
data ColorBlendAdvancedEXT = ColorBlendAdvancedEXT
{
ColorBlendAdvancedEXT -> BlendOp
advancedBlendOp :: BlendOp
,
ColorBlendAdvancedEXT -> Bool
srcPremultiplied :: Bool
,
ColorBlendAdvancedEXT -> Bool
dstPremultiplied :: Bool
,
ColorBlendAdvancedEXT -> BlendOverlapEXT
blendOverlap :: BlendOverlapEXT
,
ColorBlendAdvancedEXT -> Bool
clampResults :: Bool
}
deriving (Typeable, ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool
(ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool)
-> (ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool)
-> Eq ColorBlendAdvancedEXT
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool
$c/= :: ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool
== :: ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool
$c== :: ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (ColorBlendAdvancedEXT)
#endif
deriving instance Show ColorBlendAdvancedEXT
instance ToCStruct ColorBlendAdvancedEXT where
withCStruct :: forall b.
ColorBlendAdvancedEXT
-> (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO b)
-> IO b
withCStruct ColorBlendAdvancedEXT
x ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO b
f = Int
-> (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
20 ((("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO b)
-> IO b)
-> (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \"pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p -> ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> ColorBlendAdvancedEXT -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ColorBlendAdvancedEXT
x (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT) -> IO b
f "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p)
pokeCStruct :: forall b.
("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> ColorBlendAdvancedEXT -> IO b -> IO b
pokeCStruct "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ColorBlendAdvancedEXT{Bool
BlendOverlapEXT
BlendOp
clampResults :: Bool
blendOverlap :: BlendOverlapEXT
dstPremultiplied :: Bool
srcPremultiplied :: Bool
advancedBlendOp :: BlendOp
$sel:clampResults:ColorBlendAdvancedEXT :: ColorBlendAdvancedEXT -> Bool
$sel:blendOverlap:ColorBlendAdvancedEXT :: ColorBlendAdvancedEXT -> BlendOverlapEXT
$sel:dstPremultiplied:ColorBlendAdvancedEXT :: ColorBlendAdvancedEXT -> Bool
$sel:srcPremultiplied:ColorBlendAdvancedEXT :: ColorBlendAdvancedEXT -> Bool
$sel:advancedBlendOp:ColorBlendAdvancedEXT :: ColorBlendAdvancedEXT -> BlendOp
..} IO b
f = do
Ptr BlendOp -> BlendOp -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr BlendOp)) (BlendOp
advancedBlendOp)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
srcPremultiplied))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
dstPremultiplied))
Ptr BlendOverlapEXT -> BlendOverlapEXT -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int -> Ptr BlendOverlapEXT
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12 :: Ptr BlendOverlapEXT)) (BlendOverlapEXT
blendOverlap)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
clampResults))
IO b
f
cStructSize :: Int
cStructSize = Int
20
cStructAlignment :: Int
cStructAlignment = Int
4
pokeZeroCStruct :: forall b.
("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO b -> IO b
pokeZeroCStruct "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p IO b
f = do
Ptr BlendOp -> BlendOp -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr BlendOp)) (BlendOp
forall a. Zero a => a
zero)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
Ptr BlendOverlapEXT -> BlendOverlapEXT -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int -> Ptr BlendOverlapEXT
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12 :: Ptr BlendOverlapEXT)) (BlendOverlapEXT
forall a. Zero a => a
zero)
("pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32))
-> ("depthClampEnable" ::: Bool32) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> "depthClampEnable" ::: Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
IO b
f
instance FromCStruct ColorBlendAdvancedEXT where
peekCStruct :: ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ColorBlendAdvancedEXT
peekCStruct "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p = do
BlendOp
advancedBlendOp <- forall a. Storable a => Ptr a -> IO a
peek @BlendOp (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int -> Ptr BlendOp
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr BlendOp))
"depthClampEnable" ::: Bool32
srcPremultiplied <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4 :: Ptr Bool32))
"depthClampEnable" ::: Bool32
dstPremultiplied <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr Bool32))
BlendOverlapEXT
blendOverlap <- forall a. Storable a => Ptr a -> IO a
peek @BlendOverlapEXT (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int -> Ptr BlendOverlapEXT
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12 :: Ptr BlendOverlapEXT))
"depthClampEnable" ::: Bool32
clampResults <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 (("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
p ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> Int
-> "pColorBlendEnables" ::: Ptr ("depthClampEnable" ::: Bool32)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
ColorBlendAdvancedEXT -> IO ColorBlendAdvancedEXT
forall (f :: * -> *) a. Applicative f => a -> f a
pure (ColorBlendAdvancedEXT -> IO ColorBlendAdvancedEXT)
-> ColorBlendAdvancedEXT -> IO ColorBlendAdvancedEXT
forall a b. (a -> b) -> a -> b
$ BlendOp
-> Bool -> Bool -> BlendOverlapEXT -> Bool -> ColorBlendAdvancedEXT
ColorBlendAdvancedEXT
BlendOp
advancedBlendOp
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
srcPremultiplied)
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
dstPremultiplied)
BlendOverlapEXT
blendOverlap
(("depthClampEnable" ::: Bool32) -> Bool
bool32ToBool "depthClampEnable" ::: Bool32
clampResults)
instance Storable ColorBlendAdvancedEXT where
sizeOf :: ColorBlendAdvancedEXT -> Int
sizeOf ~ColorBlendAdvancedEXT
_ = Int
20
alignment :: ColorBlendAdvancedEXT -> Int
alignment ~ColorBlendAdvancedEXT
_ = Int
4
peek :: ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ColorBlendAdvancedEXT
peek = ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> IO ColorBlendAdvancedEXT
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> ColorBlendAdvancedEXT -> IO ()
poke "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
ptr ColorBlendAdvancedEXT
poked = ("pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT)
-> ColorBlendAdvancedEXT -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pColorBlendAdvanced" ::: Ptr ColorBlendAdvancedEXT
ptr ColorBlendAdvancedEXT
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero ColorBlendAdvancedEXT where
zero :: ColorBlendAdvancedEXT
zero = BlendOp
-> Bool -> Bool -> BlendOverlapEXT -> Bool -> ColorBlendAdvancedEXT
ColorBlendAdvancedEXT
BlendOp
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
BlendOverlapEXT
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
type EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION = 2
pattern EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION :: forall a . Integral a => a
pattern $bEXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION :: forall a. Integral a => a
$mEXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> (Void# -> r) -> (Void# -> r) -> r
EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION = 2
type EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME = "VK_EXT_extended_dynamic_state3"
pattern EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bEXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
$mEXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> (Void# -> r) -> (Void# -> r) -> r
EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME = "VK_EXT_extended_dynamic_state3"