module Graphics.Vulkan.Types.Struct.RenderPass
(VkRenderPassBeginInfo(..), VkRenderPassCreateInfo(..),
VkRenderPassInputAttachmentAspectCreateInfo(..),
VkRenderPassInputAttachmentAspectCreateInfoKHR,
VkRenderPassMultiviewCreateInfo(..),
VkRenderPassMultiviewCreateInfoKHR,
VkRenderPassSampleLocationsBeginInfoEXT(..))
where
import Foreign.Storable (Storable (..))
import GHC.Base (Addr#,
ByteArray#,
byteArrayContents#,
plusAddr#)
import Graphics.Vulkan.Marshal
import Graphics.Vulkan.Marshal.Internal
import Graphics.Vulkan.Types.Bitmasks (VkRenderPassCreateFlags)
import Graphics.Vulkan.Types.Enum.StructureType (VkStructureType)
import Graphics.Vulkan.Types.Handles (VkFramebuffer,
VkRenderPass)
import Graphics.Vulkan.Types.Struct.Attachment (VkAttachmentDescription,
VkAttachmentSampleLocationsEXT)
import Graphics.Vulkan.Types.Struct.Clear (VkClearValue)
import Graphics.Vulkan.Types.Struct.InputAttachmentAspectReference (VkInputAttachmentAspectReference)
import Graphics.Vulkan.Types.Struct.Rect (VkRect2D)
import Graphics.Vulkan.Types.Struct.Subpass (VkSubpassDependency,
VkSubpassDescription,
VkSubpassSampleLocationsEXT)
import System.IO.Unsafe (unsafeDupablePerformIO)
data VkRenderPassBeginInfo = VkRenderPassBeginInfo# Addr#
ByteArray#
instance Eq VkRenderPassBeginInfo where
(VkRenderPassBeginInfo# a _) == x@(VkRenderPassBeginInfo# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkRenderPassBeginInfo where
(VkRenderPassBeginInfo# a _) `compare`
x@(VkRenderPassBeginInfo# b _) = cmpBytes# (sizeOf x) a b
instance Storable VkRenderPassBeginInfo where
sizeOf ~_ = (64)
alignment ~_ = (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkRenderPassBeginInfo where
unsafeAddr (VkRenderPassBeginInfo# a _) = a
unsafeByteArray (VkRenderPassBeginInfo# _ b) = b
unsafeFromByteArrayOffset off b
= VkRenderPassBeginInfo# (plusAddr# (byteArrayContents# b) off) b
instance VulkanMarshal VkRenderPassBeginInfo where
type StructFields VkRenderPassBeginInfo =
'["sType", "pNext", "renderPass", "framebuffer", "renderArea",
"clearValueCount", "pClearValues"]
type CUnionType VkRenderPassBeginInfo = 'False
type ReturnedOnly VkRenderPassBeginInfo = 'False
type StructExtends VkRenderPassBeginInfo = '[]
instance HasField "sType" VkRenderPassBeginInfo
where
type FieldType "sType" VkRenderPassBeginInfo = VkStructureType
type FieldOptional "sType" VkRenderPassBeginInfo = 'False
type FieldOffset "sType" VkRenderPassBeginInfo =
(0)
type FieldIsArray "sType" VkRenderPassBeginInfo = 'False
fieldOptional = False
fieldOffset = (0)
instance
CanReadField "sType" VkRenderPassBeginInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkRenderPassBeginInfo where
writeField p
= pokeByteOff p (0)
instance HasField "pNext" VkRenderPassBeginInfo
where
type FieldType "pNext" VkRenderPassBeginInfo = Ptr Void
type FieldOptional "pNext" VkRenderPassBeginInfo = 'False
type FieldOffset "pNext" VkRenderPassBeginInfo =
(8)
type FieldIsArray "pNext" VkRenderPassBeginInfo = 'False
fieldOptional = False
fieldOffset = (8)
instance
CanReadField "pNext" VkRenderPassBeginInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkRenderPassBeginInfo where
writeField p
= pokeByteOff p (8)
instance
HasField "renderPass" VkRenderPassBeginInfo where
type FieldType "renderPass" VkRenderPassBeginInfo = VkRenderPass
type FieldOptional "renderPass" VkRenderPassBeginInfo = 'False
type FieldOffset "renderPass" VkRenderPassBeginInfo =
(16)
type FieldIsArray "renderPass" VkRenderPassBeginInfo = 'False
fieldOptional = False
fieldOffset
= (16)
instance
CanReadField "renderPass" VkRenderPassBeginInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "renderPass" VkRenderPassBeginInfo where
writeField p
= pokeByteOff p (16)
instance
HasField "framebuffer" VkRenderPassBeginInfo where
type FieldType "framebuffer" VkRenderPassBeginInfo = VkFramebuffer
type FieldOptional "framebuffer" VkRenderPassBeginInfo = 'False
type FieldOffset "framebuffer" VkRenderPassBeginInfo =
(24)
type FieldIsArray "framebuffer" VkRenderPassBeginInfo = 'False
fieldOptional = False
fieldOffset
= (24)
instance
CanReadField "framebuffer" VkRenderPassBeginInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (24))
readField p
= peekByteOff p (24)
instance
CanWriteField "framebuffer" VkRenderPassBeginInfo where
writeField p
= pokeByteOff p (24)
instance
HasField "renderArea" VkRenderPassBeginInfo where
type FieldType "renderArea" VkRenderPassBeginInfo = VkRect2D
type FieldOptional "renderArea" VkRenderPassBeginInfo = 'False
type FieldOffset "renderArea" VkRenderPassBeginInfo =
(32)
type FieldIsArray "renderArea" VkRenderPassBeginInfo = 'False
fieldOptional = False
fieldOffset
= (32)
instance
CanReadField "renderArea" VkRenderPassBeginInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (32))
readField p
= peekByteOff p (32)
instance
CanWriteField "renderArea" VkRenderPassBeginInfo where
writeField p
= pokeByteOff p (32)
instance
HasField "clearValueCount" VkRenderPassBeginInfo where
type FieldType "clearValueCount" VkRenderPassBeginInfo = Word32
type FieldOptional "clearValueCount" VkRenderPassBeginInfo = 'True
type FieldOffset "clearValueCount" VkRenderPassBeginInfo =
(48)
type FieldIsArray "clearValueCount" VkRenderPassBeginInfo = 'False
fieldOptional = True
fieldOffset
= (48)
instance
CanReadField "clearValueCount" VkRenderPassBeginInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (48))
readField p
= peekByteOff p (48)
instance
CanWriteField "clearValueCount" VkRenderPassBeginInfo where
writeField p
= pokeByteOff p (48)
instance
HasField "pClearValues" VkRenderPassBeginInfo where
type FieldType "pClearValues" VkRenderPassBeginInfo =
Ptr VkClearValue
type FieldOptional "pClearValues" VkRenderPassBeginInfo = 'False
type FieldOffset "pClearValues" VkRenderPassBeginInfo =
(56)
type FieldIsArray "pClearValues" VkRenderPassBeginInfo = 'False
fieldOptional = False
fieldOffset
= (56)
instance
CanReadField "pClearValues" VkRenderPassBeginInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (56))
readField p
= peekByteOff p (56)
instance
CanWriteField "pClearValues" VkRenderPassBeginInfo where
writeField p
= pokeByteOff p (56)
instance Show VkRenderPassBeginInfo where
showsPrec d x
= showString "VkRenderPassBeginInfo {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "renderPass = " .
showsPrec d (getField @"renderPass" x) .
showString ", " .
showString "framebuffer = " .
showsPrec d (getField @"framebuffer" x) .
showString ", " .
showString "renderArea = " .
showsPrec d (getField @"renderArea" x) .
showString ", " .
showString "clearValueCount = " .
showsPrec d (getField @"clearValueCount" x) .
showString ", " .
showString "pClearValues = " .
showsPrec d (getField @"pClearValues" x) .
showChar '}'
data VkRenderPassCreateInfo = VkRenderPassCreateInfo# Addr#
ByteArray#
instance Eq VkRenderPassCreateInfo where
(VkRenderPassCreateInfo# a _) == x@(VkRenderPassCreateInfo# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkRenderPassCreateInfo where
(VkRenderPassCreateInfo# a _) `compare`
x@(VkRenderPassCreateInfo# b _) = cmpBytes# (sizeOf x) a b
instance Storable VkRenderPassCreateInfo where
sizeOf ~_ = (64)
alignment ~_ = (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkRenderPassCreateInfo where
unsafeAddr (VkRenderPassCreateInfo# a _) = a
unsafeByteArray (VkRenderPassCreateInfo# _ b) = b
unsafeFromByteArrayOffset off b
= VkRenderPassCreateInfo# (plusAddr# (byteArrayContents# b) off) b
instance VulkanMarshal VkRenderPassCreateInfo where
type StructFields VkRenderPassCreateInfo =
'["sType", "pNext", "flags", "attachmentCount", "pAttachments",
"subpassCount", "pSubpasses", "dependencyCount", "pDependencies"]
type CUnionType VkRenderPassCreateInfo = 'False
type ReturnedOnly VkRenderPassCreateInfo = 'False
type StructExtends VkRenderPassCreateInfo = '[]
instance
HasField "sType" VkRenderPassCreateInfo where
type FieldType "sType" VkRenderPassCreateInfo = VkStructureType
type FieldOptional "sType" VkRenderPassCreateInfo = 'False
type FieldOffset "sType" VkRenderPassCreateInfo =
(0)
type FieldIsArray "sType" VkRenderPassCreateInfo = 'False
fieldOptional = False
fieldOffset = (0)
instance
CanReadField "sType" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkRenderPassCreateInfo where
type FieldType "pNext" VkRenderPassCreateInfo = Ptr Void
type FieldOptional "pNext" VkRenderPassCreateInfo = 'False
type FieldOffset "pNext" VkRenderPassCreateInfo =
(8)
type FieldIsArray "pNext" VkRenderPassCreateInfo = 'False
fieldOptional = False
fieldOffset = (8)
instance
CanReadField "pNext" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (8)
instance
HasField "flags" VkRenderPassCreateInfo where
type FieldType "flags" VkRenderPassCreateInfo =
VkRenderPassCreateFlags
type FieldOptional "flags" VkRenderPassCreateInfo = 'True
type FieldOffset "flags" VkRenderPassCreateInfo =
(16)
type FieldIsArray "flags" VkRenderPassCreateInfo = 'False
fieldOptional = True
fieldOffset = (16)
instance
CanReadField "flags" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "flags" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (16)
instance
HasField "attachmentCount" VkRenderPassCreateInfo where
type FieldType "attachmentCount" VkRenderPassCreateInfo = Word32
type FieldOptional "attachmentCount" VkRenderPassCreateInfo = 'True
type FieldOffset "attachmentCount" VkRenderPassCreateInfo =
(20)
type FieldIsArray "attachmentCount" VkRenderPassCreateInfo = 'False
fieldOptional = True
fieldOffset
= (20)
instance
CanReadField "attachmentCount" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (20))
readField p
= peekByteOff p (20)
instance
CanWriteField "attachmentCount" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (20)
instance
HasField "pAttachments" VkRenderPassCreateInfo where
type FieldType "pAttachments" VkRenderPassCreateInfo =
Ptr VkAttachmentDescription
type FieldOptional "pAttachments" VkRenderPassCreateInfo = 'False
type FieldOffset "pAttachments" VkRenderPassCreateInfo =
(24)
type FieldIsArray "pAttachments" VkRenderPassCreateInfo = 'False
fieldOptional = False
fieldOffset
= (24)
instance
CanReadField "pAttachments" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (24))
readField p
= peekByteOff p (24)
instance
CanWriteField "pAttachments" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (24)
instance
HasField "subpassCount" VkRenderPassCreateInfo where
type FieldType "subpassCount" VkRenderPassCreateInfo = Word32
type FieldOptional "subpassCount" VkRenderPassCreateInfo = 'False
type FieldOffset "subpassCount" VkRenderPassCreateInfo =
(32)
type FieldIsArray "subpassCount" VkRenderPassCreateInfo = 'False
fieldOptional = False
fieldOffset
= (32)
instance
CanReadField "subpassCount" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (32))
readField p
= peekByteOff p (32)
instance
CanWriteField "subpassCount" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (32)
instance
HasField "pSubpasses" VkRenderPassCreateInfo where
type FieldType "pSubpasses" VkRenderPassCreateInfo =
Ptr VkSubpassDescription
type FieldOptional "pSubpasses" VkRenderPassCreateInfo = 'False
type FieldOffset "pSubpasses" VkRenderPassCreateInfo =
(40)
type FieldIsArray "pSubpasses" VkRenderPassCreateInfo = 'False
fieldOptional = False
fieldOffset
= (40)
instance
CanReadField "pSubpasses" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (40))
readField p
= peekByteOff p (40)
instance
CanWriteField "pSubpasses" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (40)
instance
HasField "dependencyCount" VkRenderPassCreateInfo where
type FieldType "dependencyCount" VkRenderPassCreateInfo = Word32
type FieldOptional "dependencyCount" VkRenderPassCreateInfo = 'True
type FieldOffset "dependencyCount" VkRenderPassCreateInfo =
(48)
type FieldIsArray "dependencyCount" VkRenderPassCreateInfo = 'False
fieldOptional = True
fieldOffset
= (48)
instance
CanReadField "dependencyCount" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (48))
readField p
= peekByteOff p (48)
instance
CanWriteField "dependencyCount" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (48)
instance
HasField "pDependencies" VkRenderPassCreateInfo where
type FieldType "pDependencies" VkRenderPassCreateInfo =
Ptr VkSubpassDependency
type FieldOptional "pDependencies" VkRenderPassCreateInfo = 'False
type FieldOffset "pDependencies" VkRenderPassCreateInfo =
(56)
type FieldIsArray "pDependencies" VkRenderPassCreateInfo = 'False
fieldOptional = False
fieldOffset
= (56)
instance
CanReadField "pDependencies" VkRenderPassCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (56))
readField p
= peekByteOff p (56)
instance
CanWriteField "pDependencies" VkRenderPassCreateInfo where
writeField p
= pokeByteOff p (56)
instance Show VkRenderPassCreateInfo where
showsPrec d x
= showString "VkRenderPassCreateInfo {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "flags = " .
showsPrec d (getField @"flags" x) .
showString ", " .
showString "attachmentCount = " .
showsPrec d (getField @"attachmentCount" x) .
showString ", " .
showString "pAttachments = " .
showsPrec d (getField @"pAttachments" x) .
showString ", " .
showString "subpassCount = " .
showsPrec d (getField @"subpassCount" x) .
showString ", " .
showString "pSubpasses = " .
showsPrec d (getField @"pSubpasses" x) .
showString ", " .
showString "dependencyCount = " .
showsPrec d
(getField @"dependencyCount" x)
.
showString ", " .
showString "pDependencies = " .
showsPrec d
(getField @"pDependencies" x)
. showChar '}'
data VkRenderPassInputAttachmentAspectCreateInfo = VkRenderPassInputAttachmentAspectCreateInfo# Addr#
ByteArray#
instance Eq VkRenderPassInputAttachmentAspectCreateInfo where
(VkRenderPassInputAttachmentAspectCreateInfo# a _) ==
x@(VkRenderPassInputAttachmentAspectCreateInfo# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkRenderPassInputAttachmentAspectCreateInfo where
(VkRenderPassInputAttachmentAspectCreateInfo# a _) `compare`
x@(VkRenderPassInputAttachmentAspectCreateInfo# b _)
= cmpBytes# (sizeOf x) a b
instance Storable VkRenderPassInputAttachmentAspectCreateInfo where
sizeOf ~_
= (32)
alignment ~_
= (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim
VkRenderPassInputAttachmentAspectCreateInfo
where
unsafeAddr (VkRenderPassInputAttachmentAspectCreateInfo# a _) = a
unsafeByteArray (VkRenderPassInputAttachmentAspectCreateInfo# _ b)
= b
unsafeFromByteArrayOffset off b
= VkRenderPassInputAttachmentAspectCreateInfo#
(plusAddr# (byteArrayContents# b) off)
b
instance VulkanMarshal VkRenderPassInputAttachmentAspectCreateInfo
where
type StructFields VkRenderPassInputAttachmentAspectCreateInfo =
'["sType", "pNext", "aspectReferenceCount", "pAspectReferences"]
type CUnionType VkRenderPassInputAttachmentAspectCreateInfo =
'False
type ReturnedOnly VkRenderPassInputAttachmentAspectCreateInfo =
'False
type StructExtends VkRenderPassInputAttachmentAspectCreateInfo =
'[VkRenderPassCreateInfo]
instance
HasField "sType" VkRenderPassInputAttachmentAspectCreateInfo where
type FieldType "sType" VkRenderPassInputAttachmentAspectCreateInfo
= VkStructureType
type FieldOptional "sType"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
type FieldOffset "sType"
VkRenderPassInputAttachmentAspectCreateInfo
=
(0)
type FieldIsArray "sType"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (0)
instance
CanReadField "sType" VkRenderPassInputAttachmentAspectCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkRenderPassInputAttachmentAspectCreateInfo
where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkRenderPassInputAttachmentAspectCreateInfo where
type FieldType "pNext" VkRenderPassInputAttachmentAspectCreateInfo
= Ptr Void
type FieldOptional "pNext"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
type FieldOffset "pNext"
VkRenderPassInputAttachmentAspectCreateInfo
=
(8)
type FieldIsArray "pNext"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (8)
instance
CanReadField "pNext" VkRenderPassInputAttachmentAspectCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkRenderPassInputAttachmentAspectCreateInfo
where
writeField p
= pokeByteOff p (8)
instance
HasField "aspectReferenceCount"
VkRenderPassInputAttachmentAspectCreateInfo
where
type FieldType "aspectReferenceCount"
VkRenderPassInputAttachmentAspectCreateInfo
= Word32
type FieldOptional "aspectReferenceCount"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
type FieldOffset "aspectReferenceCount"
VkRenderPassInputAttachmentAspectCreateInfo
=
(16)
type FieldIsArray "aspectReferenceCount"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (16)
instance
CanReadField "aspectReferenceCount"
VkRenderPassInputAttachmentAspectCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "aspectReferenceCount"
VkRenderPassInputAttachmentAspectCreateInfo
where
writeField p
= pokeByteOff p (16)
instance
HasField "pAspectReferences"
VkRenderPassInputAttachmentAspectCreateInfo
where
type FieldType "pAspectReferences"
VkRenderPassInputAttachmentAspectCreateInfo
= Ptr VkInputAttachmentAspectReference
type FieldOptional "pAspectReferences"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
type FieldOffset "pAspectReferences"
VkRenderPassInputAttachmentAspectCreateInfo
=
(24)
type FieldIsArray "pAspectReferences"
VkRenderPassInputAttachmentAspectCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (24)
instance
CanReadField "pAspectReferences"
VkRenderPassInputAttachmentAspectCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (24))
readField p
= peekByteOff p (24)
instance
CanWriteField "pAspectReferences"
VkRenderPassInputAttachmentAspectCreateInfo
where
writeField p
= pokeByteOff p (24)
instance Show VkRenderPassInputAttachmentAspectCreateInfo where
showsPrec d x
= showString "VkRenderPassInputAttachmentAspectCreateInfo {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "aspectReferenceCount = " .
showsPrec d (getField @"aspectReferenceCount" x) .
showString ", " .
showString "pAspectReferences = " .
showsPrec d (getField @"pAspectReferences" x) . showChar '}'
type VkRenderPassInputAttachmentAspectCreateInfoKHR =
VkRenderPassInputAttachmentAspectCreateInfo
data VkRenderPassMultiviewCreateInfo = VkRenderPassMultiviewCreateInfo# Addr#
ByteArray#
instance Eq VkRenderPassMultiviewCreateInfo where
(VkRenderPassMultiviewCreateInfo# a _) ==
x@(VkRenderPassMultiviewCreateInfo# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkRenderPassMultiviewCreateInfo where
(VkRenderPassMultiviewCreateInfo# a _) `compare`
x@(VkRenderPassMultiviewCreateInfo# b _) = cmpBytes# (sizeOf x) a b
instance Storable VkRenderPassMultiviewCreateInfo where
sizeOf ~_ = (64)
alignment ~_
= (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkRenderPassMultiviewCreateInfo where
unsafeAddr (VkRenderPassMultiviewCreateInfo# a _) = a
unsafeByteArray (VkRenderPassMultiviewCreateInfo# _ b) = b
unsafeFromByteArrayOffset off b
= VkRenderPassMultiviewCreateInfo#
(plusAddr# (byteArrayContents# b) off)
b
instance VulkanMarshal VkRenderPassMultiviewCreateInfo where
type StructFields VkRenderPassMultiviewCreateInfo =
'["sType", "pNext", "subpassCount", "pViewMasks",
"dependencyCount", "pViewOffsets", "correlationMaskCount",
"pCorrelationMasks"]
type CUnionType VkRenderPassMultiviewCreateInfo = 'False
type ReturnedOnly VkRenderPassMultiviewCreateInfo = 'False
type StructExtends VkRenderPassMultiviewCreateInfo =
'[VkRenderPassCreateInfo]
instance
HasField "sType" VkRenderPassMultiviewCreateInfo where
type FieldType "sType" VkRenderPassMultiviewCreateInfo =
VkStructureType
type FieldOptional "sType" VkRenderPassMultiviewCreateInfo = 'False
type FieldOffset "sType" VkRenderPassMultiviewCreateInfo =
(0)
type FieldIsArray "sType" VkRenderPassMultiviewCreateInfo = 'False
fieldOptional = False
fieldOffset
= (0)
instance
CanReadField "sType" VkRenderPassMultiviewCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkRenderPassMultiviewCreateInfo where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkRenderPassMultiviewCreateInfo where
type FieldType "pNext" VkRenderPassMultiviewCreateInfo = Ptr Void
type FieldOptional "pNext" VkRenderPassMultiviewCreateInfo = 'False
type FieldOffset "pNext" VkRenderPassMultiviewCreateInfo =
(8)
type FieldIsArray "pNext" VkRenderPassMultiviewCreateInfo = 'False
fieldOptional = False
fieldOffset
= (8)
instance
CanReadField "pNext" VkRenderPassMultiviewCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkRenderPassMultiviewCreateInfo where
writeField p
= pokeByteOff p (8)
instance
HasField "subpassCount" VkRenderPassMultiviewCreateInfo where
type FieldType "subpassCount" VkRenderPassMultiviewCreateInfo =
Word32
type FieldOptional "subpassCount" VkRenderPassMultiviewCreateInfo =
'True
type FieldOffset "subpassCount" VkRenderPassMultiviewCreateInfo =
(16)
type FieldIsArray "subpassCount" VkRenderPassMultiviewCreateInfo =
'False
fieldOptional = True
fieldOffset
= (16)
instance
CanReadField "subpassCount" VkRenderPassMultiviewCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "subpassCount" VkRenderPassMultiviewCreateInfo where
writeField p
= pokeByteOff p (16)
instance
HasField "pViewMasks" VkRenderPassMultiviewCreateInfo where
type FieldType "pViewMasks" VkRenderPassMultiviewCreateInfo =
Ptr Word32
type FieldOptional "pViewMasks" VkRenderPassMultiviewCreateInfo =
'False
type FieldOffset "pViewMasks" VkRenderPassMultiviewCreateInfo =
(24)
type FieldIsArray "pViewMasks" VkRenderPassMultiviewCreateInfo =
'False
fieldOptional = False
fieldOffset
= (24)
instance
CanReadField "pViewMasks" VkRenderPassMultiviewCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (24))
readField p
= peekByteOff p (24)
instance
CanWriteField "pViewMasks" VkRenderPassMultiviewCreateInfo where
writeField p
= pokeByteOff p (24)
instance
HasField "dependencyCount" VkRenderPassMultiviewCreateInfo where
type FieldType "dependencyCount" VkRenderPassMultiviewCreateInfo =
Word32
type FieldOptional "dependencyCount"
VkRenderPassMultiviewCreateInfo
= 'True
type FieldOffset "dependencyCount" VkRenderPassMultiviewCreateInfo
=
(32)
type FieldIsArray "dependencyCount" VkRenderPassMultiviewCreateInfo
= 'False
fieldOptional = True
fieldOffset
= (32)
instance
CanReadField "dependencyCount" VkRenderPassMultiviewCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (32))
readField p
= peekByteOff p (32)
instance
CanWriteField "dependencyCount" VkRenderPassMultiviewCreateInfo
where
writeField p
= pokeByteOff p (32)
instance
HasField "pViewOffsets" VkRenderPassMultiviewCreateInfo where
type FieldType "pViewOffsets" VkRenderPassMultiviewCreateInfo =
Ptr Int32
type FieldOptional "pViewOffsets" VkRenderPassMultiviewCreateInfo =
'False
type FieldOffset "pViewOffsets" VkRenderPassMultiviewCreateInfo =
(40)
type FieldIsArray "pViewOffsets" VkRenderPassMultiviewCreateInfo =
'False
fieldOptional = False
fieldOffset
= (40)
instance
CanReadField "pViewOffsets" VkRenderPassMultiviewCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (40))
readField p
= peekByteOff p (40)
instance
CanWriteField "pViewOffsets" VkRenderPassMultiviewCreateInfo where
writeField p
= pokeByteOff p (40)
instance
HasField "correlationMaskCount" VkRenderPassMultiviewCreateInfo
where
type FieldType "correlationMaskCount"
VkRenderPassMultiviewCreateInfo
= Word32
type FieldOptional "correlationMaskCount"
VkRenderPassMultiviewCreateInfo
= 'True
type FieldOffset "correlationMaskCount"
VkRenderPassMultiviewCreateInfo
=
(48)
type FieldIsArray "correlationMaskCount"
VkRenderPassMultiviewCreateInfo
= 'False
fieldOptional = True
fieldOffset
= (48)
instance
CanReadField "correlationMaskCount" VkRenderPassMultiviewCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (48))
readField p
= peekByteOff p (48)
instance
CanWriteField "correlationMaskCount"
VkRenderPassMultiviewCreateInfo
where
writeField p
= pokeByteOff p (48)
instance
HasField "pCorrelationMasks" VkRenderPassMultiviewCreateInfo where
type FieldType "pCorrelationMasks" VkRenderPassMultiviewCreateInfo
= Ptr Word32
type FieldOptional "pCorrelationMasks"
VkRenderPassMultiviewCreateInfo
= 'False
type FieldOffset "pCorrelationMasks"
VkRenderPassMultiviewCreateInfo
=
(56)
type FieldIsArray "pCorrelationMasks"
VkRenderPassMultiviewCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (56)
instance
CanReadField "pCorrelationMasks" VkRenderPassMultiviewCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (56))
readField p
= peekByteOff p (56)
instance
CanWriteField "pCorrelationMasks" VkRenderPassMultiviewCreateInfo
where
writeField p
= pokeByteOff p (56)
instance Show VkRenderPassMultiviewCreateInfo where
showsPrec d x
= showString "VkRenderPassMultiviewCreateInfo {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "subpassCount = " .
showsPrec d (getField @"subpassCount" x) .
showString ", " .
showString "pViewMasks = " .
showsPrec d (getField @"pViewMasks" x) .
showString ", " .
showString "dependencyCount = " .
showsPrec d (getField @"dependencyCount" x) .
showString ", " .
showString "pViewOffsets = " .
showsPrec d (getField @"pViewOffsets" x) .
showString ", " .
showString "correlationMaskCount = " .
showsPrec d (getField @"correlationMaskCount" x)
.
showString ", " .
showString "pCorrelationMasks = " .
showsPrec d
(getField @"pCorrelationMasks" x)
. showChar '}'
type VkRenderPassMultiviewCreateInfoKHR =
VkRenderPassMultiviewCreateInfo
data VkRenderPassSampleLocationsBeginInfoEXT = VkRenderPassSampleLocationsBeginInfoEXT# Addr#
ByteArray#
instance Eq VkRenderPassSampleLocationsBeginInfoEXT where
(VkRenderPassSampleLocationsBeginInfoEXT# a _) ==
x@(VkRenderPassSampleLocationsBeginInfoEXT# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkRenderPassSampleLocationsBeginInfoEXT where
(VkRenderPassSampleLocationsBeginInfoEXT# a _) `compare`
x@(VkRenderPassSampleLocationsBeginInfoEXT# b _)
= cmpBytes# (sizeOf x) a b
instance Storable VkRenderPassSampleLocationsBeginInfoEXT where
sizeOf ~_
= (48)
alignment ~_
= (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkRenderPassSampleLocationsBeginInfoEXT
where
unsafeAddr (VkRenderPassSampleLocationsBeginInfoEXT# a _) = a
unsafeByteArray (VkRenderPassSampleLocationsBeginInfoEXT# _ b) = b
unsafeFromByteArrayOffset off b
= VkRenderPassSampleLocationsBeginInfoEXT#
(plusAddr# (byteArrayContents# b) off)
b
instance VulkanMarshal VkRenderPassSampleLocationsBeginInfoEXT
where
type StructFields VkRenderPassSampleLocationsBeginInfoEXT =
'["sType", "pNext", "attachmentInitialSampleLocationsCount",
"pAttachmentInitialSampleLocations",
"postSubpassSampleLocationsCount", "pPostSubpassSampleLocations"]
type CUnionType VkRenderPassSampleLocationsBeginInfoEXT = 'False
type ReturnedOnly VkRenderPassSampleLocationsBeginInfoEXT = 'False
type StructExtends VkRenderPassSampleLocationsBeginInfoEXT =
'[VkRenderPassBeginInfo]
instance
HasField "sType" VkRenderPassSampleLocationsBeginInfoEXT where
type FieldType "sType" VkRenderPassSampleLocationsBeginInfoEXT =
VkStructureType
type FieldOptional "sType" VkRenderPassSampleLocationsBeginInfoEXT
= 'False
type FieldOffset "sType" VkRenderPassSampleLocationsBeginInfoEXT =
(0)
type FieldIsArray "sType" VkRenderPassSampleLocationsBeginInfoEXT =
'False
fieldOptional = False
fieldOffset
= (0)
instance
CanReadField "sType" VkRenderPassSampleLocationsBeginInfoEXT where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkRenderPassSampleLocationsBeginInfoEXT where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkRenderPassSampleLocationsBeginInfoEXT where
type FieldType "pNext" VkRenderPassSampleLocationsBeginInfoEXT =
Ptr Void
type FieldOptional "pNext" VkRenderPassSampleLocationsBeginInfoEXT
= 'False
type FieldOffset "pNext" VkRenderPassSampleLocationsBeginInfoEXT =
(8)
type FieldIsArray "pNext" VkRenderPassSampleLocationsBeginInfoEXT =
'False
fieldOptional = False
fieldOffset
= (8)
instance
CanReadField "pNext" VkRenderPassSampleLocationsBeginInfoEXT where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkRenderPassSampleLocationsBeginInfoEXT where
writeField p
= pokeByteOff p (8)
instance
HasField "attachmentInitialSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
where
type FieldType "attachmentInitialSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
= Word32
type FieldOptional "attachmentInitialSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
= 'True
type FieldOffset "attachmentInitialSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
=
(16)
type FieldIsArray "attachmentInitialSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
= 'False
fieldOptional = True
fieldOffset
= (16)
instance
CanReadField "attachmentInitialSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "attachmentInitialSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
where
writeField p
= pokeByteOff p (16)
instance
HasField "pAttachmentInitialSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
where
type FieldType "pAttachmentInitialSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
= Ptr VkAttachmentSampleLocationsEXT
type FieldOptional "pAttachmentInitialSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
= 'False
type FieldOffset "pAttachmentInitialSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
=
(24)
type FieldIsArray "pAttachmentInitialSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
= 'False
fieldOptional = False
fieldOffset
= (24)
instance
CanReadField "pAttachmentInitialSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (24))
readField p
= peekByteOff p (24)
instance
CanWriteField "pAttachmentInitialSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
where
writeField p
= pokeByteOff p (24)
instance
HasField "postSubpassSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
where
type FieldType "postSubpassSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
= Word32
type FieldOptional "postSubpassSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
= 'True
type FieldOffset "postSubpassSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
=
(32)
type FieldIsArray "postSubpassSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
= 'False
fieldOptional = True
fieldOffset
= (32)
instance
CanReadField "postSubpassSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (32))
readField p
= peekByteOff p (32)
instance
CanWriteField "postSubpassSampleLocationsCount"
VkRenderPassSampleLocationsBeginInfoEXT
where
writeField p
= pokeByteOff p (32)
instance
HasField "pPostSubpassSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
where
type FieldType "pPostSubpassSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
= Ptr VkSubpassSampleLocationsEXT
type FieldOptional "pPostSubpassSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
= 'False
type FieldOffset "pPostSubpassSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
=
(40)
type FieldIsArray "pPostSubpassSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
= 'False
fieldOptional = False
fieldOffset
= (40)
instance
CanReadField "pPostSubpassSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (40))
readField p
= peekByteOff p (40)
instance
CanWriteField "pPostSubpassSampleLocations"
VkRenderPassSampleLocationsBeginInfoEXT
where
writeField p
= pokeByteOff p (40)
instance Show VkRenderPassSampleLocationsBeginInfoEXT where
showsPrec d x
= showString "VkRenderPassSampleLocationsBeginInfoEXT {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "attachmentInitialSampleLocationsCount = " .
showsPrec d (getField @"attachmentInitialSampleLocationsCount" x) .
showString ", " .
showString "pAttachmentInitialSampleLocations = " .
showsPrec d (getField @"pAttachmentInitialSampleLocations" x) .
showString ", " .
showString "postSubpassSampleLocationsCount = " .
showsPrec d (getField @"postSubpassSampleLocationsCount" x)
.
showString ", " .
showString "pPostSubpassSampleLocations = " .
showsPrec d
(getField @"pPostSubpassSampleLocations" x)
. showChar '}'