{-# OPTIONS_GHC -fno-warn-orphans#-}
{-# OPTIONS_HADDOCK not-home#-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE Strict #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE ViewPatterns #-}
module Graphics.Vulkan.Ext.VK_NV_clip_space_w_scaling
(
module Graphics.Vulkan.Types.BaseTypes,
module Graphics.Vulkan.Types.Struct.Extent,
module Graphics.Vulkan.Types.Struct.Offset,
module Graphics.Vulkan.Types.Bitmasks,
module Graphics.Vulkan.Types.Struct.Pipeline,
module Graphics.Vulkan.Types.Struct.Rect,
module Graphics.Vulkan.Types.Enum.StructureType,
module Graphics.Vulkan.Types.Struct.Viewport,
VkCmdSetViewportWScalingNV, pattern VkCmdSetViewportWScalingNV,
HS_vkCmdSetViewportWScalingNV, PFN_vkCmdSetViewportWScalingNV,
module Graphics.Vulkan.Types.Handles,
VK_NV_CLIP_SPACE_W_SCALING_SPEC_VERSION,
pattern VK_NV_CLIP_SPACE_W_SCALING_SPEC_VERSION,
VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME,
pattern VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME,
pattern VK_STRUCTURE_TYPE_PIPELINE_VIEWPORT_W_SCALING_STATE_CREATE_INFO_NV,
pattern VK_DYNAMIC_STATE_VIEWPORT_W_SCALING_NV)
where
import GHC.Ptr (Ptr (..))
import Graphics.Vulkan.Marshal
import Graphics.Vulkan.Marshal.Proc (VulkanProc (..))
import Graphics.Vulkan.Types.BaseTypes
import Graphics.Vulkan.Types.Bitmasks
import Graphics.Vulkan.Types.Enum.DynamicState (VkDynamicState (..))
import Graphics.Vulkan.Types.Enum.StructureType
import Graphics.Vulkan.Types.Handles
import Graphics.Vulkan.Types.Struct.Extent
import Graphics.Vulkan.Types.Struct.Offset
import Graphics.Vulkan.Types.Struct.Pipeline
import Graphics.Vulkan.Types.Struct.Rect
import Graphics.Vulkan.Types.Struct.Viewport
pattern VkCmdSetViewportWScalingNV :: CString
pattern $bVkCmdSetViewportWScalingNV :: CString
$mVkCmdSetViewportWScalingNV :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkCmdSetViewportWScalingNV <-
(is_VkCmdSetViewportWScalingNV -> True)
where VkCmdSetViewportWScalingNV = CString
_VkCmdSetViewportWScalingNV
{-# INLINE _VkCmdSetViewportWScalingNV #-}
_VkCmdSetViewportWScalingNV :: CString
_VkCmdSetViewportWScalingNV :: CString
_VkCmdSetViewportWScalingNV = Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkCmdSetViewportWScalingNV\NUL"#
{-# INLINE is_VkCmdSetViewportWScalingNV #-}
is_VkCmdSetViewportWScalingNV :: CString -> Bool
is_VkCmdSetViewportWScalingNV :: CString -> Bool
is_VkCmdSetViewportWScalingNV
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkCmdSetViewportWScalingNV
type VkCmdSetViewportWScalingNV = "vkCmdSetViewportWScalingNV"
type HS_vkCmdSetViewportWScalingNV =
VkCommandBuffer
->
Word32
-> Word32
-> Ptr VkViewportWScalingNV
-> IO ()
type PFN_vkCmdSetViewportWScalingNV =
FunPtr HS_vkCmdSetViewportWScalingNV
foreign import ccall "dynamic" unwrapVkCmdSetViewportWScalingNV ::
PFN_vkCmdSetViewportWScalingNV -> HS_vkCmdSetViewportWScalingNV
instance VulkanProc "vkCmdSetViewportWScalingNV" where
type VkProcType "vkCmdSetViewportWScalingNV" =
HS_vkCmdSetViewportWScalingNV
vkProcSymbol :: CString
vkProcSymbol = CString
_VkCmdSetViewportWScalingNV
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType "vkCmdSetViewportWScalingNV")
-> VkProcType "vkCmdSetViewportWScalingNV"
unwrapVkProcPtr = FunPtr (VkProcType "vkCmdSetViewportWScalingNV")
-> VkProcType "vkCmdSetViewportWScalingNV"
PFN_vkCmdSetViewportWScalingNV -> HS_vkCmdSetViewportWScalingNV
unwrapVkCmdSetViewportWScalingNV
{-# INLINE unwrapVkProcPtr #-}
pattern VK_NV_CLIP_SPACE_W_SCALING_SPEC_VERSION :: (Num a, Eq a) =>
a
pattern $bVK_NV_CLIP_SPACE_W_SCALING_SPEC_VERSION :: a
$mVK_NV_CLIP_SPACE_W_SCALING_SPEC_VERSION :: forall r a. (Num a, Eq a) => a -> (Void# -> r) -> (Void# -> r) -> r
VK_NV_CLIP_SPACE_W_SCALING_SPEC_VERSION = 1
type VK_NV_CLIP_SPACE_W_SCALING_SPEC_VERSION = 1
pattern VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME :: CString
pattern $bVK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME :: CString
$mVK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME <-
(is_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME -> True)
where VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME
= CString
_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME
{-# INLINE _VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME #-}
_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME :: CString
_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME :: CString
_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"VK_NV_clip_space_w_scaling\NUL"#
{-# INLINE is_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME #-}
is_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME :: CString -> Bool
is_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME :: CString -> Bool
is_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME
type VK_NV_CLIP_SPACE_W_SCALING_EXTENSION_NAME =
"VK_NV_clip_space_w_scaling"
pattern VK_STRUCTURE_TYPE_PIPELINE_VIEWPORT_W_SCALING_STATE_CREATE_INFO_NV
:: VkStructureType
pattern $bVK_STRUCTURE_TYPE_PIPELINE_VIEWPORT_W_SCALING_STATE_CREATE_INFO_NV :: VkStructureType
$mVK_STRUCTURE_TYPE_PIPELINE_VIEWPORT_W_SCALING_STATE_CREATE_INFO_NV :: forall r. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_PIPELINE_VIEWPORT_W_SCALING_STATE_CREATE_INFO_NV
= VkStructureType 1000087000
pattern VK_DYNAMIC_STATE_VIEWPORT_W_SCALING_NV :: VkDynamicState
pattern $bVK_DYNAMIC_STATE_VIEWPORT_W_SCALING_NV :: VkDynamicState
$mVK_DYNAMIC_STATE_VIEWPORT_W_SCALING_NV :: forall r. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_VIEWPORT_W_SCALING_NV =
VkDynamicState 1000087000