{-# language CPP #-} -- | = Name -- -- VK_EXT_extended_dynamic_state3 - device extension -- -- = VK_EXT_extended_dynamic_state3 -- -- [__Name String__] -- @VK_EXT_extended_dynamic_state3@ -- -- [__Extension Type__] -- Device extension -- -- [__Registered Extension Number__] -- 456 -- -- [__Revision__] -- 2 -- -- [__Ratification Status__] -- Ratified -- -- [__Extension and Version Dependencies__] -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_KHR_get_physical_device_properties2 VK_KHR_get_physical_device_properties2> -- or -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#versions-1.1 Vulkan Version 1.1> -- -- [__API Interactions__] -- -- - Interacts with VK_VERSION_1_1 -- -- - Interacts with VK_EXT_blend_operation_advanced -- -- - Interacts with VK_EXT_conservative_rasterization -- -- - Interacts with VK_EXT_depth_clip_control -- -- - Interacts with VK_EXT_depth_clip_enable -- -- - Interacts with VK_EXT_line_rasterization -- -- - Interacts with VK_EXT_provoking_vertex -- -- - Interacts with VK_EXT_sample_locations -- -- - Interacts with VK_EXT_transform_feedback -- -- - Interacts with VK_KHR_maintenance2 -- -- - Interacts with VK_NV_clip_space_w_scaling -- -- - Interacts with VK_NV_coverage_reduction_mode -- -- - Interacts with VK_NV_fragment_coverage_to_color -- -- - Interacts with VK_NV_framebuffer_mixed_samples -- -- - Interacts with VK_NV_representative_fragment_test -- -- - Interacts with VK_NV_shading_rate_image -- -- - Interacts with VK_NV_viewport_swizzle -- -- - Interacts with -- VkPhysicalDeviceExtendedDynamicState3FeaturesEXT::extendedDynamicState3AlphaToOneEnable -- -- - Interacts with -- VkPhysicalDeviceExtendedDynamicState3FeaturesEXT::extendedDynamicState3DepthClampEnable -- -- - Interacts with -- VkPhysicalDeviceExtendedDynamicState3FeaturesEXT::extendedDynamicState3LogicOpEnable -- -- - Interacts with -- VkPhysicalDeviceExtendedDynamicState3FeaturesEXT::extendedDynamicState3PolygonMode -- -- - Interacts with -- VkPhysicalDeviceExtendedDynamicState3FeaturesEXT::extendedDynamicState3RasterizationStream -- -- - Interacts with -- VkPhysicalDeviceExtendedDynamicState3FeaturesEXT::extendedDynamicState3TessellationDomainOrigin -- -- [__Contact__] -- -- - Piers Daniell -- <https://github.com/KhronosGroup/Vulkan-Docs/issues/new?body=[VK_EXT_extended_dynamic_state3] @pdaniell-nv%0A*Here describe the issue or question you have about the VK_EXT_extended_dynamic_state3 extension* > -- -- [__Extension Proposal__] -- <https://github.com/KhronosGroup/Vulkan-Docs/tree/main/proposals/VK_EXT_extended_dynamic_state3.adoc VK_EXT_extended_dynamic_state3> -- -- == Other Extension Metadata -- -- [__Last Modified Date__] -- 2022-09-02 -- -- [__IP Status__] -- No known IP claims. -- -- [__Contributors__] -- -- - Daniel Story, Nintendo -- -- - Jamie Madill, Google -- -- - Jan-Harald Fredriksen, Arm -- -- - Faith Ekstrand, Collabora -- -- - Mike Blumenkrantz, Valve -- -- - Ricardo Garcia, Igalia -- -- - Samuel Pitoiset, Valve -- -- - Shahbaz Youssefi, Google -- -- - Stu Smith, AMD -- -- - Tapani Pälli, Intel -- -- == Description -- -- This extension adds almost all of the remaining pipeline state as -- dynamic state to help applications further reduce the number of -- monolithic pipelines they need to create and bind. -- -- == New Commands -- -- - 'cmdSetAlphaToCoverageEnableEXT' -- -- - 'cmdSetAlphaToOneEnableEXT' -- -- - 'cmdSetColorBlendEnableEXT' -- -- - 'cmdSetColorBlendEquationEXT' -- -- - 'cmdSetColorWriteMaskEXT' -- -- - 'cmdSetDepthClampEnableEXT' -- -- - 'cmdSetLogicOpEnableEXT' -- -- - 'cmdSetPolygonModeEXT' -- -- - 'cmdSetRasterizationSamplesEXT' -- -- - 'cmdSetSampleMaskEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_blend_operation_advanced VK_EXT_blend_operation_advanced> -- is supported: -- -- - 'cmdSetColorBlendAdvancedEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_conservative_rasterization VK_EXT_conservative_rasterization> -- is supported: -- -- - 'cmdSetConservativeRasterizationModeEXT' -- -- - 'cmdSetExtraPrimitiveOverestimationSizeEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_depth_clip_control VK_EXT_depth_clip_control> -- is supported: -- -- - 'cmdSetDepthClipNegativeOneToOneEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_depth_clip_enable VK_EXT_depth_clip_enable> -- is supported: -- -- - 'cmdSetDepthClipEnableEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_line_rasterization VK_EXT_line_rasterization> -- is supported: -- -- - 'cmdSetLineRasterizationModeEXT' -- -- - 'cmdSetLineStippleEnableEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_provoking_vertex VK_EXT_provoking_vertex> -- is supported: -- -- - 'cmdSetProvokingVertexModeEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_sample_locations VK_EXT_sample_locations> -- is supported: -- -- - 'cmdSetSampleLocationsEnableEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_transform_feedback VK_EXT_transform_feedback> -- is supported: -- -- - 'cmdSetRasterizationStreamEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_KHR_maintenance2 VK_KHR_maintenance2> -- or -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#versions-1.1 Vulkan Version 1.1> -- is supported: -- -- - 'cmdSetTessellationDomainOriginEXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_clip_space_w_scaling VK_NV_clip_space_w_scaling> -- is supported: -- -- - 'cmdSetViewportWScalingEnableNV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_coverage_reduction_mode VK_NV_coverage_reduction_mode> -- is supported: -- -- - 'cmdSetCoverageReductionModeNV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_fragment_coverage_to_color VK_NV_fragment_coverage_to_color> -- is supported: -- -- - 'cmdSetCoverageToColorEnableNV' -- -- - 'cmdSetCoverageToColorLocationNV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_framebuffer_mixed_samples VK_NV_framebuffer_mixed_samples> -- is supported: -- -- - 'cmdSetCoverageModulationModeNV' -- -- - 'cmdSetCoverageModulationTableEnableNV' -- -- - 'cmdSetCoverageModulationTableNV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_representative_fragment_test VK_NV_representative_fragment_test> -- is supported: -- -- - 'cmdSetRepresentativeFragmentTestEnableNV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_shading_rate_image VK_NV_shading_rate_image> -- is supported: -- -- - 'cmdSetShadingRateImageEnableNV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_viewport_swizzle VK_NV_viewport_swizzle> -- is supported: -- -- - 'cmdSetViewportSwizzleNV' -- -- == New Structures -- -- - 'ColorBlendAdvancedEXT' -- -- - 'ColorBlendEquationEXT' -- -- - Extending -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2', -- 'Vulkan.Core10.Device.DeviceCreateInfo': -- -- - 'PhysicalDeviceExtendedDynamicState3FeaturesEXT' -- -- - Extending -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceProperties2': -- -- - 'PhysicalDeviceExtendedDynamicState3PropertiesEXT' -- -- == New Enum Constants -- -- - 'EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME' -- -- - 'EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION' -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_ALPHA_TO_COVERAGE_ENABLE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_ALPHA_TO_ONE_ENABLE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_ENABLE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_EQUATION_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_WRITE_MASK_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLAMP_ENABLE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LOGIC_OP_ENABLE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_POLYGON_MODE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_RASTERIZATION_SAMPLES_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SAMPLE_MASK_EXT' -- -- - Extending 'Vulkan.Core10.Enums.StructureType.StructureType': -- -- - 'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_FEATURES_EXT' -- -- - 'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_3_PROPERTIES_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_blend_operation_advanced VK_EXT_blend_operation_advanced> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_ADVANCED_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_conservative_rasterization VK_EXT_conservative_rasterization> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_CONSERVATIVE_RASTERIZATION_MODE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_EXTRA_PRIMITIVE_OVERESTIMATION_SIZE_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_depth_clip_control VK_EXT_depth_clip_control> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLIP_NEGATIVE_ONE_TO_ONE_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_depth_clip_enable VK_EXT_depth_clip_enable> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLIP_ENABLE_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_line_rasterization VK_EXT_line_rasterization> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LINE_RASTERIZATION_MODE_EXT' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LINE_STIPPLE_ENABLE_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_provoking_vertex VK_EXT_provoking_vertex> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_PROVOKING_VERTEX_MODE_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_sample_locations VK_EXT_sample_locations> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SAMPLE_LOCATIONS_ENABLE_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_transform_feedback VK_EXT_transform_feedback> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_RASTERIZATION_STREAM_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_KHR_maintenance2 VK_KHR_maintenance2> -- or -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#versions-1.1 Vulkan Version 1.1> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_TESSELLATION_DOMAIN_ORIGIN_EXT' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_clip_space_w_scaling VK_NV_clip_space_w_scaling> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_VIEWPORT_W_SCALING_ENABLE_NV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_coverage_reduction_mode VK_NV_coverage_reduction_mode> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_REDUCTION_MODE_NV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_fragment_coverage_to_color VK_NV_fragment_coverage_to_color> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_TO_COLOR_ENABLE_NV' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_TO_COLOR_LOCATION_NV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_framebuffer_mixed_samples VK_NV_framebuffer_mixed_samples> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_MODE_NV' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_TABLE_ENABLE_NV' -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_TABLE_NV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_representative_fragment_test VK_NV_representative_fragment_test> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_REPRESENTATIVE_FRAGMENT_TEST_ENABLE_NV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_shading_rate_image VK_NV_shading_rate_image> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SHADING_RATE_IMAGE_ENABLE_NV' -- -- If -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_viewport_swizzle VK_NV_viewport_swizzle> -- is supported: -- -- - Extending 'Vulkan.Core10.Enums.DynamicState.DynamicState': -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_VIEWPORT_SWIZZLE_NV' -- -- == Issues -- -- 1) What about the VkPipelineMultisampleStateCreateInfo state -- @sampleShadingEnable@ and @minSampleShading@? -- -- @sampleShadingEnable@ and @minSampleShading@ are required when compiling -- the fragment shader, and it is not meaningful to set them dynamically -- since they always need to match the fragment shader state, so this -- hardware state may as well just come from the pipeline with the fragment -- shader. -- -- == Version History -- -- - Revision 2, 2022-07-18 (Piers Daniell) -- -- - Added rasterizationSamples -- -- - Revision 1, 2022-05-18 (Piers Daniell) -- -- - Internal revisions -- -- == See Also -- -- No cross-references are available -- -- == Document Notes -- -- For more information, see the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#VK_EXT_extended_dynamic_state3 Vulkan Specification>. -- -- This page is a generated document. Fixes and changes should be made to -- the generator scripts, not directly. 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(..) , ProvokingVertexModeEXT(..) , LineRasterizationModeEXT ) 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 qualified Data.Vector (null) 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.Core14.Enums.LineRasterizationMode (LineRasterizationMode(..)) 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 () -- | vkCmdSetTessellationDomainOriginEXT - Specify the origin of the -- tessellation domain space dynamically for a command buffer -- -- = Description -- -- This command sets the origin of the tessellation domain space for -- subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_TESSELLATION_DOMAIN_ORIGIN_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core11.Promoted_From_VK_KHR_maintenance2.PipelineTessellationDomainOriginStateCreateInfo'::@domainOrigin@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetTessellationDomainOriginEXT-None-09423# At least one -- of the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3TessellationDomainOrigin extendedDynamicState3TessellationDomainOrigin> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetTessellationDomainOriginEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetTessellationDomainOriginEXT-domainOrigin-parameter# -- @domainOrigin@ /must/ be a valid -- 'Vulkan.Core11.Enums.TessellationDomainOrigin.TessellationDomainOrigin' -- value -- -- - #VUID-vkCmdSetTessellationDomainOriginEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetTessellationDomainOriginEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetTessellationDomainOriginEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetTessellationDomainOriginEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_KHR_maintenance2 VK_KHR_maintenance2>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_VERSION_1_1 VK_VERSION_1_1>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Core11.Enums.TessellationDomainOrigin.TessellationDomainOrigin' cmdSetTessellationDomainOriginEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @domainOrigin@ specifies the origin of the tessellation domain space. TessellationDomainOrigin -> io () cmdSetTessellationDomainOriginEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> TessellationDomainOrigin -> io () cmdSetTessellationDomainOriginEXT CommandBuffer commandBuffer TessellationDomainOrigin domainOrigin = IO () -> io () forall a. IO a -> io a 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 deviceCmds :: DeviceCmds deviceCmds :: CommandBuffer -> 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetDepthClampEnableEXT - Specify dynamically whether depth clamping -- is enabled in the command buffer -- -- = Description -- -- This command sets whether depth clamping is enabled or disabled for -- subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLAMP_ENABLE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineRasterizationStateCreateInfo'::@depthClampEnable@ -- value used to create the currently active pipeline. -- -- If the depth clamping state is changed dynamically, and the pipeline was -- not created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLIP_ENABLE_EXT' -- enabled, then depth clipping is enabled when depth clamping is disabled -- and vice versa. -- -- == Valid Usage -- -- - #VUID-vkCmdSetDepthClampEnableEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3DepthClampEnable extendedDynamicState3DepthClampEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetDepthClampEnableEXT-depthClamp-07449# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-depthClamp depthClamp> -- feature is not enabled, @depthClampEnable@ /must/ be -- 'Vulkan.Core10.FundamentalTypes.FALSE' -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetDepthClampEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetDepthClampEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetDepthClampEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetDepthClampEnableEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetDepthClampEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetDepthClampEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @depthClampEnable@ specifies whether depth clamping is enabled. ("depthClampEnable" ::: Bool) -> io () cmdSetDepthClampEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetDepthClampEnableEXT CommandBuffer commandBuffer Bool depthClampEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetDepthClampEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetDepthClampEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetDepthClampEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetDepthClampEnableEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetDepthClampEnableEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetDepthClampEnableEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetDepthClampEnableEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetDepthClampEnableEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool depthClampEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetPolygonModeEXT - Specify polygon mode dynamically for a command -- buffer -- -- = Description -- -- This command sets the polygon mode for subsequent drawing commands when -- drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_POLYGON_MODE_EXT' set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineRasterizationStateCreateInfo'::@polygonMode@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetPolygonModeEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3PolygonMode extendedDynamicState3PolygonMode> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetPolygonModeEXT-fillModeNonSolid-07424# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-fillModeNonSolid fillModeNonSolid> -- feature is not enabled, @polygonMode@ /must/ be -- 'Vulkan.Core10.Enums.PolygonMode.POLYGON_MODE_FILL' or -- 'Vulkan.Core10.Enums.PolygonMode.POLYGON_MODE_FILL_RECTANGLE_NV' -- -- - #VUID-vkCmdSetPolygonModeEXT-polygonMode-07425# If the -- @VK_NV_fill_rectangle@ extension is not enabled, @polygonMode@ -- /must/ not be -- 'Vulkan.Core10.Enums.PolygonMode.POLYGON_MODE_FILL_RECTANGLE_NV' -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetPolygonModeEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetPolygonModeEXT-polygonMode-parameter# @polygonMode@ -- /must/ be a valid 'Vulkan.Core10.Enums.PolygonMode.PolygonMode' -- value -- -- - #VUID-vkCmdSetPolygonModeEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetPolygonModeEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetPolygonModeEXT-videocoding# This command /must/ only -- be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetPolygonModeEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Core10.Enums.PolygonMode.PolygonMode' cmdSetPolygonModeEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @polygonMode@ specifies polygon mode. PolygonMode -> io () cmdSetPolygonModeEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> PolygonMode -> io () cmdSetPolygonModeEXT CommandBuffer commandBuffer PolygonMode polygonMode = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetRasterizationSamplesEXT - Specify the rasterization samples -- dynamically for a command buffer -- -- = Description -- -- This command sets the @rasterizationSamples@ for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_RASTERIZATION_SAMPLES_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineMultisampleStateCreateInfo'::@rasterizationSamples@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetRasterizationSamplesEXT-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3RasterizationSamples extendedDynamicState3RasterizationSamples> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetRasterizationSamplesEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetRasterizationSamplesEXT-rasterizationSamples-parameter# -- @rasterizationSamples@ /must/ be a valid -- 'Vulkan.Core10.Enums.SampleCountFlagBits.SampleCountFlagBits' value -- -- - #VUID-vkCmdSetRasterizationSamplesEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetRasterizationSamplesEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetRasterizationSamplesEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetRasterizationSamplesEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Core10.Enums.SampleCountFlagBits.SampleCountFlagBits' cmdSetRasterizationSamplesEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @rasterizationSamples@ specifies @rasterizationSamples@. ("rasterizationSamples" ::: SampleCountFlagBits) -> io () cmdSetRasterizationSamplesEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> ("rasterizationSamples" ::: SampleCountFlagBits) -> io () cmdSetRasterizationSamplesEXT CommandBuffer commandBuffer "rasterizationSamples" ::: SampleCountFlagBits rasterizationSamples = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetSampleMaskEXT - Specify the sample mask dynamically for a -- command buffer -- -- = Description -- -- This command sets the sample mask for subsequent drawing commands when -- drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SAMPLE_MASK_EXT' set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineMultisampleStateCreateInfo'::@pSampleMask@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetSampleMaskEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3SampleMask extendedDynamicState3SampleMask> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetSampleMaskEXT-pSampleMask-10999# @pSampleMask@ /must/ -- not be @NULL@ if the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-maintenance10 maintenance10> -- feature is not enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetSampleMaskEXT-commandBuffer-parameter# @commandBuffer@ -- /must/ be a valid 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetSampleMaskEXT-samples-parameter# @samples@ /must/ be a -- valid 'Vulkan.Core10.Enums.SampleCountFlagBits.SampleCountFlagBits' -- value -- -- - #VUID-vkCmdSetSampleMaskEXT-pSampleMask-parameter# If @pSampleMask@ -- is not @NULL@, @pSampleMask@ /must/ be a valid pointer to an array -- of \(\lceil{\mathit{samples} \over 32}\rceil\) -- 'Vulkan.Core10.FundamentalTypes.SampleMask' values -- -- - #VUID-vkCmdSetSampleMaskEXT-commandBuffer-recording# @commandBuffer@ -- /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetSampleMaskEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetSampleMaskEXT-videocoding# This command /must/ only be -- called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetSampleMaskEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Core10.Enums.SampleCountFlagBits.SampleCountFlagBits', -- 'Vulkan.Core10.FundamentalTypes.SampleMask' cmdSetSampleMaskEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @samples@ specifies the number of sample bits in the @pSampleMask@. ("samples" ::: SampleCountFlagBits) -> -- | @pSampleMask@ is a pointer to an array of -- 'Vulkan.Core10.FundamentalTypes.SampleMask' values, where the array size -- is based on the @samples@ parameter. If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-maintenance10 maintenance10> -- feature is enabled, and this parameter is set to @NULL@, it is treated -- as if the mask has all bits set to @1@. ("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 a. IO a -> io a 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) -> Ptr SampleMask -> IO ()) vkCmdSetSampleMaskEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> ("rasterizationSamples" ::: SampleCountFlagBits) -> Ptr SampleMask -> IO ()) pVkCmdSetSampleMaskEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) IO () -> ContT () IO () forall (m :: * -> *) a. Monad m => m a -> ContT () m a 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) -> Ptr SampleMask -> IO ()) vkCmdSetSampleMaskEXTPtr FunPtr (Ptr CommandBuffer_T -> ("rasterizationSamples" ::: SampleCountFlagBits) -> Ptr SampleMask -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> ("rasterizationSamples" ::: SampleCountFlagBits) -> Ptr SampleMask -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> ("rasterizationSamples" ::: SampleCountFlagBits) -> Ptr SampleMask -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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) -> Ptr SampleMask -> IO () vkCmdSetSampleMaskEXT' = FunPtr (Ptr CommandBuffer_T -> ("rasterizationSamples" ::: SampleCountFlagBits) -> Ptr SampleMask -> IO ()) -> Ptr CommandBuffer_T -> ("rasterizationSamples" ::: SampleCountFlagBits) -> Ptr SampleMask -> IO () mkVkCmdSetSampleMaskEXT FunPtr (Ptr CommandBuffer_T -> ("rasterizationSamples" ::: SampleCountFlagBits) -> Ptr SampleMask -> IO ()) vkCmdSetSampleMaskEXTPtr pSampleMask <- if ("sampleMask" ::: Vector SampleMask) -> Bool forall a. Vector a -> Bool Data.Vector.null ("sampleMask" ::: Vector SampleMask sampleMask) then Ptr SampleMask -> ContT () IO (Ptr SampleMask) forall a. a -> ContT () IO a forall (f :: * -> *) a. Applicative f => a -> f a pure Ptr SampleMask forall a. Ptr a nullPtr else do pPSampleMask <- ((Ptr SampleMask -> IO ()) -> IO ()) -> ContT () IO (Ptr SampleMask) forall {k} (r :: k) (m :: k -> *) a. ((a -> m r) -> m r) -> ContT r m a ContT (((Ptr SampleMask -> IO ()) -> IO ()) -> ContT () IO (Ptr SampleMask)) -> ((Ptr SampleMask -> IO ()) -> IO ()) -> ContT () IO (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) lift $ Data.Vector.imapM_ (\Int i SampleMask e -> Ptr SampleMask -> SampleMask -> IO () forall a. Storable a => Ptr a -> a -> IO () poke (Ptr SampleMask pPSampleMask Ptr SampleMask -> Int -> 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)) pure $ pPSampleMask lift $ traceAroundEvent "vkCmdSetSampleMaskEXT" (vkCmdSetSampleMaskEXT' (commandBufferHandle (commandBuffer)) (samples) pSampleMask) pure $ () foreign import ccall #if !defined(SAFE_FOREIGN_CALLS) unsafe #endif "dynamic" mkVkCmdSetAlphaToCoverageEnableEXT :: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () -- | vkCmdSetAlphaToCoverageEnableEXT - Specify the alpha to coverage enable -- state dynamically for a command buffer -- -- = Description -- -- This command sets the @alphaToCoverageEnable@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_ALPHA_TO_COVERAGE_ENABLE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineMultisampleStateCreateInfo'::@alphaToCoverageEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetAlphaToCoverageEnableEXT-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3AlphaToCoverageEnable extendedDynamicState3AlphaToCoverageEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetAlphaToCoverageEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetAlphaToCoverageEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetAlphaToCoverageEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetAlphaToCoverageEnableEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetAlphaToCoverageEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetAlphaToCoverageEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @alphaToCoverageEnable@ specifies the @alphaToCoverageEnable@ state. ("alphaToCoverageEnable" ::: Bool) -> io () cmdSetAlphaToCoverageEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetAlphaToCoverageEnableEXT CommandBuffer commandBuffer Bool alphaToCoverageEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetAlphaToCoverageEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetAlphaToCoverageEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetAlphaToCoverageEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetAlphaToCoverageEnableEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetAlphaToCoverageEnableEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetAlphaToCoverageEnableEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetAlphaToCoverageEnableEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetAlphaToCoverageEnableEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool alphaToCoverageEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetAlphaToOneEnableEXT - Specify the alpha to one enable state -- dynamically for a command buffer -- -- = Description -- -- This command sets the @alphaToOneEnable@ state for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_ALPHA_TO_ONE_ENABLE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineMultisampleStateCreateInfo'::@alphaToOneEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetAlphaToOneEnableEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3AlphaToOneEnable extendedDynamicState3AlphaToOneEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetAlphaToOneEnableEXT-alphaToOne-07607# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-alphaToOne alphaToOne> -- feature is not enabled, @alphaToOneEnable@ /must/ be -- 'Vulkan.Core10.FundamentalTypes.FALSE' -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetAlphaToOneEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetAlphaToOneEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetAlphaToOneEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetAlphaToOneEnableEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetAlphaToOneEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetAlphaToOneEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @alphaToOneEnable@ specifies the @alphaToOneEnable@ state. ("alphaToOneEnable" ::: Bool) -> io () cmdSetAlphaToOneEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetAlphaToOneEnableEXT CommandBuffer commandBuffer Bool alphaToOneEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetAlphaToOneEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetAlphaToOneEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetAlphaToOneEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetAlphaToOneEnableEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetAlphaToOneEnableEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetAlphaToOneEnableEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetAlphaToOneEnableEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetAlphaToOneEnableEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool alphaToOneEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetLogicOpEnableEXT - Specify dynamically whether logical -- operations are enabled for a command buffer -- -- = Description -- -- This command sets whether logical operations are enabled for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LOGIC_OP_ENABLE_EXT' set -- in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendStateCreateInfo'::@logicOpEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetLogicOpEnableEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3LogicOpEnable extendedDynamicState3LogicOpEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetLogicOpEnableEXT-logicOp-07366# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-logicOp logicOp> -- feature is not enabled, @logicOpEnable@ /must/ be -- 'Vulkan.Core10.FundamentalTypes.FALSE' -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetLogicOpEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetLogicOpEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetLogicOpEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetLogicOpEnableEXT-videocoding# This command /must/ only -- be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetLogicOpEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetLogicOpEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @logicOpEnable@ specifies whether logical operations are enabled. ("logicOpEnable" ::: Bool) -> io () cmdSetLogicOpEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetLogicOpEnableEXT CommandBuffer commandBuffer Bool logicOpEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetLogicOpEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetLogicOpEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetLogicOpEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetLogicOpEnableEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetLogicOpEnableEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetLogicOpEnableEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetLogicOpEnableEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetLogicOpEnableEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool logicOpEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetColorBlendEnableEXT - Specify the @blendEnable@ for each -- attachment dynamically for a command buffer -- -- = Description -- -- This command sets the color blending enable of the specified color -- attachments for subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_ENABLE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@blendEnable@ -- values used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetColorBlendEnableEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ColorBlendEnable extendedDynamicState3ColorBlendEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetColorBlendEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetColorBlendEnableEXT-pColorBlendEnables-parameter# -- @pColorBlendEnables@ /must/ be a valid pointer to an array of -- @attachmentCount@ 'Vulkan.Core10.FundamentalTypes.Bool32' values -- -- - #VUID-vkCmdSetColorBlendEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetColorBlendEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetColorBlendEnableEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- - #VUID-vkCmdSetColorBlendEnableEXT-attachmentCount-arraylength# -- @attachmentCount@ /must/ be greater than @0@ -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetColorBlendEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetColorBlendEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @firstAttachment@ the first color attachment the color blending enable -- applies. ("firstAttachment" ::: Word32) -> -- | @pColorBlendEnables@ an array of booleans to indicate whether color -- blending is enabled for the corresponding attachment. ("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 a. IO a -> io a 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 -> Ptr Bool32 -> IO ()) vkCmdSetColorBlendEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr Bool32 -> IO ()) pVkCmdSetColorBlendEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) IO () -> ContT () IO () forall (m :: * -> *) a. Monad m => m a -> ContT () m a 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 -> Ptr Bool32 -> IO ()) vkCmdSetColorBlendEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Ptr Bool32 -> IO () vkCmdSetColorBlendEnableEXT' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr Bool32 -> IO ()) -> Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr Bool32 -> IO () mkVkCmdSetColorBlendEnableEXT FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr Bool32 -> IO ()) vkCmdSetColorBlendEnableEXTPtr pPColorBlendEnables <- ((Ptr Bool32 -> IO ()) -> IO ()) -> ContT () IO (Ptr Bool32) forall {k} (r :: k) (m :: k -> *) a. ((a -> m r) -> m r) -> ContT r m a ContT (((Ptr Bool32 -> IO ()) -> IO ()) -> ContT () IO (Ptr Bool32)) -> ((Ptr Bool32 -> IO ()) -> IO ()) -> ContT () IO (Ptr 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) lift $ Data.Vector.imapM_ (\Int i Bool e -> Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke (Ptr Bool32 pPColorBlendEnables Ptr Bool32 -> Int -> Ptr 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 -> Bool32 boolToBool32 (Bool e))) (colorBlendEnables) lift $ traceAroundEvent "vkCmdSetColorBlendEnableEXT" (vkCmdSetColorBlendEnableEXT' (commandBufferHandle (commandBuffer)) (firstAttachment) ((fromIntegral (Data.Vector.length $ (colorBlendEnables)) :: Word32)) (pPColorBlendEnables)) pure $ () 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 () -- | vkCmdSetColorBlendEquationEXT - Specify the blend factors and operations -- dynamically for a command buffer -- -- = Description -- -- This command sets the color blending factors and operations of the -- specified attachments for subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_EQUATION_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@srcColorBlendFactor@, -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@dstColorBlendFactor@, -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@colorBlendOp@, -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@srcAlphaBlendFactor@, -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@dstAlphaBlendFactor@, -- and -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@alphaBlendOp@ -- values used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetColorBlendEquationEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ColorBlendEquation extendedDynamicState3ColorBlendEquation> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetColorBlendEquationEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetColorBlendEquationEXT-pColorBlendEquations-parameter# -- @pColorBlendEquations@ /must/ be a valid pointer to an array of -- @attachmentCount@ valid 'ColorBlendEquationEXT' structures -- -- - #VUID-vkCmdSetColorBlendEquationEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetColorBlendEquationEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetColorBlendEquationEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- - #VUID-vkCmdSetColorBlendEquationEXT-attachmentCount-arraylength# -- @attachmentCount@ /must/ be greater than @0@ -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetColorBlendEquationEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'ColorBlendEquationEXT', 'Vulkan.Core10.Handles.CommandBuffer' cmdSetColorBlendEquationEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @firstAttachment@ the first color attachment the color blend factors and -- operations apply to. ("firstAttachment" ::: Word32) -> -- | @pColorBlendEquations@ an array of 'ColorBlendEquationEXT' structs that -- specify the color blend factors and operations for the corresponding -- attachments. ("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 a. IO a -> io a 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 -> Ptr ColorBlendEquationEXT -> IO ()) vkCmdSetColorBlendEquationEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendEquationEXT -> IO ()) pVkCmdSetColorBlendEquationEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) IO () -> ContT () IO () forall (m :: * -> *) a. Monad m => m a -> ContT () m a 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 -> Ptr ColorBlendEquationEXT -> IO ()) vkCmdSetColorBlendEquationEXTPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendEquationEXT -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendEquationEXT -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendEquationEXT -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Ptr ColorBlendEquationEXT -> IO () vkCmdSetColorBlendEquationEXT' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendEquationEXT -> IO ()) -> Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendEquationEXT -> IO () mkVkCmdSetColorBlendEquationEXT FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendEquationEXT -> IO ()) vkCmdSetColorBlendEquationEXTPtr pPColorBlendEquations <- ((Ptr ColorBlendEquationEXT -> IO ()) -> IO ()) -> ContT () IO (Ptr ColorBlendEquationEXT) forall {k} (r :: k) (m :: k -> *) a. ((a -> m r) -> m r) -> ContT r m a ContT (((Ptr ColorBlendEquationEXT -> IO ()) -> IO ()) -> ContT () IO (Ptr ColorBlendEquationEXT)) -> ((Ptr ColorBlendEquationEXT -> IO ()) -> IO ()) -> ContT () IO (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) lift $ Data.Vector.imapM_ (\Int i ColorBlendEquationEXT e -> Ptr ColorBlendEquationEXT -> ColorBlendEquationEXT -> IO () forall a. Storable a => Ptr a -> a -> IO () poke (Ptr ColorBlendEquationEXT pPColorBlendEquations Ptr ColorBlendEquationEXT -> Int -> 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) lift $ traceAroundEvent "vkCmdSetColorBlendEquationEXT" (vkCmdSetColorBlendEquationEXT' (commandBufferHandle (commandBuffer)) (firstAttachment) ((fromIntegral (Data.Vector.length $ (colorBlendEquations)) :: Word32)) (pPColorBlendEquations)) pure $ () 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 () -- | vkCmdSetColorWriteMaskEXT - Specify the color write masks for each -- attachment dynamically for a command buffer -- -- = Description -- -- This command sets the color write masks of the specified attachments for -- subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_WRITE_MASK_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core10.GraphicsPipeline.PipelineColorBlendAttachmentState'::@colorWriteMask@ -- values used to create the currently active pipeline. -- -- Formats with bits that are shared between components specified by -- 'Vulkan.Core10.Enums.ColorComponentFlagBits.ColorComponentFlagBits', -- such as 'Vulkan.Core10.Enums.Format.FORMAT_E5B9G9R9_UFLOAT_PACK32', -- cannot have their channels individually masked by this functionality; -- either all components that share bits have to be enabled, or none of -- them. -- -- == Valid Usage -- -- - #VUID-vkCmdSetColorWriteMaskEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ColorWriteMask extendedDynamicState3ColorWriteMask> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetColorWriteMaskEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetColorWriteMaskEXT-pColorWriteMasks-parameter# -- @pColorWriteMasks@ /must/ be a valid pointer to an array of -- @attachmentCount@ valid combinations of -- 'Vulkan.Core10.Enums.ColorComponentFlagBits.ColorComponentFlagBits' -- values -- -- - #VUID-vkCmdSetColorWriteMaskEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetColorWriteMaskEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetColorWriteMaskEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- - #VUID-vkCmdSetColorWriteMaskEXT-attachmentCount-arraylength# -- @attachmentCount@ /must/ be greater than @0@ -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetColorWriteMaskEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Enums.ColorComponentFlagBits.ColorComponentFlags', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetColorWriteMaskEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @firstAttachment@ the first color attachment the color write masks apply -- to. ("firstAttachment" ::: Word32) -> -- | @pColorWriteMasks@ an array of -- 'Vulkan.Core10.Enums.ColorComponentFlagBits.ColorComponentFlags' values -- that specify the color write masks of the corresponding attachments. ("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 a. IO a -> io a 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 -> Ptr ColorComponentFlags -> IO ()) vkCmdSetColorWriteMaskEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorComponentFlags -> IO ()) pVkCmdSetColorWriteMaskEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) IO () -> ContT () IO () forall (m :: * -> *) a. Monad m => m a -> ContT () m a 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 -> Ptr ColorComponentFlags -> IO ()) vkCmdSetColorWriteMaskEXTPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorComponentFlags -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorComponentFlags -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorComponentFlags -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Ptr ColorComponentFlags -> IO () vkCmdSetColorWriteMaskEXT' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorComponentFlags -> IO ()) -> Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorComponentFlags -> IO () mkVkCmdSetColorWriteMaskEXT FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorComponentFlags -> IO ()) vkCmdSetColorWriteMaskEXTPtr pPColorWriteMasks <- ((Ptr ColorComponentFlags -> IO ()) -> IO ()) -> ContT () IO (Ptr ColorComponentFlags) forall {k} (r :: k) (m :: k -> *) a. ((a -> m r) -> m r) -> ContT r m a ContT (((Ptr ColorComponentFlags -> IO ()) -> IO ()) -> ContT () IO (Ptr ColorComponentFlags)) -> ((Ptr ColorComponentFlags -> IO ()) -> IO ()) -> ContT () IO (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) lift $ Data.Vector.imapM_ (\Int i ColorComponentFlags e -> Ptr ColorComponentFlags -> ColorComponentFlags -> IO () forall a. Storable a => Ptr a -> a -> IO () poke (Ptr ColorComponentFlags pPColorWriteMasks Ptr ColorComponentFlags -> Int -> 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) lift $ traceAroundEvent "vkCmdSetColorWriteMaskEXT" (vkCmdSetColorWriteMaskEXT' (commandBufferHandle (commandBuffer)) (firstAttachment) ((fromIntegral (Data.Vector.length $ (colorWriteMasks)) :: Word32)) (pPColorWriteMasks)) pure $ () foreign import ccall #if !defined(SAFE_FOREIGN_CALLS) unsafe #endif "dynamic" mkVkCmdSetRasterizationStreamEXT :: FunPtr (Ptr CommandBuffer_T -> Word32 -> IO ()) -> Ptr CommandBuffer_T -> Word32 -> IO () -- | vkCmdSetRasterizationStreamEXT - Specify the rasterization stream -- dynamically for a command buffer -- -- = Description -- -- This command sets the @rasterizationStream@ state for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_RASTERIZATION_STREAM_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_transform_feedback.PipelineRasterizationStateStreamCreateInfoEXT'::@rasterizationStream@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetRasterizationStreamEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3RasterizationStream extendedDynamicState3RasterizationStream> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetRasterizationStreamEXT-transformFeedback-07411# The -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-transformFeedback transformFeedback> -- feature /must/ be enabled -- -- - #VUID-vkCmdSetRasterizationStreamEXT-rasterizationStream-07412# -- @rasterizationStream@ /must/ be less than -- 'Vulkan.Extensions.VK_EXT_transform_feedback.PhysicalDeviceTransformFeedbackPropertiesEXT'::@maxTransformFeedbackStreams@ -- -- - #VUID-vkCmdSetRasterizationStreamEXT-rasterizationStream-07413# -- @rasterizationStream@ /must/ be zero if -- 'Vulkan.Extensions.VK_EXT_transform_feedback.PhysicalDeviceTransformFeedbackPropertiesEXT'::@transformFeedbackRasterizationStreamSelect@ -- is 'Vulkan.Core10.FundamentalTypes.FALSE' -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetRasterizationStreamEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetRasterizationStreamEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetRasterizationStreamEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetRasterizationStreamEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetRasterizationStreamEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_transform_feedback VK_EXT_transform_feedback>, -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetRasterizationStreamEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @rasterizationStream@ specifies the @rasterizationStream@ state. ("rasterizationStream" ::: Word32) -> io () cmdSetRasterizationStreamEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> SampleMask -> io () cmdSetRasterizationStreamEXT CommandBuffer commandBuffer SampleMask rasterizationStream = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetConservativeRasterizationModeEXT - Specify the conservative -- rasterization mode dynamically for a command buffer -- -- = Description -- -- This command sets the @conservativeRasterizationMode@ state for -- subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_CONSERVATIVE_RASTERIZATION_MODE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_conservative_rasterization.PipelineRasterizationConservativeStateCreateInfoEXT'::@conservativeRasterizationMode@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetConservativeRasterizationModeEXT-None-09423# At least -- one of the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ConservativeRasterizationMode extendedDynamicState3ConservativeRasterizationMode> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetConservativeRasterizationModeEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetConservativeRasterizationModeEXT-conservativeRasterizationMode-parameter# -- @conservativeRasterizationMode@ /must/ be a valid -- 'Vulkan.Extensions.VK_EXT_conservative_rasterization.ConservativeRasterizationModeEXT' -- value -- -- - #VUID-vkCmdSetConservativeRasterizationModeEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetConservativeRasterizationModeEXT-commandBuffer-cmdpool# -- The 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetConservativeRasterizationModeEXT-videocoding# This -- command /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetConservativeRasterizationModeEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_conservative_rasterization VK_EXT_conservative_rasterization>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Extensions.VK_EXT_conservative_rasterization.ConservativeRasterizationModeEXT' cmdSetConservativeRasterizationModeEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @conservativeRasterizationMode@ specifies the -- @conservativeRasterizationMode@ state. ConservativeRasterizationModeEXT -> io () cmdSetConservativeRasterizationModeEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> ConservativeRasterizationModeEXT -> io () cmdSetConservativeRasterizationModeEXT CommandBuffer commandBuffer ConservativeRasterizationModeEXT conservativeRasterizationMode = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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" mkVkCmdSetExtraPrimitiveOverestimationSizeEXT :: FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) -> Ptr CommandBuffer_T -> CFloat -> IO () -- | vkCmdSetExtraPrimitiveOverestimationSizeEXT - Specify the conservative -- rasterization extra primitive overestimation size dynamically for a -- command buffer -- -- = Description -- -- This command sets the @extraPrimitiveOverestimationSize@ for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_EXTRA_PRIMITIVE_OVERESTIMATION_SIZE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_conservative_rasterization.PipelineRasterizationConservativeStateCreateInfoEXT'::@extraPrimitiveOverestimationSize@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetExtraPrimitiveOverestimationSizeEXT-None-09423# At -- least one of the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ExtraPrimitiveOverestimationSize extendedDynamicState3ExtraPrimitiveOverestimationSize> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetExtraPrimitiveOverestimationSizeEXT-extraPrimitiveOverestimationSize-07428# -- @extraPrimitiveOverestimationSize@ /must/ be in the range of @0.0@ -- to -- 'Vulkan.Extensions.VK_EXT_conservative_rasterization.PhysicalDeviceConservativeRasterizationPropertiesEXT'::@maxExtraPrimitiveOverestimationSize@ -- inclusive -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetExtraPrimitiveOverestimationSizeEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetExtraPrimitiveOverestimationSizeEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetExtraPrimitiveOverestimationSizeEXT-commandBuffer-cmdpool# -- The 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetExtraPrimitiveOverestimationSizeEXT-videocoding# This -- command /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetExtraPrimitiveOverestimationSizeEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_conservative_rasterization VK_EXT_conservative_rasterization>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetExtraPrimitiveOverestimationSizeEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @extraPrimitiveOverestimationSize@ specifies the -- @extraPrimitiveOverestimationSize@. ("extraPrimitiveOverestimationSize" ::: Float) -> io () cmdSetExtraPrimitiveOverestimationSizeEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> ("extraPrimitiveOverestimationSize" ::: Float) -> io () cmdSetExtraPrimitiveOverestimationSizeEXT CommandBuffer commandBuffer "extraPrimitiveOverestimationSize" ::: Float extraPrimitiveOverestimationSize = IO () -> io () forall a. IO a -> io a 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 -> CFloat -> IO ()) vkCmdSetExtraPrimitiveOverestimationSizeEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) pVkCmdSetExtraPrimitiveOverestimationSizeEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) vkCmdSetExtraPrimitiveOverestimationSizeEXTPtr FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> CFloat -> IO () vkCmdSetExtraPrimitiveOverestimationSizeEXT' = FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) -> Ptr CommandBuffer_T -> CFloat -> IO () mkVkCmdSetExtraPrimitiveOverestimationSizeEXT FunPtr (Ptr CommandBuffer_T -> CFloat -> IO ()) vkCmdSetExtraPrimitiveOverestimationSizeEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetExtraPrimitiveOverestimationSizeEXT" (Ptr CommandBuffer_T -> CFloat -> IO () vkCmdSetExtraPrimitiveOverestimationSizeEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (("extraPrimitiveOverestimationSize" ::: Float) -> CFloat CFloat ("extraPrimitiveOverestimationSize" ::: Float extraPrimitiveOverestimationSize))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetDepthClipEnableEXT - Specify dynamically whether depth clipping -- is enabled in the command buffer -- -- = Description -- -- This command sets whether depth clipping is enabled or disabled for -- subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLIP_ENABLE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_depth_clip_enable.PipelineRasterizationDepthClipStateCreateInfoEXT'::@depthClipEnable@ -- value used to create the currently active pipeline, or by the inverse of -- 'Vulkan.Core10.GraphicsPipeline.PipelineRasterizationStateCreateInfo'::@depthClampEnable@ -- if -- 'Vulkan.Extensions.VK_EXT_depth_clip_enable.PipelineRasterizationDepthClipStateCreateInfoEXT' -- is not specified. -- -- == Valid Usage -- -- - #VUID-vkCmdSetDepthClipEnableEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3DepthClipEnable extendedDynamicState3DepthClipEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetDepthClipEnableEXT-depthClipEnable-07451# The -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-depthClipEnable depthClipEnable> -- feature /must/ be enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetDepthClipEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetDepthClipEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetDepthClipEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetDepthClipEnableEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetDepthClipEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_depth_clip_enable VK_EXT_depth_clip_enable>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetDepthClipEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @depthClipEnable@ specifies whether depth clipping is enabled. ("depthClipEnable" ::: Bool) -> io () cmdSetDepthClipEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetDepthClipEnableEXT CommandBuffer commandBuffer Bool depthClipEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetDepthClipEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetDepthClipEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetDepthClipEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetDepthClipEnableEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetDepthClipEnableEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetDepthClipEnableEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetDepthClipEnableEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetDepthClipEnableEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool depthClipEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetSampleLocationsEnableEXT - Specify the samples locations enable -- state dynamically for a command buffer -- -- = Description -- -- This command sets the @sampleLocationsEnable@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SAMPLE_LOCATIONS_ENABLE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_sample_locations.PipelineSampleLocationsStateCreateInfoEXT'::@sampleLocationsEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetSampleLocationsEnableEXT-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3SampleLocationsEnable extendedDynamicState3SampleLocationsEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetSampleLocationsEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetSampleLocationsEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetSampleLocationsEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetSampleLocationsEnableEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetSampleLocationsEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_sample_locations VK_EXT_sample_locations>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetSampleLocationsEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @sampleLocationsEnable@ specifies the @sampleLocationsEnable@ state. ("sampleLocationsEnable" ::: Bool) -> io () cmdSetSampleLocationsEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetSampleLocationsEnableEXT CommandBuffer commandBuffer Bool sampleLocationsEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetSampleLocationsEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetSampleLocationsEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetSampleLocationsEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetSampleLocationsEnableEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetSampleLocationsEnableEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetSampleLocationsEnableEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetSampleLocationsEnableEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetSampleLocationsEnableEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool sampleLocationsEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetColorBlendAdvancedEXT - Specify the advanced color blend state -- dynamically for a command buffer -- -- = Description -- -- This command sets the advanced blend operation parameters of the -- specified attachments for subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_ADVANCED_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_blend_operation_advanced.PipelineColorBlendAdvancedStateCreateInfoEXT'::@srcPremultiplied@, -- 'Vulkan.Extensions.VK_EXT_blend_operation_advanced.PipelineColorBlendAdvancedStateCreateInfoEXT'::@dstPremultiplied@, -- and -- 'Vulkan.Extensions.VK_EXT_blend_operation_advanced.PipelineColorBlendAdvancedStateCreateInfoEXT'::@blendOverlap@ -- values used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetColorBlendAdvancedEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ColorBlendAdvanced extendedDynamicState3ColorBlendAdvanced> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetColorBlendAdvancedEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetColorBlendAdvancedEXT-pColorBlendAdvanced-parameter# -- @pColorBlendAdvanced@ /must/ be a valid pointer to an array of -- @attachmentCount@ valid 'ColorBlendAdvancedEXT' structures -- -- - #VUID-vkCmdSetColorBlendAdvancedEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetColorBlendAdvancedEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetColorBlendAdvancedEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- - #VUID-vkCmdSetColorBlendAdvancedEXT-attachmentCount-arraylength# -- @attachmentCount@ /must/ be greater than @0@ -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetColorBlendAdvancedEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_blend_operation_advanced VK_EXT_blend_operation_advanced>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'ColorBlendAdvancedEXT', 'Vulkan.Core10.Handles.CommandBuffer' cmdSetColorBlendAdvancedEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @firstAttachment@ the first color attachment the advanced blend -- parameters apply to. ("firstAttachment" ::: Word32) -> -- | @pColorBlendAdvanced@ an array of 'ColorBlendAdvancedEXT' structs that -- specify the advanced color blend parameters for the corresponding -- attachments. ("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 a. IO a -> io a 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 -> Ptr ColorBlendAdvancedEXT -> IO ()) vkCmdSetColorBlendAdvancedEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendAdvancedEXT -> IO ()) pVkCmdSetColorBlendAdvancedEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) IO () -> ContT () IO () forall (m :: * -> *) a. Monad m => m a -> ContT () m a 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 -> Ptr ColorBlendAdvancedEXT -> IO ()) vkCmdSetColorBlendAdvancedEXTPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendAdvancedEXT -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendAdvancedEXT -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendAdvancedEXT -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Ptr ColorBlendAdvancedEXT -> IO () vkCmdSetColorBlendAdvancedEXT' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendAdvancedEXT -> IO ()) -> Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendAdvancedEXT -> IO () mkVkCmdSetColorBlendAdvancedEXT FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ColorBlendAdvancedEXT -> IO ()) vkCmdSetColorBlendAdvancedEXTPtr pPColorBlendAdvanced <- ((Ptr ColorBlendAdvancedEXT -> IO ()) -> IO ()) -> ContT () IO (Ptr ColorBlendAdvancedEXT) forall {k} (r :: k) (m :: k -> *) a. ((a -> m r) -> m r) -> ContT r m a ContT (((Ptr ColorBlendAdvancedEXT -> IO ()) -> IO ()) -> ContT () IO (Ptr ColorBlendAdvancedEXT)) -> ((Ptr ColorBlendAdvancedEXT -> IO ()) -> IO ()) -> ContT () IO (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) lift $ Data.Vector.imapM_ (\Int i ColorBlendAdvancedEXT e -> Ptr ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> IO () forall a. Storable a => Ptr a -> a -> IO () poke (Ptr ColorBlendAdvancedEXT pPColorBlendAdvanced Ptr ColorBlendAdvancedEXT -> Int -> 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) lift $ traceAroundEvent "vkCmdSetColorBlendAdvancedEXT" (vkCmdSetColorBlendAdvancedEXT' (commandBufferHandle (commandBuffer)) (firstAttachment) ((fromIntegral (Data.Vector.length $ (colorBlendAdvanced)) :: Word32)) (pPColorBlendAdvanced)) pure $ () foreign import ccall #if !defined(SAFE_FOREIGN_CALLS) unsafe #endif "dynamic" mkVkCmdSetProvokingVertexModeEXT :: FunPtr (Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO ()) -> Ptr CommandBuffer_T -> ProvokingVertexModeEXT -> IO () -- | vkCmdSetProvokingVertexModeEXT - Specify the provoking vertex mode -- dynamically for a command buffer -- -- = Description -- -- This command sets the @provokingVertexMode@ state for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_PROVOKING_VERTEX_MODE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_provoking_vertex.PipelineRasterizationProvokingVertexStateCreateInfoEXT'::@provokingVertexMode@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetProvokingVertexModeEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ProvokingVertexMode extendedDynamicState3ProvokingVertexMode> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetProvokingVertexModeEXT-provokingVertexMode-07447# If -- @provokingVertexMode@ is -- 'Vulkan.Extensions.VK_EXT_provoking_vertex.PROVOKING_VERTEX_MODE_LAST_VERTEX_EXT', -- then the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-provokingVertexLast provokingVertexLast> -- feature /must/ be enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetProvokingVertexModeEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetProvokingVertexModeEXT-provokingVertexMode-parameter# -- @provokingVertexMode@ /must/ be a valid -- 'Vulkan.Extensions.VK_EXT_provoking_vertex.ProvokingVertexModeEXT' -- value -- -- - #VUID-vkCmdSetProvokingVertexModeEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetProvokingVertexModeEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetProvokingVertexModeEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetProvokingVertexModeEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_provoking_vertex VK_EXT_provoking_vertex>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Extensions.VK_EXT_provoking_vertex.ProvokingVertexModeEXT' cmdSetProvokingVertexModeEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @provokingVertexMode@ specifies the @provokingVertexMode@ state. ProvokingVertexModeEXT -> io () cmdSetProvokingVertexModeEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> ProvokingVertexModeEXT -> io () cmdSetProvokingVertexModeEXT CommandBuffer commandBuffer ProvokingVertexModeEXT provokingVertexMode = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetLineRasterizationModeEXT - Specify the line rasterization mode -- dynamically for a command buffer -- -- = Description -- -- This command sets the @lineRasterizationMode@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LINE_RASTERIZATION_MODE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core14.Promoted_From_VK_KHR_line_rasterizationRoadmap.PipelineRasterizationLineStateCreateInfo'::@lineRasterizationMode@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3LineRasterizationMode extendedDynamicState3LineRasterizationMode> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-lineRasterizationMode-07418# -- If @lineRasterizationMode@ is -- 'Vulkan.Core14.Enums.LineRasterizationMode.LINE_RASTERIZATION_MODE_RECTANGULAR', -- then the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-rectangularLines rectangularLines> -- feature /must/ be enabled -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-lineRasterizationMode-07419# -- If @lineRasterizationMode@ is -- 'Vulkan.Core14.Enums.LineRasterizationMode.LINE_RASTERIZATION_MODE_BRESENHAM', -- then the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-bresenhamLines bresenhamLines> -- feature /must/ be enabled -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-lineRasterizationMode-07420# -- If @lineRasterizationMode@ is -- 'Vulkan.Core14.Enums.LineRasterizationMode.LINE_RASTERIZATION_MODE_RECTANGULAR_SMOOTH', -- then the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-smoothLines smoothLines> -- feature /must/ be enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-lineRasterizationMode-parameter# -- @lineRasterizationMode@ /must/ be a valid -- 'Vulkan.Extensions.VK_EXT_line_rasterization.LineRasterizationModeEXT' -- value -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetLineRasterizationModeEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetLineRasterizationModeEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_line_rasterization VK_EXT_line_rasterization>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Core14.Enums.LineRasterizationMode.LineRasterizationMode' cmdSetLineRasterizationModeEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @lineRasterizationMode@ specifies the @lineRasterizationMode@ state. LineRasterizationModeEXT -> io () cmdSetLineRasterizationModeEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> LineRasterizationModeEXT -> io () cmdSetLineRasterizationModeEXT CommandBuffer commandBuffer LineRasterizationModeEXT lineRasterizationMode = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetLineStippleEnableEXT - Specify the line stipple enable -- dynamically for a command buffer -- -- = Description -- -- This command sets the @stippledLineEnable@ state for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LINE_STIPPLE_ENABLE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Core14.Promoted_From_VK_KHR_line_rasterizationRoadmap.PipelineRasterizationLineStateCreateInfo'::@stippledLineEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetLineStippleEnableEXT-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3LineStippleEnable extendedDynamicState3LineStippleEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetLineStippleEnableEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetLineStippleEnableEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetLineStippleEnableEXT-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetLineStippleEnableEXT-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetLineStippleEnableEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_line_rasterization VK_EXT_line_rasterization>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetLineStippleEnableEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @stippledLineEnable@ specifies the @stippledLineEnable@ state. ("stippledLineEnable" ::: Bool) -> io () cmdSetLineStippleEnableEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetLineStippleEnableEXT CommandBuffer commandBuffer Bool stippledLineEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetLineStippleEnableEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetLineStippleEnableEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetLineStippleEnableEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetLineStippleEnableEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetLineStippleEnableEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetLineStippleEnableEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetLineStippleEnableEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetLineStippleEnableEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool stippledLineEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetDepthClipNegativeOneToOneEXT - Specify the negative one to one -- depth clip mode dynamically for a command buffer -- -- = Description -- -- This command sets the @negativeOneToOne@ state for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLIP_NEGATIVE_ONE_TO_ONE_EXT' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_EXT_depth_clip_control.PipelineViewportDepthClipControlCreateInfoEXT'::@negativeOneToOne@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetDepthClipNegativeOneToOneEXT-None-09423# At least one -- of the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3DepthClipNegativeOneToOne extendedDynamicState3DepthClipNegativeOneToOne> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- - #VUID-vkCmdSetDepthClipNegativeOneToOneEXT-depthClipControl-07453# -- The -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-depthClipControl depthClipControl> -- feature /must/ be enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetDepthClipNegativeOneToOneEXT-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetDepthClipNegativeOneToOneEXT-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetDepthClipNegativeOneToOneEXT-commandBuffer-cmdpool# -- The 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetDepthClipNegativeOneToOneEXT-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetDepthClipNegativeOneToOneEXT is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_depth_clip_control VK_EXT_depth_clip_control>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetDepthClipNegativeOneToOneEXT :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @negativeOneToOne@ specifies the @negativeOneToOne@ state. ("negativeOneToOne" ::: Bool) -> io () cmdSetDepthClipNegativeOneToOneEXT :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetDepthClipNegativeOneToOneEXT CommandBuffer commandBuffer Bool negativeOneToOne = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetDepthClipNegativeOneToOneEXTPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetDepthClipNegativeOneToOneEXT (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetDepthClipNegativeOneToOneEXTPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetDepthClipNegativeOneToOneEXT' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetDepthClipNegativeOneToOneEXT FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetDepthClipNegativeOneToOneEXTPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetDepthClipNegativeOneToOneEXT" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetDepthClipNegativeOneToOneEXT' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool negativeOneToOne))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetViewportWScalingEnableNV - Specify the viewport W scaling enable -- state dynamically for a command buffer -- -- = Description -- -- This command sets the @viewportWScalingEnable@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_VIEWPORT_W_SCALING_ENABLE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_clip_space_w_scaling.PipelineViewportWScalingStateCreateInfoNV'::@viewportWScalingEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetViewportWScalingEnableNV-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ViewportWScalingEnable extendedDynamicState3ViewportWScalingEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetViewportWScalingEnableNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetViewportWScalingEnableNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetViewportWScalingEnableNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetViewportWScalingEnableNV-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetViewportWScalingEnableNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_clip_space_w_scaling VK_NV_clip_space_w_scaling>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetViewportWScalingEnableNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @viewportWScalingEnable@ specifies the @viewportWScalingEnable@ state. ("viewportWScalingEnable" ::: Bool) -> io () cmdSetViewportWScalingEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetViewportWScalingEnableNV CommandBuffer commandBuffer Bool viewportWScalingEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetViewportWScalingEnableNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetViewportWScalingEnableNV (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetViewportWScalingEnableNVPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetViewportWScalingEnableNV' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetViewportWScalingEnableNV FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetViewportWScalingEnableNVPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetViewportWScalingEnableNV" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetViewportWScalingEnableNV' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool viewportWScalingEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetViewportSwizzleNV - Specify the viewport swizzle state -- dynamically for a command buffer -- -- = Description -- -- This command sets the viewport swizzle state for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_VIEWPORT_SWIZZLE_NV' set -- in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_viewport_swizzle.PipelineViewportSwizzleStateCreateInfoNV'::@viewportCount@, -- and -- 'Vulkan.Extensions.VK_NV_viewport_swizzle.PipelineViewportSwizzleStateCreateInfoNV'::@pViewportSwizzles@ -- values used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetViewportSwizzleNV-None-09423# At least one of the -- following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ViewportSwizzle extendedDynamicState3ViewportSwizzle> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetViewportSwizzleNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetViewportSwizzleNV-pViewportSwizzles-parameter# -- @pViewportSwizzles@ /must/ be a valid pointer to an array of -- @viewportCount@ valid -- 'Vulkan.Extensions.VK_NV_viewport_swizzle.ViewportSwizzleNV' -- structures -- -- - #VUID-vkCmdSetViewportSwizzleNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetViewportSwizzleNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetViewportSwizzleNV-videocoding# This command /must/ -- only be called outside of a video coding scope -- -- - #VUID-vkCmdSetViewportSwizzleNV-viewportCount-arraylength# -- @viewportCount@ /must/ be greater than @0@ -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetViewportSwizzleNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_viewport_swizzle VK_NV_viewport_swizzle>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Extensions.VK_NV_viewport_swizzle.ViewportSwizzleNV' cmdSetViewportSwizzleNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @firstViewport@ is the index of the first viewport whose parameters are -- updated by the command. ("firstViewport" ::: Word32) -> -- | @pViewportSwizzles@ is a pointer to an array of -- 'Vulkan.Extensions.VK_NV_viewport_swizzle.ViewportSwizzleNV' structures -- specifying viewport swizzles. ("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 a. IO a -> io a 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 -> Ptr ViewportSwizzleNV -> IO ()) vkCmdSetViewportSwizzleNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ViewportSwizzleNV -> IO ()) pVkCmdSetViewportSwizzleNV (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) IO () -> ContT () IO () forall (m :: * -> *) a. Monad m => m a -> ContT () m a 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 -> Ptr ViewportSwizzleNV -> IO ()) vkCmdSetViewportSwizzleNVPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ViewportSwizzleNV -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ViewportSwizzleNV -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ViewportSwizzleNV -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Ptr ViewportSwizzleNV -> IO () vkCmdSetViewportSwizzleNV' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ViewportSwizzleNV -> IO ()) -> Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ViewportSwizzleNV -> IO () mkVkCmdSetViewportSwizzleNV FunPtr (Ptr CommandBuffer_T -> SampleMask -> SampleMask -> Ptr ViewportSwizzleNV -> IO ()) vkCmdSetViewportSwizzleNVPtr pPViewportSwizzles <- ((Ptr ViewportSwizzleNV -> IO ()) -> IO ()) -> ContT () IO (Ptr ViewportSwizzleNV) forall {k} (r :: k) (m :: k -> *) a. ((a -> m r) -> m r) -> ContT r m a ContT (((Ptr ViewportSwizzleNV -> IO ()) -> IO ()) -> ContT () IO (Ptr ViewportSwizzleNV)) -> ((Ptr ViewportSwizzleNV -> IO ()) -> IO ()) -> ContT () IO (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) lift $ Data.Vector.imapM_ (\Int i ViewportSwizzleNV e -> Ptr ViewportSwizzleNV -> ViewportSwizzleNV -> IO () forall a. Storable a => Ptr a -> a -> IO () poke (Ptr ViewportSwizzleNV pPViewportSwizzles Ptr ViewportSwizzleNV -> Int -> 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) lift $ traceAroundEvent "vkCmdSetViewportSwizzleNV" (vkCmdSetViewportSwizzleNV' (commandBufferHandle (commandBuffer)) (firstViewport) ((fromIntegral (Data.Vector.length $ (viewportSwizzles)) :: Word32)) (pPViewportSwizzles)) pure $ () foreign import ccall #if !defined(SAFE_FOREIGN_CALLS) unsafe #endif "dynamic" mkVkCmdSetCoverageToColorEnableNV :: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () -- | vkCmdSetCoverageToColorEnableNV - Specify the coverage to color enable -- state dynamically for a command buffer -- -- = Description -- -- This command sets the @coverageToColorEnable@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_TO_COLOR_ENABLE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_fragment_coverage_to_color.PipelineCoverageToColorStateCreateInfoNV'::@coverageToColorEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetCoverageToColorEnableNV-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3CoverageToColorEnable extendedDynamicState3CoverageToColorEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetCoverageToColorEnableNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetCoverageToColorEnableNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetCoverageToColorEnableNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetCoverageToColorEnableNV-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetCoverageToColorEnableNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_fragment_coverage_to_color VK_NV_fragment_coverage_to_color>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetCoverageToColorEnableNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @coverageToColorEnable@ specifies the @coverageToColorEnable@ state. ("coverageToColorEnable" ::: Bool) -> io () cmdSetCoverageToColorEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetCoverageToColorEnableNV CommandBuffer commandBuffer Bool coverageToColorEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetCoverageToColorEnableNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetCoverageToColorEnableNV (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetCoverageToColorEnableNVPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetCoverageToColorEnableNV' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetCoverageToColorEnableNV FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetCoverageToColorEnableNVPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetCoverageToColorEnableNV" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetCoverageToColorEnableNV' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool coverageToColorEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetCoverageToColorLocationNV - Specify the coverage to color -- location dynamically for a command buffer -- -- = Description -- -- This command sets the @coverageToColorLocation@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_TO_COLOR_LOCATION_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_fragment_coverage_to_color.PipelineCoverageToColorStateCreateInfoNV'::@coverageToColorLocation@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetCoverageToColorLocationNV-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3CoverageToColorLocation extendedDynamicState3CoverageToColorLocation> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetCoverageToColorLocationNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetCoverageToColorLocationNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetCoverageToColorLocationNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetCoverageToColorLocationNV-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetCoverageToColorLocationNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_fragment_coverage_to_color VK_NV_fragment_coverage_to_color>, -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetCoverageToColorLocationNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @coverageToColorLocation@ specifies the @coverageToColorLocation@ state. ("coverageToColorLocation" ::: Word32) -> io () cmdSetCoverageToColorLocationNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> SampleMask -> io () cmdSetCoverageToColorLocationNV CommandBuffer commandBuffer SampleMask coverageToColorLocation = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetCoverageModulationModeNV - Specify the coverage modulation mode -- dynamically for a command buffer -- -- = Description -- -- This command sets the @coverageModulationMode@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_MODE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_framebuffer_mixed_samples.PipelineCoverageModulationStateCreateInfoNV'::@coverageModulationMode@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetCoverageModulationModeNV-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3CoverageModulationMode extendedDynamicState3CoverageModulationMode> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetCoverageModulationModeNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetCoverageModulationModeNV-coverageModulationMode-parameter# -- @coverageModulationMode@ /must/ be a valid -- 'Vulkan.Extensions.VK_NV_framebuffer_mixed_samples.CoverageModulationModeNV' -- value -- -- - #VUID-vkCmdSetCoverageModulationModeNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetCoverageModulationModeNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetCoverageModulationModeNV-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetCoverageModulationModeNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_framebuffer_mixed_samples VK_NV_framebuffer_mixed_samples>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Extensions.VK_NV_framebuffer_mixed_samples.CoverageModulationModeNV' cmdSetCoverageModulationModeNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @coverageModulationMode@ specifies the @coverageModulationMode@ state. CoverageModulationModeNV -> io () cmdSetCoverageModulationModeNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> CoverageModulationModeNV -> io () cmdSetCoverageModulationModeNV CommandBuffer commandBuffer CoverageModulationModeNV coverageModulationMode = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetCoverageModulationTableEnableNV - Specify the coverage -- modulation table enable state dynamically for a command buffer -- -- = Description -- -- This command sets the @coverageModulationTableEnable@ state for -- subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_TABLE_ENABLE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_framebuffer_mixed_samples.PipelineCoverageModulationStateCreateInfoNV'::@coverageModulationTableEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetCoverageModulationTableEnableNV-None-09423# At least -- one of the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3CoverageModulationTableEnable extendedDynamicState3CoverageModulationTableEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetCoverageModulationTableEnableNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetCoverageModulationTableEnableNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetCoverageModulationTableEnableNV-commandBuffer-cmdpool# -- The 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetCoverageModulationTableEnableNV-videocoding# This -- command /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetCoverageModulationTableEnableNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_framebuffer_mixed_samples VK_NV_framebuffer_mixed_samples>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetCoverageModulationTableEnableNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @coverageModulationTableEnable@ specifies the -- @coverageModulationTableEnable@ state. ("coverageModulationTableEnable" ::: Bool) -> io () cmdSetCoverageModulationTableEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetCoverageModulationTableEnableNV CommandBuffer commandBuffer Bool coverageModulationTableEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetCoverageModulationTableEnableNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetCoverageModulationTableEnableNV (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetCoverageModulationTableEnableNVPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetCoverageModulationTableEnableNV' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetCoverageModulationTableEnableNV FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetCoverageModulationTableEnableNVPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetCoverageModulationTableEnableNV" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetCoverageModulationTableEnableNV' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool coverageModulationTableEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetCoverageModulationTableNV - Specify the coverage modulation -- table dynamically for a command buffer -- -- = Description -- -- This command sets the table of modulation factors for subsequent drawing -- commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_TABLE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_framebuffer_mixed_samples.PipelineCoverageModulationStateCreateInfoNV'::@coverageModulationTableCount@, -- and -- 'Vulkan.Extensions.VK_NV_framebuffer_mixed_samples.PipelineCoverageModulationStateCreateInfoNV'::@pCoverageModulationTable@ -- values used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetCoverageModulationTableNV-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3CoverageModulationTable extendedDynamicState3CoverageModulationTable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetCoverageModulationTableNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetCoverageModulationTableNV-pCoverageModulationTable-parameter# -- @pCoverageModulationTable@ /must/ be a valid pointer to an array of -- @coverageModulationTableCount@ @float@ values -- -- - #VUID-vkCmdSetCoverageModulationTableNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetCoverageModulationTableNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetCoverageModulationTableNV-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- - #VUID-vkCmdSetCoverageModulationTableNV-coverageModulationTableCount-arraylength# -- @coverageModulationTableCount@ /must/ be greater than @0@ -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetCoverageModulationTableNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_framebuffer_mixed_samples VK_NV_framebuffer_mixed_samples>, -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetCoverageModulationTableNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @pCoverageModulationTable@ specifies the table of modulation factors -- containing a value for each number of covered samples. ("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 a. IO a -> io a 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 -> Ptr CFloat -> IO ()) vkCmdSetCoverageModulationTableNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> Ptr CFloat -> IO ()) pVkCmdSetCoverageModulationTableNV (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) IO () -> ContT () IO () forall (m :: * -> *) a. Monad m => m a -> ContT () m a 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 -> Ptr CFloat -> IO ()) vkCmdSetCoverageModulationTableNVPtr FunPtr (Ptr CommandBuffer_T -> SampleMask -> Ptr CFloat -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> SampleMask -> Ptr CFloat -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> SampleMask -> Ptr CFloat -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Ptr CFloat -> IO () vkCmdSetCoverageModulationTableNV' = FunPtr (Ptr CommandBuffer_T -> SampleMask -> Ptr CFloat -> IO ()) -> Ptr CommandBuffer_T -> SampleMask -> Ptr CFloat -> IO () mkVkCmdSetCoverageModulationTableNV FunPtr (Ptr CommandBuffer_T -> SampleMask -> Ptr CFloat -> IO ()) vkCmdSetCoverageModulationTableNVPtr pPCoverageModulationTable <- ((Ptr CFloat -> IO ()) -> IO ()) -> ContT () IO (Ptr CFloat) forall {k} (r :: k) (m :: k -> *) a. ((a -> m r) -> m r) -> ContT r m a ContT (((Ptr CFloat -> IO ()) -> IO ()) -> ContT () IO (Ptr CFloat)) -> ((Ptr CFloat -> IO ()) -> IO ()) -> ContT () IO (Ptr 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) lift $ Data.Vector.imapM_ (\Int i "extraPrimitiveOverestimationSize" ::: Float e -> Ptr CFloat -> CFloat -> IO () forall a. Storable a => Ptr a -> a -> IO () poke (Ptr CFloat pPCoverageModulationTable Ptr CFloat -> Int -> Ptr 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) -> CFloat CFloat ("extraPrimitiveOverestimationSize" ::: Float e))) (coverageModulationTable) lift $ traceAroundEvent "vkCmdSetCoverageModulationTableNV" (vkCmdSetCoverageModulationTableNV' (commandBufferHandle (commandBuffer)) ((fromIntegral (Data.Vector.length $ (coverageModulationTable)) :: Word32)) (pPCoverageModulationTable)) pure $ () foreign import ccall #if !defined(SAFE_FOREIGN_CALLS) unsafe #endif "dynamic" mkVkCmdSetShadingRateImageEnableNV :: FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () -- | vkCmdSetShadingRateImageEnableNV - Specify the shading rate image enable -- state dynamically for a command buffer -- -- = Description -- -- This command sets the @shadingRateImageEnable@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SHADING_RATE_IMAGE_ENABLE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_shading_rate_image.PipelineViewportShadingRateImageStateCreateInfoNV'::@shadingRateImageEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetShadingRateImageEnableNV-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3ShadingRateImageEnable extendedDynamicState3ShadingRateImageEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetShadingRateImageEnableNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetShadingRateImageEnableNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetShadingRateImageEnableNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetShadingRateImageEnableNV-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetShadingRateImageEnableNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_shading_rate_image VK_NV_shading_rate_image>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetShadingRateImageEnableNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @shadingRateImageEnable@ specifies the @shadingRateImageEnable@ state. ("shadingRateImageEnable" ::: Bool) -> io () cmdSetShadingRateImageEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetShadingRateImageEnableNV CommandBuffer commandBuffer Bool shadingRateImageEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetShadingRateImageEnableNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetShadingRateImageEnableNV (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetShadingRateImageEnableNVPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetShadingRateImageEnableNV' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetShadingRateImageEnableNV FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetShadingRateImageEnableNVPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetShadingRateImageEnableNV" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetShadingRateImageEnableNV' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool shadingRateImageEnable))) () -> IO () forall a. a -> IO a 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 () -- | vkCmdSetCoverageReductionModeNV - Specify the coverage reduction mode -- dynamically for a command buffer -- -- = Description -- -- This command sets the @coverageReductionMode@ state for subsequent -- drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_REDUCTION_MODE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_coverage_reduction_mode.PipelineCoverageReductionStateCreateInfoNV'::@coverageReductionMode@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetCoverageReductionModeNV-None-09423# At least one of -- the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3CoverageReductionMode extendedDynamicState3CoverageReductionMode> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetCoverageReductionModeNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetCoverageReductionModeNV-coverageReductionMode-parameter# -- @coverageReductionMode@ /must/ be a valid -- 'Vulkan.Extensions.VK_NV_coverage_reduction_mode.CoverageReductionModeNV' -- value -- -- - #VUID-vkCmdSetCoverageReductionModeNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetCoverageReductionModeNV-commandBuffer-cmdpool# The -- 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetCoverageReductionModeNV-videocoding# This command -- /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetCoverageReductionModeNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_coverage_reduction_mode VK_NV_coverage_reduction_mode>, -- 'Vulkan.Core10.Handles.CommandBuffer', -- 'Vulkan.Extensions.VK_NV_coverage_reduction_mode.CoverageReductionModeNV' cmdSetCoverageReductionModeNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @coverageReductionMode@ specifies the @coverageReductionMode@ state. CoverageReductionModeNV -> io () cmdSetCoverageReductionModeNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> CoverageReductionModeNV -> io () cmdSetCoverageReductionModeNV CommandBuffer commandBuffer CoverageReductionModeNV coverageReductionMode = IO () -> io () forall a. IO a -> io a 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 :: CommandBuffer -> DeviceCmds deviceCmds :: 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. (HasCallStack, 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 a. a -> IO a 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 () -- | vkCmdSetRepresentativeFragmentTestEnableNV - Specify the representative -- fragment test enable dynamically for a command buffer -- -- = Description -- -- This command sets the @representativeFragmentTestEnable@ state for -- subsequent drawing commands when drawing using -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#shaders-objects shader objects>, -- or when the graphics pipeline is created with -- 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_REPRESENTATIVE_FRAGMENT_TEST_ENABLE_NV' -- set in -- 'Vulkan.Core10.GraphicsPipeline.PipelineDynamicStateCreateInfo'::@pDynamicStates@. -- Otherwise, this state is specified by the -- 'Vulkan.Extensions.VK_NV_representative_fragment_test.PipelineRepresentativeFragmentTestStateCreateInfoNV'::@representativeFragmentTestEnable@ -- value used to create the currently active pipeline. -- -- == Valid Usage -- -- - #VUID-vkCmdSetRepresentativeFragmentTestEnableNV-None-09423# At -- least one of the following /must/ be true: -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-extendedDynamicState3RepresentativeFragmentTestEnable extendedDynamicState3RepresentativeFragmentTestEnable> -- feature is enabled -- -- - The -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#features-shaderObject shaderObject> -- feature is enabled -- -- == Valid Usage (Implicit) -- -- - #VUID-vkCmdSetRepresentativeFragmentTestEnableNV-commandBuffer-parameter# -- @commandBuffer@ /must/ be a valid -- 'Vulkan.Core10.Handles.CommandBuffer' handle -- -- - #VUID-vkCmdSetRepresentativeFragmentTestEnableNV-commandBuffer-recording# -- @commandBuffer@ /must/ be in the -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#commandbuffers-lifecycle recording state> -- -- - #VUID-vkCmdSetRepresentativeFragmentTestEnableNV-commandBuffer-cmdpool# -- The 'Vulkan.Core10.Handles.CommandPool' that @commandBuffer@ was -- allocated from /must/ support -- 'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' operations -- -- - #VUID-vkCmdSetRepresentativeFragmentTestEnableNV-videocoding# This -- command /must/ only be called outside of a video coding scope -- -- == Host Synchronization -- -- - Host access to @commandBuffer@ /must/ be externally synchronized -- -- - Host access to the 'Vulkan.Core10.Handles.CommandPool' that -- @commandBuffer@ was allocated from /must/ be externally synchronized -- -- == Command Properties -- -- \' -- -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkCommandBufferLevel Command Buffer Levels> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginRenderPass Render Pass Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#vkCmdBeginVideoCodingKHR Video Coding Scope> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkQueueFlagBits Supported Queue Types> | <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-queueoperation-command-types Command Type> | -- +============================================================================================================================+========================================================================================================================+=============================================================================================================================+=======================================================================================================================+========================================================================================================================================+ -- | Primary | Both | Outside | VK_QUEUE_GRAPHICS_BIT | State | -- | Secondary | | | | | -- +----------------------------------------------------------------------------------------------------------------------------+------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------------+-----------------------------------------------------------------------------------------------------------------------+----------------------------------------------------------------------------------------------------------------------------------------+ -- -- == Conditional Rendering -- -- vkCmdSetRepresentativeFragmentTestEnableNV is not affected by -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#drawing-conditional-rendering conditional rendering> -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_representative_fragment_test VK_NV_representative_fragment_test>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Handles.CommandBuffer' cmdSetRepresentativeFragmentTestEnableNV :: forall io . (MonadIO io) => -- | @commandBuffer@ is the command buffer into which the command will be -- recorded. CommandBuffer -> -- | @representativeFragmentTestEnable@ specifies the -- @representativeFragmentTestEnable@ state. ("representativeFragmentTestEnable" ::: Bool) -> io () cmdSetRepresentativeFragmentTestEnableNV :: forall (io :: * -> *). MonadIO io => CommandBuffer -> Bool -> io () cmdSetRepresentativeFragmentTestEnableNV CommandBuffer commandBuffer Bool representativeFragmentTestEnable = IO () -> io () forall a. IO a -> io a 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 -> Bool32 -> IO ()) vkCmdSetRepresentativeFragmentTestEnableNVPtr = DeviceCmds -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) pVkCmdSetRepresentativeFragmentTestEnableNV (case CommandBuffer commandBuffer of CommandBuffer{DeviceCmds deviceCmds :: CommandBuffer -> DeviceCmds deviceCmds :: DeviceCmds deviceCmds} -> DeviceCmds deviceCmds) Bool -> IO () -> IO () forall (f :: * -> *). Applicative f => Bool -> f () -> f () unless (FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetRepresentativeFragmentTestEnableNVPtr FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Bool forall a. Eq a => a -> a -> Bool /= FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) forall a. FunPtr a nullFunPtr) (IO () -> IO ()) -> IO () -> IO () forall a b. (a -> b) -> a -> b $ IOException -> IO () forall e a. (HasCallStack, 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 -> Bool32 -> IO () vkCmdSetRepresentativeFragmentTestEnableNV' = FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) -> Ptr CommandBuffer_T -> Bool32 -> IO () mkVkCmdSetRepresentativeFragmentTestEnableNV FunPtr (Ptr CommandBuffer_T -> Bool32 -> IO ()) vkCmdSetRepresentativeFragmentTestEnableNVPtr String -> IO () -> IO () forall a. String -> IO a -> IO a traceAroundEvent String "vkCmdSetRepresentativeFragmentTestEnableNV" (Ptr CommandBuffer_T -> Bool32 -> IO () vkCmdSetRepresentativeFragmentTestEnableNV' (CommandBuffer -> Ptr CommandBuffer_T commandBufferHandle (CommandBuffer commandBuffer)) (Bool -> Bool32 boolToBool32 (Bool representativeFragmentTestEnable))) () -> IO () forall a. a -> IO a forall (f :: * -> *) a. Applicative f => a -> f a pure (() -> IO ()) -> () -> IO () forall a b. (a -> b) -> a -> b $ () -- | VkPhysicalDeviceExtendedDynamicState3FeaturesEXT - Structure describing -- what extended dynamic state is supported by the implementation -- -- = Members -- -- This structure describes the following features: -- -- = Description -- -- If the 'PhysicalDeviceExtendedDynamicState3FeaturesEXT' structure is -- included in the @pNext@ chain of the -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2' -- structure passed to -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.getPhysicalDeviceFeatures2', -- it is filled in to indicate whether each corresponding feature is -- supported. If the application wishes to use a -- 'Vulkan.Core10.Handles.Device' with any features described by -- 'PhysicalDeviceExtendedDynamicState3FeaturesEXT', it /must/ add an -- instance of the structure, with the desired feature members set to -- 'Vulkan.Core10.FundamentalTypes.TRUE', to the @pNext@ chain of -- 'Vulkan.Core10.Device.DeviceCreateInfo' when creating the -- 'Vulkan.Core10.Handles.Device'. -- -- == Valid Usage (Implicit) -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Enums.StructureType.StructureType' data PhysicalDeviceExtendedDynamicState3FeaturesEXT = PhysicalDeviceExtendedDynamicState3FeaturesEXT { -- | #features-extendedDynamicState3TessellationDomainOrigin# -- @extendedDynamicState3TessellationDomainOrigin@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_TESSELLATION_DOMAIN_ORIGIN_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3TessellationDomainOrigin :: Bool , -- | #features-extendedDynamicState3DepthClampEnable# -- @extendedDynamicState3DepthClampEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLAMP_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3DepthClampEnable :: Bool , -- | #features-extendedDynamicState3PolygonMode# -- @extendedDynamicState3PolygonMode@ indicates that the implementation -- supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_POLYGON_MODE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3PolygonMode :: Bool , -- | #features-extendedDynamicState3RasterizationSamples# -- @extendedDynamicState3RasterizationSamples@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_RASTERIZATION_SAMPLES_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3RasterizationSamples :: Bool , -- | #features-extendedDynamicState3SampleMask# -- @extendedDynamicState3SampleMask@ indicates that the implementation -- supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SAMPLE_MASK_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3SampleMask :: Bool , -- | #features-extendedDynamicState3AlphaToCoverageEnable# -- @extendedDynamicState3AlphaToCoverageEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_ALPHA_TO_COVERAGE_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3AlphaToCoverageEnable :: Bool , -- | #features-extendedDynamicState3AlphaToOneEnable# -- @extendedDynamicState3AlphaToOneEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_ALPHA_TO_ONE_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3AlphaToOneEnable :: Bool , -- | #features-extendedDynamicState3LogicOpEnable# -- @extendedDynamicState3LogicOpEnable@ indicates that the implementation -- supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LOGIC_OP_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3LogicOpEnable :: Bool , -- | #features-extendedDynamicState3ColorBlendEnable# -- @extendedDynamicState3ColorBlendEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorBlendEnable :: Bool , -- | #features-extendedDynamicState3ColorBlendEquation# -- @extendedDynamicState3ColorBlendEquation@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_EQUATION_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorBlendEquation :: Bool , -- | #features-extendedDynamicState3ColorWriteMask# -- @extendedDynamicState3ColorWriteMask@ indicates that the implementation -- supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_WRITE_MASK_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorWriteMask :: Bool , -- | #features-extendedDynamicState3RasterizationStream# -- @extendedDynamicState3RasterizationStream@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_RASTERIZATION_STREAM_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3RasterizationStream :: Bool , -- | #features-extendedDynamicState3ConservativeRasterizationMode# -- @extendedDynamicState3ConservativeRasterizationMode@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_CONSERVATIVE_RASTERIZATION_MODE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ConservativeRasterizationMode :: Bool , -- | #features-extendedDynamicState3ExtraPrimitiveOverestimationSize# -- @extendedDynamicState3ExtraPrimitiveOverestimationSize@ indicates that -- the implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_EXTRA_PRIMITIVE_OVERESTIMATION_SIZE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ExtraPrimitiveOverestimationSize :: Bool , -- | #features-extendedDynamicState3DepthClipEnable# -- @extendedDynamicState3DepthClipEnable@ indicates that the implementation -- supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLIP_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3DepthClipEnable :: Bool , -- | #features-extendedDynamicState3SampleLocationsEnable# -- @extendedDynamicState3SampleLocationsEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SAMPLE_LOCATIONS_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3SampleLocationsEnable :: Bool , -- | #features-extendedDynamicState3ColorBlendAdvanced# -- @extendedDynamicState3ColorBlendAdvanced@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COLOR_BLEND_ADVANCED_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorBlendAdvanced :: Bool , -- | #features-extendedDynamicState3ProvokingVertexMode# -- @extendedDynamicState3ProvokingVertexMode@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_PROVOKING_VERTEX_MODE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ProvokingVertexMode :: Bool , -- | #features-extendedDynamicState3LineRasterizationMode# -- @extendedDynamicState3LineRasterizationMode@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LINE_RASTERIZATION_MODE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3LineRasterizationMode :: Bool , -- | #features-extendedDynamicState3LineStippleEnable# -- @extendedDynamicState3LineStippleEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_LINE_STIPPLE_ENABLE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3LineStippleEnable :: Bool , -- | #features-extendedDynamicState3DepthClipNegativeOneToOne# -- @extendedDynamicState3DepthClipNegativeOneToOne@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_DEPTH_CLIP_NEGATIVE_ONE_TO_ONE_EXT' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3DepthClipNegativeOneToOne :: Bool , -- | #features-extendedDynamicState3ViewportWScalingEnable# -- @extendedDynamicState3ViewportWScalingEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_VIEWPORT_W_SCALING_ENABLE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ViewportWScalingEnable :: Bool , -- | #features-extendedDynamicState3ViewportSwizzle# -- @extendedDynamicState3ViewportSwizzle@ indicates that the implementation -- supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_VIEWPORT_SWIZZLE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ViewportSwizzle :: Bool , -- | #features-extendedDynamicState3CoverageToColorEnable# -- @extendedDynamicState3CoverageToColorEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_TO_COLOR_ENABLE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageToColorEnable :: Bool , -- | #features-extendedDynamicState3CoverageToColorLocation# -- @extendedDynamicState3CoverageToColorLocation@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_TO_COLOR_LOCATION_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageToColorLocation :: Bool , -- | #features-extendedDynamicState3CoverageModulationMode# -- @extendedDynamicState3CoverageModulationMode@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_MODE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageModulationMode :: Bool , -- | #features-extendedDynamicState3CoverageModulationTableEnable# -- @extendedDynamicState3CoverageModulationTableEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_TABLE_ENABLE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageModulationTableEnable :: Bool , -- | #features-extendedDynamicState3CoverageModulationTable# -- @extendedDynamicState3CoverageModulationTable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_MODULATION_TABLE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageModulationTable :: Bool , -- | #features-extendedDynamicState3CoverageReductionMode# -- @extendedDynamicState3CoverageReductionMode@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_COVERAGE_REDUCTION_MODE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageReductionMode :: Bool , -- | #features-extendedDynamicState3RepresentativeFragmentTestEnable# -- @extendedDynamicState3RepresentativeFragmentTestEnable@ indicates that -- the implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_REPRESENTATIVE_FRAGMENT_TEST_ENABLE_NV' PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3RepresentativeFragmentTestEnable :: Bool , -- | #features-extendedDynamicState3ShadingRateImageEnable# -- @extendedDynamicState3ShadingRateImageEnable@ indicates that the -- implementation supports the following dynamic state: -- -- - 'Vulkan.Core10.Enums.DynamicState.DYNAMIC_STATE_SHADING_RATE_IMAGE_ENABLE_NV' 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 $c== :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool == :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool $c/= :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool /= :: 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 b. 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 extendedDynamicState3TessellationDomainOrigin :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3DepthClampEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3PolygonMode :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3RasterizationSamples :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3SampleMask :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3AlphaToCoverageEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3AlphaToOneEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3LogicOpEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorBlendEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorBlendEquation :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorWriteMask :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3RasterizationStream :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ConservativeRasterizationMode :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ExtraPrimitiveOverestimationSize :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3DepthClipEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3SampleLocationsEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ColorBlendAdvanced :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ProvokingVertexMode :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3LineRasterizationMode :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3LineStippleEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3DepthClipNegativeOneToOne :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ViewportWScalingEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ViewportSwizzle :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageToColorEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageToColorLocation :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageModulationMode :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageModulationTableEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageModulationTable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3CoverageReductionMode :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3RepresentativeFragmentTestEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3ShadingRateImageEnable :: PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Bool extendedDynamicState3TessellationDomainOrigin :: Bool extendedDynamicState3DepthClampEnable :: Bool extendedDynamicState3PolygonMode :: Bool extendedDynamicState3RasterizationSamples :: Bool extendedDynamicState3SampleMask :: Bool extendedDynamicState3AlphaToCoverageEnable :: Bool extendedDynamicState3AlphaToOneEnable :: Bool extendedDynamicState3LogicOpEnable :: Bool extendedDynamicState3ColorBlendEnable :: Bool extendedDynamicState3ColorBlendEquation :: Bool extendedDynamicState3ColorWriteMask :: Bool extendedDynamicState3RasterizationStream :: Bool extendedDynamicState3ConservativeRasterizationMode :: Bool extendedDynamicState3ExtraPrimitiveOverestimationSize :: Bool extendedDynamicState3DepthClipEnable :: Bool extendedDynamicState3SampleLocationsEnable :: Bool extendedDynamicState3ColorBlendAdvanced :: Bool extendedDynamicState3ProvokingVertexMode :: Bool extendedDynamicState3LineRasterizationMode :: Bool extendedDynamicState3LineStippleEnable :: Bool extendedDynamicState3DepthClipNegativeOneToOne :: Bool extendedDynamicState3ViewportWScalingEnable :: Bool extendedDynamicState3ViewportSwizzle :: Bool extendedDynamicState3CoverageToColorEnable :: Bool extendedDynamicState3CoverageToColorLocation :: Bool extendedDynamicState3CoverageModulationMode :: Bool extendedDynamicState3CoverageModulationTableEnable :: Bool extendedDynamicState3CoverageModulationTable :: Bool extendedDynamicState3CoverageReductionMode :: Bool extendedDynamicState3RepresentativeFragmentTestEnable :: Bool extendedDynamicState3ShadingRateImageEnable :: 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) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3TessellationDomainOrigin)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 20 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3DepthClampEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 24 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3PolygonMode)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 28 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3RasterizationSamples)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 32 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3SampleMask)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 36 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3AlphaToCoverageEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 40 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3AlphaToOneEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 44 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3LogicOpEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 48 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ColorBlendEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 52 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ColorBlendEquation)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 56 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ColorWriteMask)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 60 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3RasterizationStream)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 64 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ConservativeRasterizationMode)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 68 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ExtraPrimitiveOverestimationSize)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 72 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3DepthClipEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 76 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3SampleLocationsEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 80 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ColorBlendAdvanced)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 84 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ProvokingVertexMode)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 88 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3LineRasterizationMode)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 92 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3LineStippleEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 96 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3DepthClipNegativeOneToOne)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 100 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ViewportWScalingEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 104 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3ViewportSwizzle)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 108 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3CoverageToColorEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 112 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3CoverageToColorLocation)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 116 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3CoverageModulationMode)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 120 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3CoverageModulationTableEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 124 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3CoverageModulationTable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 128 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3CoverageReductionMode)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 132 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool extendedDynamicState3RepresentativeFragmentTestEnable)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 136 :: Ptr Bool32)) (Bool -> 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) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 20 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 24 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 28 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 32 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 36 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 40 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 44 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 48 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 52 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 56 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 60 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 64 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 68 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 72 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 76 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 80 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 84 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 88 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 92 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 96 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 100 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 104 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 108 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 112 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 116 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 120 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 124 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 128 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 132 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 136 :: Ptr Bool32)) (Bool -> 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 extendedDynamicState3TessellationDomainOrigin <- forall a. Storable a => Ptr a -> IO a peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT p Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) extendedDynamicState3DepthClampEnable <- peek @Bool32 ((p `plusPtr` 20 :: Ptr Bool32)) extendedDynamicState3PolygonMode <- peek @Bool32 ((p `plusPtr` 24 :: Ptr Bool32)) extendedDynamicState3RasterizationSamples <- peek @Bool32 ((p `plusPtr` 28 :: Ptr Bool32)) extendedDynamicState3SampleMask <- peek @Bool32 ((p `plusPtr` 32 :: Ptr Bool32)) extendedDynamicState3AlphaToCoverageEnable <- peek @Bool32 ((p `plusPtr` 36 :: Ptr Bool32)) extendedDynamicState3AlphaToOneEnable <- peek @Bool32 ((p `plusPtr` 40 :: Ptr Bool32)) extendedDynamicState3LogicOpEnable <- peek @Bool32 ((p `plusPtr` 44 :: Ptr Bool32)) extendedDynamicState3ColorBlendEnable <- peek @Bool32 ((p `plusPtr` 48 :: Ptr Bool32)) extendedDynamicState3ColorBlendEquation <- peek @Bool32 ((p `plusPtr` 52 :: Ptr Bool32)) extendedDynamicState3ColorWriteMask <- peek @Bool32 ((p `plusPtr` 56 :: Ptr Bool32)) extendedDynamicState3RasterizationStream <- peek @Bool32 ((p `plusPtr` 60 :: Ptr Bool32)) extendedDynamicState3ConservativeRasterizationMode <- peek @Bool32 ((p `plusPtr` 64 :: Ptr Bool32)) extendedDynamicState3ExtraPrimitiveOverestimationSize <- peek @Bool32 ((p `plusPtr` 68 :: Ptr Bool32)) extendedDynamicState3DepthClipEnable <- peek @Bool32 ((p `plusPtr` 72 :: Ptr Bool32)) extendedDynamicState3SampleLocationsEnable <- peek @Bool32 ((p `plusPtr` 76 :: Ptr Bool32)) extendedDynamicState3ColorBlendAdvanced <- peek @Bool32 ((p `plusPtr` 80 :: Ptr Bool32)) extendedDynamicState3ProvokingVertexMode <- peek @Bool32 ((p `plusPtr` 84 :: Ptr Bool32)) extendedDynamicState3LineRasterizationMode <- peek @Bool32 ((p `plusPtr` 88 :: Ptr Bool32)) extendedDynamicState3LineStippleEnable <- peek @Bool32 ((p `plusPtr` 92 :: Ptr Bool32)) extendedDynamicState3DepthClipNegativeOneToOne <- peek @Bool32 ((p `plusPtr` 96 :: Ptr Bool32)) extendedDynamicState3ViewportWScalingEnable <- peek @Bool32 ((p `plusPtr` 100 :: Ptr Bool32)) extendedDynamicState3ViewportSwizzle <- peek @Bool32 ((p `plusPtr` 104 :: Ptr Bool32)) extendedDynamicState3CoverageToColorEnable <- peek @Bool32 ((p `plusPtr` 108 :: Ptr Bool32)) extendedDynamicState3CoverageToColorLocation <- peek @Bool32 ((p `plusPtr` 112 :: Ptr Bool32)) extendedDynamicState3CoverageModulationMode <- peek @Bool32 ((p `plusPtr` 116 :: Ptr Bool32)) extendedDynamicState3CoverageModulationTableEnable <- peek @Bool32 ((p `plusPtr` 120 :: Ptr Bool32)) extendedDynamicState3CoverageModulationTable <- peek @Bool32 ((p `plusPtr` 124 :: Ptr Bool32)) extendedDynamicState3CoverageReductionMode <- peek @Bool32 ((p `plusPtr` 128 :: Ptr Bool32)) extendedDynamicState3RepresentativeFragmentTestEnable <- peek @Bool32 ((p `plusPtr` 132 :: Ptr Bool32)) extendedDynamicState3ShadingRateImageEnable <- peek @Bool32 ((p `plusPtr` 136 :: Ptr Bool32)) pure $ PhysicalDeviceExtendedDynamicState3FeaturesEXT (bool32ToBool extendedDynamicState3TessellationDomainOrigin) (bool32ToBool extendedDynamicState3DepthClampEnable) (bool32ToBool extendedDynamicState3PolygonMode) (bool32ToBool extendedDynamicState3RasterizationSamples) (bool32ToBool extendedDynamicState3SampleMask) (bool32ToBool extendedDynamicState3AlphaToCoverageEnable) (bool32ToBool extendedDynamicState3AlphaToOneEnable) (bool32ToBool extendedDynamicState3LogicOpEnable) (bool32ToBool extendedDynamicState3ColorBlendEnable) (bool32ToBool extendedDynamicState3ColorBlendEquation) (bool32ToBool extendedDynamicState3ColorWriteMask) (bool32ToBool extendedDynamicState3RasterizationStream) (bool32ToBool extendedDynamicState3ConservativeRasterizationMode) (bool32ToBool extendedDynamicState3ExtraPrimitiveOverestimationSize) (bool32ToBool extendedDynamicState3DepthClipEnable) (bool32ToBool extendedDynamicState3SampleLocationsEnable) (bool32ToBool extendedDynamicState3ColorBlendAdvanced) (bool32ToBool extendedDynamicState3ProvokingVertexMode) (bool32ToBool extendedDynamicState3LineRasterizationMode) (bool32ToBool extendedDynamicState3LineStippleEnable) (bool32ToBool extendedDynamicState3DepthClipNegativeOneToOne) (bool32ToBool extendedDynamicState3ViewportWScalingEnable) (bool32ToBool extendedDynamicState3ViewportSwizzle) (bool32ToBool extendedDynamicState3CoverageToColorEnable) (bool32ToBool extendedDynamicState3CoverageToColorLocation) (bool32ToBool extendedDynamicState3CoverageModulationMode) (bool32ToBool extendedDynamicState3CoverageModulationTableEnable) (bool32ToBool extendedDynamicState3CoverageModulationTable) (bool32ToBool extendedDynamicState3CoverageReductionMode) (bool32ToBool extendedDynamicState3RepresentativeFragmentTestEnable) (bool32ToBool 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 b. Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT -> PhysicalDeviceExtendedDynamicState3FeaturesEXT -> IO b -> IO b forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT ptr PhysicalDeviceExtendedDynamicState3FeaturesEXT poked (() -> IO () forall a. a -> IO a 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 -- | VkPhysicalDeviceExtendedDynamicState3PropertiesEXT - Structure -- describing capabilities of extended dynamic state -- -- = Description -- -- If the 'PhysicalDeviceExtendedDynamicState3PropertiesEXT' structure is -- included in the @pNext@ chain of the -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceProperties2' -- structure passed to -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.getPhysicalDeviceProperties2', -- it is filled in with each corresponding implementation-dependent -- property. -- -- == Valid Usage (Implicit) -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Enums.StructureType.StructureType' data PhysicalDeviceExtendedDynamicState3PropertiesEXT = PhysicalDeviceExtendedDynamicState3PropertiesEXT { -- | #limits-dynamicPrimitiveTopologyUnrestricted# -- @dynamicPrimitiveTopologyUnrestricted@ indicates that the implementation -- allows -- 'Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state.cmdSetPrimitiveTopology' -- to use a different -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#drawing-primitive-topology-class primitive topology class> -- to the one specified in the active graphics pipeline. 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 $c== :: PhysicalDeviceExtendedDynamicState3PropertiesEXT -> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool == :: PhysicalDeviceExtendedDynamicState3PropertiesEXT -> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool $c/= :: PhysicalDeviceExtendedDynamicState3PropertiesEXT -> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool /= :: 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 b. 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 :: PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Bool dynamicPrimitiveTopologyUnrestricted :: 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) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) (Bool -> 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) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) (Bool -> 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 dynamicPrimitiveTopologyUnrestricted <- forall a. Storable a => Ptr a -> IO a peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT p Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) pure $ PhysicalDeviceExtendedDynamicState3PropertiesEXT (bool32ToBool 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 b. Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT -> PhysicalDeviceExtendedDynamicState3PropertiesEXT -> IO b -> IO b forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b pokeCStruct Ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT ptr PhysicalDeviceExtendedDynamicState3PropertiesEXT poked (() -> IO () forall a. a -> IO a 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 -- | VkColorBlendEquationEXT - Structure specifying the color blend factors -- and operations for an attachment -- -- == Valid Usage -- -- - #VUID-VkColorBlendEquationEXT-dualSrcBlend-07357# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-dualSrcBlend dualSrcBlend> -- feature is not enabled, @srcColorBlendFactor@ /must/ not be -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_ALPHA', or -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_ALPHA' -- -- - #VUID-VkColorBlendEquationEXT-dualSrcBlend-07358# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-dualSrcBlend dualSrcBlend> -- feature is not enabled, @dstColorBlendFactor@ /must/ not be -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_ALPHA', or -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_ALPHA' -- -- - #VUID-VkColorBlendEquationEXT-dualSrcBlend-07359# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-dualSrcBlend dualSrcBlend> -- feature is not enabled, @srcAlphaBlendFactor@ /must/ not be -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_ALPHA', or -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_ALPHA' -- -- - #VUID-VkColorBlendEquationEXT-dualSrcBlend-07360# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#features-dualSrcBlend dualSrcBlend> -- feature is not enabled, @dstAlphaBlendFactor@ /must/ not be -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_COLOR', -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_SRC1_ALPHA', or -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_SRC1_ALPHA' -- -- - #VUID-VkColorBlendEquationEXT-colorBlendOp-07361# @colorBlendOp@ and -- @alphaBlendOp@ /must/ not be -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_ZERO_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_SRC_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_DST_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_SRC_OVER_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_DST_OVER_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_SRC_IN_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_DST_IN_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_SRC_OUT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_DST_OUT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_SRC_ATOP_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_DST_ATOP_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_XOR_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_MULTIPLY_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_SCREEN_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_OVERLAY_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_DARKEN_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_LIGHTEN_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_COLORDODGE_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_COLORBURN_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_HARDLIGHT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_SOFTLIGHT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_DIFFERENCE_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_EXCLUSION_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_INVERT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_INVERT_RGB_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_LINEARDODGE_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_LINEARBURN_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_VIVIDLIGHT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_LINEARLIGHT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_PINLIGHT_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_HARDMIX_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_HSL_HUE_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_HSL_SATURATION_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_HSL_COLOR_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_HSL_LUMINOSITY_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_PLUS_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_PLUS_CLAMPED_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_PLUS_CLAMPED_ALPHA_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_PLUS_DARKER_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_MINUS_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_MINUS_CLAMPED_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_CONTRAST_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_INVERT_OVG_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_RED_EXT', -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_GREEN_EXT', or -- 'Vulkan.Core10.Enums.BlendOp.BLEND_OP_BLUE_EXT' -- -- - #VUID-VkColorBlendEquationEXT-constantAlphaColorBlendFactors-07362# -- If the @VK_KHR_portability_subset@ extension is enabled, and -- 'Vulkan.Extensions.VK_KHR_portability_subset.PhysicalDevicePortabilitySubsetFeaturesKHR'::@constantAlphaColorBlendFactors@ -- is 'Vulkan.Core10.FundamentalTypes.FALSE', @srcColorBlendFactor@ -- /must/ not be -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_CONSTANT_ALPHA' or -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_CONSTANT_ALPHA' -- -- - #VUID-VkColorBlendEquationEXT-constantAlphaColorBlendFactors-07363# -- If the @VK_KHR_portability_subset@ extension is enabled, and -- 'Vulkan.Extensions.VK_KHR_portability_subset.PhysicalDevicePortabilitySubsetFeaturesKHR'::@constantAlphaColorBlendFactors@ -- is 'Vulkan.Core10.FundamentalTypes.FALSE', @dstColorBlendFactor@ -- /must/ not be -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_CONSTANT_ALPHA' or -- 'Vulkan.Core10.Enums.BlendFactor.BLEND_FACTOR_ONE_MINUS_CONSTANT_ALPHA' -- -- == Valid Usage (Implicit) -- -- - #VUID-VkColorBlendEquationEXT-srcColorBlendFactor-parameter# -- @srcColorBlendFactor@ /must/ be a valid -- 'Vulkan.Core10.Enums.BlendFactor.BlendFactor' value -- -- - #VUID-VkColorBlendEquationEXT-dstColorBlendFactor-parameter# -- @dstColorBlendFactor@ /must/ be a valid -- 'Vulkan.Core10.Enums.BlendFactor.BlendFactor' value -- -- - #VUID-VkColorBlendEquationEXT-colorBlendOp-parameter# @colorBlendOp@ -- /must/ be a valid 'Vulkan.Core10.Enums.BlendOp.BlendOp' value -- -- - #VUID-VkColorBlendEquationEXT-srcAlphaBlendFactor-parameter# -- @srcAlphaBlendFactor@ /must/ be a valid -- 'Vulkan.Core10.Enums.BlendFactor.BlendFactor' value -- -- - #VUID-VkColorBlendEquationEXT-dstAlphaBlendFactor-parameter# -- @dstAlphaBlendFactor@ /must/ be a valid -- 'Vulkan.Core10.Enums.BlendFactor.BlendFactor' value -- -- - #VUID-VkColorBlendEquationEXT-alphaBlendOp-parameter# @alphaBlendOp@ -- /must/ be a valid 'Vulkan.Core10.Enums.BlendOp.BlendOp' value -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Enums.BlendFactor.BlendFactor', -- 'Vulkan.Core10.Enums.BlendOp.BlendOp', 'cmdSetColorBlendEquationEXT' data ColorBlendEquationEXT = ColorBlendEquationEXT { -- | @srcColorBlendFactor@ selects which blend factor is used to determine -- the source factors (Sr,Sg,Sb). ColorBlendEquationEXT -> BlendFactor srcColorBlendFactor :: BlendFactor , -- | @dstColorBlendFactor@ selects which blend factor is used to determine -- the destination factors (Dr,Dg,Db). ColorBlendEquationEXT -> BlendFactor dstColorBlendFactor :: BlendFactor , -- | @colorBlendOp@ selects which blend operation is used to calculate the -- RGB values to write to the color attachment. ColorBlendEquationEXT -> BlendOp colorBlendOp :: BlendOp , -- | @srcAlphaBlendFactor@ selects which blend factor is used to determine -- the source factor Sa. ColorBlendEquationEXT -> BlendFactor srcAlphaBlendFactor :: BlendFactor , -- | @dstAlphaBlendFactor@ selects which blend factor is used to determine -- the destination factor Da. ColorBlendEquationEXT -> BlendFactor dstAlphaBlendFactor :: BlendFactor , -- | @alphaBlendOp@ selects which blend operation is use to calculate the -- alpha values to write to the color attachment. 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 $c== :: ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool == :: ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool $c/= :: ColorBlendEquationEXT -> ColorBlendEquationEXT -> Bool /= :: 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 -> (Ptr ColorBlendEquationEXT -> IO b) -> IO b withCStruct ColorBlendEquationEXT x Ptr ColorBlendEquationEXT -> IO b f = Int -> (Ptr ColorBlendEquationEXT -> IO b) -> IO b forall a b. Int -> (Ptr a -> IO b) -> IO b allocaBytes Int 24 ((Ptr ColorBlendEquationEXT -> IO b) -> IO b) -> (Ptr ColorBlendEquationEXT -> IO b) -> IO b forall a b. (a -> b) -> a -> b $ \Ptr ColorBlendEquationEXT p -> Ptr ColorBlendEquationEXT -> ColorBlendEquationEXT -> IO b -> IO b forall b. Ptr ColorBlendEquationEXT -> ColorBlendEquationEXT -> IO b -> IO b forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b pokeCStruct Ptr ColorBlendEquationEXT p ColorBlendEquationEXT x (Ptr ColorBlendEquationEXT -> IO b f Ptr ColorBlendEquationEXT p) pokeCStruct :: forall b. Ptr ColorBlendEquationEXT -> ColorBlendEquationEXT -> IO b -> IO b pokeCStruct Ptr ColorBlendEquationEXT p ColorBlendEquationEXT{BlendOp BlendFactor srcColorBlendFactor :: ColorBlendEquationEXT -> BlendFactor dstColorBlendFactor :: ColorBlendEquationEXT -> BlendFactor colorBlendOp :: ColorBlendEquationEXT -> BlendOp srcAlphaBlendFactor :: ColorBlendEquationEXT -> BlendFactor dstAlphaBlendFactor :: ColorBlendEquationEXT -> BlendFactor alphaBlendOp :: ColorBlendEquationEXT -> BlendOp srcColorBlendFactor :: BlendFactor dstColorBlendFactor :: BlendFactor colorBlendOp :: BlendOp srcAlphaBlendFactor :: BlendFactor dstAlphaBlendFactor :: BlendFactor alphaBlendOp :: BlendOp ..} IO b f = do Ptr BlendFactor -> BlendFactor -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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. Ptr ColorBlendEquationEXT -> IO b -> IO b pokeZeroCStruct Ptr ColorBlendEquationEXT p IO b f = do Ptr BlendFactor -> BlendFactor -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 ((Ptr ColorBlendEquationEXT p 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 :: Ptr ColorBlendEquationEXT -> IO ColorBlendEquationEXT peekCStruct Ptr ColorBlendEquationEXT p = do srcColorBlendFactor <- forall a. Storable a => Ptr a -> IO a peek @BlendFactor ((Ptr ColorBlendEquationEXT p Ptr ColorBlendEquationEXT -> Int -> Ptr BlendFactor forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 0 :: Ptr BlendFactor)) dstColorBlendFactor <- peek @BlendFactor ((p `plusPtr` 4 :: Ptr BlendFactor)) colorBlendOp <- peek @BlendOp ((p `plusPtr` 8 :: Ptr BlendOp)) srcAlphaBlendFactor <- peek @BlendFactor ((p `plusPtr` 12 :: Ptr BlendFactor)) dstAlphaBlendFactor <- peek @BlendFactor ((p `plusPtr` 16 :: Ptr BlendFactor)) alphaBlendOp <- peek @BlendOp ((p `plusPtr` 20 :: Ptr BlendOp)) pure $ ColorBlendEquationEXT srcColorBlendFactor dstColorBlendFactor colorBlendOp srcAlphaBlendFactor dstAlphaBlendFactor alphaBlendOp instance Storable ColorBlendEquationEXT where sizeOf :: ColorBlendEquationEXT -> Int sizeOf ~ColorBlendEquationEXT _ = Int 24 alignment :: ColorBlendEquationEXT -> Int alignment ~ColorBlendEquationEXT _ = Int 4 peek :: Ptr ColorBlendEquationEXT -> IO ColorBlendEquationEXT peek = Ptr ColorBlendEquationEXT -> IO ColorBlendEquationEXT forall a. FromCStruct a => Ptr a -> IO a peekCStruct poke :: Ptr ColorBlendEquationEXT -> ColorBlendEquationEXT -> IO () poke Ptr ColorBlendEquationEXT ptr ColorBlendEquationEXT poked = Ptr ColorBlendEquationEXT -> ColorBlendEquationEXT -> IO () -> IO () forall b. Ptr ColorBlendEquationEXT -> ColorBlendEquationEXT -> IO b -> IO b forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b pokeCStruct Ptr ColorBlendEquationEXT ptr ColorBlendEquationEXT poked (() -> IO () forall a. a -> IO a 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 -- | VkColorBlendAdvancedEXT - Structure specifying the advanced blend -- operation parameters for an attachment -- -- == Valid Usage -- -- - #VUID-VkColorBlendAdvancedEXT-srcPremultiplied-07505# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#limits-advancedBlendNonPremultipliedSrcColor non-premultiplied source color> -- property is not supported, @srcPremultiplied@ /must/ be -- 'Vulkan.Core10.FundamentalTypes.TRUE' -- -- - #VUID-VkColorBlendAdvancedEXT-dstPremultiplied-07506# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#limits-advancedBlendNonPremultipliedDstColor non-premultiplied destination color> -- property is not supported, @dstPremultiplied@ /must/ be -- 'Vulkan.Core10.FundamentalTypes.TRUE' -- -- - #VUID-VkColorBlendAdvancedEXT-blendOverlap-07507# If the -- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#limits-advancedBlendCorrelatedOverlap correlated overlap> -- property is not supported, @blendOverlap@ /must/ be -- 'Vulkan.Extensions.VK_EXT_blend_operation_advanced.BLEND_OVERLAP_UNCORRELATED_EXT' -- -- == Valid Usage (Implicit) -- -- - #VUID-VkColorBlendAdvancedEXT-advancedBlendOp-parameter# -- @advancedBlendOp@ /must/ be a valid -- 'Vulkan.Core10.Enums.BlendOp.BlendOp' value -- -- - #VUID-VkColorBlendAdvancedEXT-blendOverlap-parameter# @blendOverlap@ -- /must/ be a valid -- 'Vulkan.Extensions.VK_EXT_blend_operation_advanced.BlendOverlapEXT' -- value -- -- = See Also -- -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_extended_dynamic_state3 VK_EXT_extended_dynamic_state3>, -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_shader_object VK_EXT_shader_object>, -- 'Vulkan.Core10.Enums.BlendOp.BlendOp', -- 'Vulkan.Extensions.VK_EXT_blend_operation_advanced.BlendOverlapEXT', -- 'Vulkan.Core10.FundamentalTypes.Bool32', 'cmdSetColorBlendAdvancedEXT' data ColorBlendAdvancedEXT = ColorBlendAdvancedEXT { -- | @advancedBlendOp@ selects which blend operation is used to calculate the -- RGB values to write to the color attachment. ColorBlendAdvancedEXT -> BlendOp advancedBlendOp :: BlendOp , -- | @srcPremultiplied@ specifies whether the source color of the blend -- operation is treated as premultiplied. ColorBlendAdvancedEXT -> Bool srcPremultiplied :: Bool , -- | @dstPremultiplied@ specifies whether the destination color of the blend -- operation is treated as premultiplied. ColorBlendAdvancedEXT -> Bool dstPremultiplied :: Bool , -- | @blendOverlap@ is a -- 'Vulkan.Extensions.VK_EXT_blend_operation_advanced.BlendOverlapEXT' -- value specifying how the source and destination sample’s coverage is -- correlated. ColorBlendAdvancedEXT -> BlendOverlapEXT blendOverlap :: BlendOverlapEXT , -- | @clampResults@ specifies that results /must/ be clamped to the [0,1] -- range before writing to the attachment, which is useful when the -- attachment format is not normalized fixed-point. 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 $c== :: ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool == :: ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool $c/= :: ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> Bool /= :: 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 -> (Ptr ColorBlendAdvancedEXT -> IO b) -> IO b withCStruct ColorBlendAdvancedEXT x Ptr ColorBlendAdvancedEXT -> IO b f = Int -> (Ptr ColorBlendAdvancedEXT -> IO b) -> IO b forall a b. Int -> (Ptr a -> IO b) -> IO b allocaBytes Int 20 ((Ptr ColorBlendAdvancedEXT -> IO b) -> IO b) -> (Ptr ColorBlendAdvancedEXT -> IO b) -> IO b forall a b. (a -> b) -> a -> b $ \Ptr ColorBlendAdvancedEXT p -> Ptr ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> IO b -> IO b forall b. Ptr ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> IO b -> IO b forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b pokeCStruct Ptr ColorBlendAdvancedEXT p ColorBlendAdvancedEXT x (Ptr ColorBlendAdvancedEXT -> IO b f Ptr ColorBlendAdvancedEXT p) pokeCStruct :: forall b. Ptr ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> IO b -> IO b pokeCStruct Ptr ColorBlendAdvancedEXT p ColorBlendAdvancedEXT{Bool BlendOverlapEXT BlendOp advancedBlendOp :: ColorBlendAdvancedEXT -> BlendOp srcPremultiplied :: ColorBlendAdvancedEXT -> Bool dstPremultiplied :: ColorBlendAdvancedEXT -> Bool blendOverlap :: ColorBlendAdvancedEXT -> BlendOverlapEXT clampResults :: ColorBlendAdvancedEXT -> Bool advancedBlendOp :: BlendOp srcPremultiplied :: Bool dstPremultiplied :: Bool blendOverlap :: BlendOverlapEXT clampResults :: Bool ..} IO b f = do Ptr BlendOp -> BlendOp -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr BlendOp forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 0 :: Ptr BlendOp)) (BlendOp advancedBlendOp) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 4 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool srcPremultiplied)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 8 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool dstPremultiplied)) Ptr BlendOverlapEXT -> BlendOverlapEXT -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr BlendOverlapEXT forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 12 :: Ptr BlendOverlapEXT)) (BlendOverlapEXT blendOverlap) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool clampResults)) IO b f cStructSize :: Int cStructSize = Int 20 cStructAlignment :: Int cStructAlignment = Int 4 pokeZeroCStruct :: forall b. Ptr ColorBlendAdvancedEXT -> IO b -> IO b pokeZeroCStruct Ptr ColorBlendAdvancedEXT p IO b f = do Ptr BlendOp -> BlendOp -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p 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) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 4 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 8 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) Ptr BlendOverlapEXT -> BlendOverlapEXT -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p 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) Ptr Bool32 -> Bool32 -> IO () forall a. Storable a => Ptr a -> a -> IO () poke ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr Bool32 forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 16 :: Ptr Bool32)) (Bool -> Bool32 boolToBool32 (Bool forall a. Zero a => a zero)) IO b f instance FromCStruct ColorBlendAdvancedEXT where peekCStruct :: Ptr ColorBlendAdvancedEXT -> IO ColorBlendAdvancedEXT peekCStruct Ptr ColorBlendAdvancedEXT p = do advancedBlendOp <- forall a. Storable a => Ptr a -> IO a peek @BlendOp ((Ptr ColorBlendAdvancedEXT p Ptr ColorBlendAdvancedEXT -> Int -> Ptr BlendOp forall a b. Ptr a -> Int -> Ptr b `plusPtr` Int 0 :: Ptr BlendOp)) srcPremultiplied <- peek @Bool32 ((p `plusPtr` 4 :: Ptr Bool32)) dstPremultiplied <- peek @Bool32 ((p `plusPtr` 8 :: Ptr Bool32)) blendOverlap <- peek @BlendOverlapEXT ((p `plusPtr` 12 :: Ptr BlendOverlapEXT)) clampResults <- peek @Bool32 ((p `plusPtr` 16 :: Ptr Bool32)) pure $ ColorBlendAdvancedEXT advancedBlendOp (bool32ToBool srcPremultiplied) (bool32ToBool dstPremultiplied) blendOverlap (bool32ToBool clampResults) instance Storable ColorBlendAdvancedEXT where sizeOf :: ColorBlendAdvancedEXT -> Int sizeOf ~ColorBlendAdvancedEXT _ = Int 20 alignment :: ColorBlendAdvancedEXT -> Int alignment ~ColorBlendAdvancedEXT _ = Int 4 peek :: Ptr ColorBlendAdvancedEXT -> IO ColorBlendAdvancedEXT peek = Ptr ColorBlendAdvancedEXT -> IO ColorBlendAdvancedEXT forall a. FromCStruct a => Ptr a -> IO a peekCStruct poke :: Ptr ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> IO () poke Ptr ColorBlendAdvancedEXT ptr ColorBlendAdvancedEXT poked = Ptr ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> IO () -> IO () forall b. Ptr ColorBlendAdvancedEXT -> ColorBlendAdvancedEXT -> IO b -> IO b forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b pokeCStruct Ptr ColorBlendAdvancedEXT ptr ColorBlendAdvancedEXT poked (() -> IO () forall a. a -> IO a 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 -- No documentation found for TopLevel "VK_EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION" pattern EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION :: forall a . Integral a => a pattern $mEXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION :: forall {r} {a}. Integral a => a -> ((# #) -> r) -> ((# #) -> r) -> r $bEXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION :: forall a. Integral a => a EXT_EXTENDED_DYNAMIC_STATE_3_SPEC_VERSION = 2 type EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME = "VK_EXT_extended_dynamic_state3" -- No documentation found for TopLevel "VK_EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME" pattern EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a pattern $mEXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME :: forall {r} {a}. (Eq a, IsString a) => a -> ((# #) -> r) -> ((# #) -> r) -> r $bEXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a EXT_EXTENDED_DYNAMIC_STATE_3_EXTENSION_NAME = "VK_EXT_extended_dynamic_state3"