module Graphics.Vulkan.Types.Struct.Sampler
(VkSamplerCreateInfo(..), VkSamplerReductionModeCreateInfoEXT(..),
VkSamplerYcbcrConversionCreateInfo(..),
VkSamplerYcbcrConversionCreateInfoKHR,
VkSamplerYcbcrConversionImageFormatProperties(..),
VkSamplerYcbcrConversionImageFormatPropertiesKHR,
VkSamplerYcbcrConversionInfo(..), VkSamplerYcbcrConversionInfoKHR)
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.BaseTypes (VkBool32)
import Graphics.Vulkan.Types.Bitmasks (VkSamplerCreateFlags)
import Graphics.Vulkan.Types.Enum.BorderColor (VkBorderColor)
import Graphics.Vulkan.Types.Enum.ChromaLocation (VkChromaLocation)
import Graphics.Vulkan.Types.Enum.CompareOp (VkCompareOp)
import Graphics.Vulkan.Types.Enum.Filter (VkFilter)
import Graphics.Vulkan.Types.Enum.Format (VkFormat)
import Graphics.Vulkan.Types.Enum.Sampler (VkSamplerAddressMode,
VkSamplerMipmapMode,
VkSamplerReductionModeEXT,
VkSamplerYcbcrModelConversion,
VkSamplerYcbcrRange)
import Graphics.Vulkan.Types.Enum.StructureType (VkStructureType)
import Graphics.Vulkan.Types.Handles (VkSamplerYcbcrConversion)
import Graphics.Vulkan.Types.Struct.ComponentMapping (VkComponentMapping)
import Graphics.Vulkan.Types.Struct.Image (VkImageFormatProperties2,
VkImageViewCreateInfo)
import System.IO.Unsafe (unsafeDupablePerformIO)
data VkSamplerCreateInfo = VkSamplerCreateInfo# Addr# ByteArray#
instance Eq VkSamplerCreateInfo where
(VkSamplerCreateInfo# a _) == x@(VkSamplerCreateInfo# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkSamplerCreateInfo where
(VkSamplerCreateInfo# a _) `compare` x@(VkSamplerCreateInfo# b _)
= cmpBytes# (sizeOf x) a b
instance Storable VkSamplerCreateInfo where
sizeOf ~_ = (80)
alignment ~_ = (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkSamplerCreateInfo where
unsafeAddr (VkSamplerCreateInfo# a _) = a
unsafeByteArray (VkSamplerCreateInfo# _ b) = b
unsafeFromByteArrayOffset off b
= VkSamplerCreateInfo# (plusAddr# (byteArrayContents# b) off) b
instance VulkanMarshal VkSamplerCreateInfo where
type StructFields VkSamplerCreateInfo =
'["sType", "pNext", "flags", "magFilter", "minFilter",
"mipmapMode", "addressModeU", "addressModeV", "addressModeW",
"mipLodBias", "anisotropyEnable", "maxAnisotropy", "compareEnable",
"compareOp", "minLod", "maxLod", "borderColor",
"unnormalizedCoordinates"]
type CUnionType VkSamplerCreateInfo = 'False
type ReturnedOnly VkSamplerCreateInfo = 'False
type StructExtends VkSamplerCreateInfo = '[]
instance HasField "sType" VkSamplerCreateInfo
where
type FieldType "sType" VkSamplerCreateInfo = VkStructureType
type FieldOptional "sType" VkSamplerCreateInfo = 'False
type FieldOffset "sType" VkSamplerCreateInfo =
(0)
type FieldIsArray "sType" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (0)
instance
CanReadField "sType" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (0)
instance HasField "pNext" VkSamplerCreateInfo
where
type FieldType "pNext" VkSamplerCreateInfo = Ptr Void
type FieldOptional "pNext" VkSamplerCreateInfo = 'False
type FieldOffset "pNext" VkSamplerCreateInfo =
(8)
type FieldIsArray "pNext" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (8)
instance
CanReadField "pNext" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (8)
instance HasField "flags" VkSamplerCreateInfo
where
type FieldType "flags" VkSamplerCreateInfo = VkSamplerCreateFlags
type FieldOptional "flags" VkSamplerCreateInfo = 'True
type FieldOffset "flags" VkSamplerCreateInfo =
(16)
type FieldIsArray "flags" VkSamplerCreateInfo = 'False
fieldOptional = True
fieldOffset = (16)
instance
CanReadField "flags" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "flags" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (16)
instance
HasField "magFilter" VkSamplerCreateInfo where
type FieldType "magFilter" VkSamplerCreateInfo = VkFilter
type FieldOptional "magFilter" VkSamplerCreateInfo = 'False
type FieldOffset "magFilter" VkSamplerCreateInfo =
(20)
type FieldIsArray "magFilter" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (20)
instance
CanReadField "magFilter" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (20))
readField p
= peekByteOff p (20)
instance
CanWriteField "magFilter" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (20)
instance
HasField "minFilter" VkSamplerCreateInfo where
type FieldType "minFilter" VkSamplerCreateInfo = VkFilter
type FieldOptional "minFilter" VkSamplerCreateInfo = 'False
type FieldOffset "minFilter" VkSamplerCreateInfo =
(24)
type FieldIsArray "minFilter" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (24)
instance
CanReadField "minFilter" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (24))
readField p
= peekByteOff p (24)
instance
CanWriteField "minFilter" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (24)
instance
HasField "mipmapMode" VkSamplerCreateInfo where
type FieldType "mipmapMode" VkSamplerCreateInfo =
VkSamplerMipmapMode
type FieldOptional "mipmapMode" VkSamplerCreateInfo = 'False
type FieldOffset "mipmapMode" VkSamplerCreateInfo =
(28)
type FieldIsArray "mipmapMode" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (28)
instance
CanReadField "mipmapMode" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (28))
readField p
= peekByteOff p (28)
instance
CanWriteField "mipmapMode" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (28)
instance
HasField "addressModeU" VkSamplerCreateInfo where
type FieldType "addressModeU" VkSamplerCreateInfo =
VkSamplerAddressMode
type FieldOptional "addressModeU" VkSamplerCreateInfo = 'False
type FieldOffset "addressModeU" VkSamplerCreateInfo =
(32)
type FieldIsArray "addressModeU" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset
= (32)
instance
CanReadField "addressModeU" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (32))
readField p
= peekByteOff p (32)
instance
CanWriteField "addressModeU" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (32)
instance
HasField "addressModeV" VkSamplerCreateInfo where
type FieldType "addressModeV" VkSamplerCreateInfo =
VkSamplerAddressMode
type FieldOptional "addressModeV" VkSamplerCreateInfo = 'False
type FieldOffset "addressModeV" VkSamplerCreateInfo =
(36)
type FieldIsArray "addressModeV" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset
= (36)
instance
CanReadField "addressModeV" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (36))
readField p
= peekByteOff p (36)
instance
CanWriteField "addressModeV" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (36)
instance
HasField "addressModeW" VkSamplerCreateInfo where
type FieldType "addressModeW" VkSamplerCreateInfo =
VkSamplerAddressMode
type FieldOptional "addressModeW" VkSamplerCreateInfo = 'False
type FieldOffset "addressModeW" VkSamplerCreateInfo =
(40)
type FieldIsArray "addressModeW" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset
= (40)
instance
CanReadField "addressModeW" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (40))
readField p
= peekByteOff p (40)
instance
CanWriteField "addressModeW" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (40)
instance
HasField "mipLodBias" VkSamplerCreateInfo where
type FieldType "mipLodBias" VkSamplerCreateInfo =
Float
type FieldOptional "mipLodBias" VkSamplerCreateInfo = 'False
type FieldOffset "mipLodBias" VkSamplerCreateInfo =
(44)
type FieldIsArray "mipLodBias" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (44)
instance
CanReadField "mipLodBias" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (44))
readField p
= peekByteOff p (44)
instance
CanWriteField "mipLodBias" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (44)
instance
HasField "anisotropyEnable" VkSamplerCreateInfo where
type FieldType "anisotropyEnable" VkSamplerCreateInfo = VkBool32
type FieldOptional "anisotropyEnable" VkSamplerCreateInfo = 'False
type FieldOffset "anisotropyEnable" VkSamplerCreateInfo =
(48)
type FieldIsArray "anisotropyEnable" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset
= (48)
instance
CanReadField "anisotropyEnable" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (48))
readField p
= peekByteOff p (48)
instance
CanWriteField "anisotropyEnable" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (48)
instance
HasField "maxAnisotropy" VkSamplerCreateInfo where
type FieldType "maxAnisotropy" VkSamplerCreateInfo =
Float
type FieldOptional "maxAnisotropy" VkSamplerCreateInfo = 'False
type FieldOffset "maxAnisotropy" VkSamplerCreateInfo =
(52)
type FieldIsArray "maxAnisotropy" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset
= (52)
instance
CanReadField "maxAnisotropy" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (52))
readField p
= peekByteOff p (52)
instance
CanWriteField "maxAnisotropy" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (52)
instance
HasField "compareEnable" VkSamplerCreateInfo where
type FieldType "compareEnable" VkSamplerCreateInfo = VkBool32
type FieldOptional "compareEnable" VkSamplerCreateInfo = 'False
type FieldOffset "compareEnable" VkSamplerCreateInfo =
(56)
type FieldIsArray "compareEnable" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset
= (56)
instance
CanReadField "compareEnable" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (56))
readField p
= peekByteOff p (56)
instance
CanWriteField "compareEnable" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (56)
instance
HasField "compareOp" VkSamplerCreateInfo where
type FieldType "compareOp" VkSamplerCreateInfo = VkCompareOp
type FieldOptional "compareOp" VkSamplerCreateInfo = 'False
type FieldOffset "compareOp" VkSamplerCreateInfo =
(60)
type FieldIsArray "compareOp" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (60)
instance
CanReadField "compareOp" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (60))
readField p
= peekByteOff p (60)
instance
CanWriteField "compareOp" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (60)
instance HasField "minLod" VkSamplerCreateInfo
where
type FieldType "minLod" VkSamplerCreateInfo =
Float
type FieldOptional "minLod" VkSamplerCreateInfo = 'False
type FieldOffset "minLod" VkSamplerCreateInfo =
(64)
type FieldIsArray "minLod" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (64)
instance
CanReadField "minLod" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (64))
readField p
= peekByteOff p (64)
instance
CanWriteField "minLod" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (64)
instance HasField "maxLod" VkSamplerCreateInfo
where
type FieldType "maxLod" VkSamplerCreateInfo =
Float
type FieldOptional "maxLod" VkSamplerCreateInfo = 'False
type FieldOffset "maxLod" VkSamplerCreateInfo =
(68)
type FieldIsArray "maxLod" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset = (68)
instance
CanReadField "maxLod" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (68))
readField p
= peekByteOff p (68)
instance
CanWriteField "maxLod" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (68)
instance
HasField "borderColor" VkSamplerCreateInfo where
type FieldType "borderColor" VkSamplerCreateInfo = VkBorderColor
type FieldOptional "borderColor" VkSamplerCreateInfo = 'False
type FieldOffset "borderColor" VkSamplerCreateInfo =
(72)
type FieldIsArray "borderColor" VkSamplerCreateInfo = 'False
fieldOptional = False
fieldOffset
= (72)
instance
CanReadField "borderColor" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (72))
readField p
= peekByteOff p (72)
instance
CanWriteField "borderColor" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (72)
instance
HasField "unnormalizedCoordinates" VkSamplerCreateInfo where
type FieldType "unnormalizedCoordinates" VkSamplerCreateInfo =
VkBool32
type FieldOptional "unnormalizedCoordinates" VkSamplerCreateInfo =
'False
type FieldOffset "unnormalizedCoordinates" VkSamplerCreateInfo =
(76)
type FieldIsArray "unnormalizedCoordinates" VkSamplerCreateInfo =
'False
fieldOptional = False
fieldOffset
= (76)
instance
CanReadField "unnormalizedCoordinates" VkSamplerCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (76))
readField p
= peekByteOff p (76)
instance
CanWriteField "unnormalizedCoordinates" VkSamplerCreateInfo where
writeField p
= pokeByteOff p (76)
instance Show VkSamplerCreateInfo where
showsPrec d x
= showString "VkSamplerCreateInfo {" .
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 "magFilter = " .
showsPrec d (getField @"magFilter" x) .
showString ", " .
showString "minFilter = " .
showsPrec d (getField @"minFilter" x) .
showString ", " .
showString "mipmapMode = " .
showsPrec d (getField @"mipmapMode" x) .
showString ", " .
showString "addressModeU = " .
showsPrec d (getField @"addressModeU" x) .
showString ", " .
showString "addressModeV = " .
showsPrec d (getField @"addressModeV" x) .
showString ", " .
showString "addressModeW = " .
showsPrec d
(getField @"addressModeW" x)
.
showString ", " .
showString "mipLodBias = " .
showsPrec d
(getField @"mipLodBias" x)
.
showString ", " .
showString
"anisotropyEnable = "
.
showsPrec d
(getField
@"anisotropyEnable"
x)
.
showString ", " .
showString
"maxAnisotropy = "
.
showsPrec d
(getField
@"maxAnisotropy"
x)
.
showString ", "
.
showString
"compareEnable = "
.
showsPrec d
(getField
@"compareEnable"
x)
.
showString
", "
.
showString
"compareOp = "
.
showsPrec
d
(getField
@"compareOp"
x)
.
showString
", "
.
showString
"minLod = "
.
showsPrec
d
(getField
@"minLod"
x)
.
showString
", "
.
showString
"maxLod = "
.
showsPrec
d
(getField
@"maxLod"
x)
.
showString
", "
.
showString
"borderColor = "
.
showsPrec
d
(getField
@"borderColor"
x)
.
showString
", "
.
showString
"unnormalizedCoordinates = "
.
showsPrec
d
(getField
@"unnormalizedCoordinates"
x)
.
showChar
'}'
data VkSamplerReductionModeCreateInfoEXT = VkSamplerReductionModeCreateInfoEXT# Addr#
ByteArray#
instance Eq VkSamplerReductionModeCreateInfoEXT where
(VkSamplerReductionModeCreateInfoEXT# a _) ==
x@(VkSamplerReductionModeCreateInfoEXT# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkSamplerReductionModeCreateInfoEXT where
(VkSamplerReductionModeCreateInfoEXT# a _) `compare`
x@(VkSamplerReductionModeCreateInfoEXT# b _)
= cmpBytes# (sizeOf x) a b
instance Storable VkSamplerReductionModeCreateInfoEXT where
sizeOf ~_ = (24)
alignment ~_
= (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkSamplerReductionModeCreateInfoEXT
where
unsafeAddr (VkSamplerReductionModeCreateInfoEXT# a _) = a
unsafeByteArray (VkSamplerReductionModeCreateInfoEXT# _ b) = b
unsafeFromByteArrayOffset off b
= VkSamplerReductionModeCreateInfoEXT#
(plusAddr# (byteArrayContents# b) off)
b
instance VulkanMarshal VkSamplerReductionModeCreateInfoEXT where
type StructFields VkSamplerReductionModeCreateInfoEXT =
'["sType", "pNext", "reductionMode"]
type CUnionType VkSamplerReductionModeCreateInfoEXT = 'False
type ReturnedOnly VkSamplerReductionModeCreateInfoEXT = 'False
type StructExtends VkSamplerReductionModeCreateInfoEXT =
'[VkSamplerCreateInfo]
instance
HasField "sType" VkSamplerReductionModeCreateInfoEXT where
type FieldType "sType" VkSamplerReductionModeCreateInfoEXT =
VkStructureType
type FieldOptional "sType" VkSamplerReductionModeCreateInfoEXT =
'False
type FieldOffset "sType" VkSamplerReductionModeCreateInfoEXT =
(0)
type FieldIsArray "sType" VkSamplerReductionModeCreateInfoEXT =
'False
fieldOptional = False
fieldOffset
= (0)
instance
CanReadField "sType" VkSamplerReductionModeCreateInfoEXT where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkSamplerReductionModeCreateInfoEXT where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkSamplerReductionModeCreateInfoEXT where
type FieldType "pNext" VkSamplerReductionModeCreateInfoEXT =
Ptr Void
type FieldOptional "pNext" VkSamplerReductionModeCreateInfoEXT =
'False
type FieldOffset "pNext" VkSamplerReductionModeCreateInfoEXT =
(8)
type FieldIsArray "pNext" VkSamplerReductionModeCreateInfoEXT =
'False
fieldOptional = False
fieldOffset
= (8)
instance
CanReadField "pNext" VkSamplerReductionModeCreateInfoEXT where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkSamplerReductionModeCreateInfoEXT where
writeField p
= pokeByteOff p (8)
instance
HasField "reductionMode" VkSamplerReductionModeCreateInfoEXT where
type FieldType "reductionMode" VkSamplerReductionModeCreateInfoEXT
= VkSamplerReductionModeEXT
type FieldOptional "reductionMode"
VkSamplerReductionModeCreateInfoEXT
= 'False
type FieldOffset "reductionMode"
VkSamplerReductionModeCreateInfoEXT
=
(16)
type FieldIsArray "reductionMode"
VkSamplerReductionModeCreateInfoEXT
= 'False
fieldOptional = False
fieldOffset
= (16)
instance
CanReadField "reductionMode" VkSamplerReductionModeCreateInfoEXT
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "reductionMode" VkSamplerReductionModeCreateInfoEXT
where
writeField p
= pokeByteOff p (16)
instance Show VkSamplerReductionModeCreateInfoEXT where
showsPrec d x
= showString "VkSamplerReductionModeCreateInfoEXT {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "reductionMode = " .
showsPrec d (getField @"reductionMode" x) . showChar '}'
data VkSamplerYcbcrConversionCreateInfo = VkSamplerYcbcrConversionCreateInfo# Addr#
ByteArray#
instance Eq VkSamplerYcbcrConversionCreateInfo where
(VkSamplerYcbcrConversionCreateInfo# a _) ==
x@(VkSamplerYcbcrConversionCreateInfo# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkSamplerYcbcrConversionCreateInfo where
(VkSamplerYcbcrConversionCreateInfo# a _) `compare`
x@(VkSamplerYcbcrConversionCreateInfo# b _)
= cmpBytes# (sizeOf x) a b
instance Storable VkSamplerYcbcrConversionCreateInfo where
sizeOf ~_ = (64)
alignment ~_
= (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkSamplerYcbcrConversionCreateInfo where
unsafeAddr (VkSamplerYcbcrConversionCreateInfo# a _) = a
unsafeByteArray (VkSamplerYcbcrConversionCreateInfo# _ b) = b
unsafeFromByteArrayOffset off b
= VkSamplerYcbcrConversionCreateInfo#
(plusAddr# (byteArrayContents# b) off)
b
instance VulkanMarshal VkSamplerYcbcrConversionCreateInfo where
type StructFields VkSamplerYcbcrConversionCreateInfo =
'["sType", "pNext", "format", "ycbcrModel", "ycbcrRange",
"components", "xChromaOffset", "yChromaOffset", "chromaFilter",
"forceExplicitReconstruction"]
type CUnionType VkSamplerYcbcrConversionCreateInfo = 'False
type ReturnedOnly VkSamplerYcbcrConversionCreateInfo = 'False
type StructExtends VkSamplerYcbcrConversionCreateInfo = '[]
instance
HasField "sType" VkSamplerYcbcrConversionCreateInfo where
type FieldType "sType" VkSamplerYcbcrConversionCreateInfo =
VkStructureType
type FieldOptional "sType" VkSamplerYcbcrConversionCreateInfo =
'False
type FieldOffset "sType" VkSamplerYcbcrConversionCreateInfo =
(0)
type FieldIsArray "sType" VkSamplerYcbcrConversionCreateInfo =
'False
fieldOptional = False
fieldOffset
= (0)
instance
CanReadField "sType" VkSamplerYcbcrConversionCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkSamplerYcbcrConversionCreateInfo where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkSamplerYcbcrConversionCreateInfo where
type FieldType "pNext" VkSamplerYcbcrConversionCreateInfo =
Ptr Void
type FieldOptional "pNext" VkSamplerYcbcrConversionCreateInfo =
'False
type FieldOffset "pNext" VkSamplerYcbcrConversionCreateInfo =
(8)
type FieldIsArray "pNext" VkSamplerYcbcrConversionCreateInfo =
'False
fieldOptional = False
fieldOffset
= (8)
instance
CanReadField "pNext" VkSamplerYcbcrConversionCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkSamplerYcbcrConversionCreateInfo where
writeField p
= pokeByteOff p (8)
instance
HasField "format" VkSamplerYcbcrConversionCreateInfo where
type FieldType "format" VkSamplerYcbcrConversionCreateInfo =
VkFormat
type FieldOptional "format" VkSamplerYcbcrConversionCreateInfo =
'False
type FieldOffset "format" VkSamplerYcbcrConversionCreateInfo =
(16)
type FieldIsArray "format" VkSamplerYcbcrConversionCreateInfo =
'False
fieldOptional = False
fieldOffset
= (16)
instance
CanReadField "format" VkSamplerYcbcrConversionCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "format" VkSamplerYcbcrConversionCreateInfo where
writeField p
= pokeByteOff p (16)
instance
HasField "ycbcrModel" VkSamplerYcbcrConversionCreateInfo where
type FieldType "ycbcrModel" VkSamplerYcbcrConversionCreateInfo =
VkSamplerYcbcrModelConversion
type FieldOptional "ycbcrModel" VkSamplerYcbcrConversionCreateInfo
= 'False
type FieldOffset "ycbcrModel" VkSamplerYcbcrConversionCreateInfo =
(20)
type FieldIsArray "ycbcrModel" VkSamplerYcbcrConversionCreateInfo =
'False
fieldOptional = False
fieldOffset
= (20)
instance
CanReadField "ycbcrModel" VkSamplerYcbcrConversionCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (20))
readField p
= peekByteOff p (20)
instance
CanWriteField "ycbcrModel" VkSamplerYcbcrConversionCreateInfo where
writeField p
= pokeByteOff p (20)
instance
HasField "ycbcrRange" VkSamplerYcbcrConversionCreateInfo where
type FieldType "ycbcrRange" VkSamplerYcbcrConversionCreateInfo =
VkSamplerYcbcrRange
type FieldOptional "ycbcrRange" VkSamplerYcbcrConversionCreateInfo
= 'False
type FieldOffset "ycbcrRange" VkSamplerYcbcrConversionCreateInfo =
(24)
type FieldIsArray "ycbcrRange" VkSamplerYcbcrConversionCreateInfo =
'False
fieldOptional = False
fieldOffset
= (24)
instance
CanReadField "ycbcrRange" VkSamplerYcbcrConversionCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (24))
readField p
= peekByteOff p (24)
instance
CanWriteField "ycbcrRange" VkSamplerYcbcrConversionCreateInfo where
writeField p
= pokeByteOff p (24)
instance
HasField "components" VkSamplerYcbcrConversionCreateInfo where
type FieldType "components" VkSamplerYcbcrConversionCreateInfo =
VkComponentMapping
type FieldOptional "components" VkSamplerYcbcrConversionCreateInfo
= 'False
type FieldOffset "components" VkSamplerYcbcrConversionCreateInfo =
(28)
type FieldIsArray "components" VkSamplerYcbcrConversionCreateInfo =
'False
fieldOptional = False
fieldOffset
= (28)
instance
CanReadField "components" VkSamplerYcbcrConversionCreateInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (28))
readField p
= peekByteOff p (28)
instance
CanWriteField "components" VkSamplerYcbcrConversionCreateInfo where
writeField p
= pokeByteOff p (28)
instance
HasField "xChromaOffset" VkSamplerYcbcrConversionCreateInfo where
type FieldType "xChromaOffset" VkSamplerYcbcrConversionCreateInfo =
VkChromaLocation
type FieldOptional "xChromaOffset"
VkSamplerYcbcrConversionCreateInfo
= 'False
type FieldOffset "xChromaOffset" VkSamplerYcbcrConversionCreateInfo
=
(44)
type FieldIsArray "xChromaOffset"
VkSamplerYcbcrConversionCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (44)
instance
CanReadField "xChromaOffset" VkSamplerYcbcrConversionCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (44))
readField p
= peekByteOff p (44)
instance
CanWriteField "xChromaOffset" VkSamplerYcbcrConversionCreateInfo
where
writeField p
= pokeByteOff p (44)
instance
HasField "yChromaOffset" VkSamplerYcbcrConversionCreateInfo where
type FieldType "yChromaOffset" VkSamplerYcbcrConversionCreateInfo =
VkChromaLocation
type FieldOptional "yChromaOffset"
VkSamplerYcbcrConversionCreateInfo
= 'False
type FieldOffset "yChromaOffset" VkSamplerYcbcrConversionCreateInfo
=
(48)
type FieldIsArray "yChromaOffset"
VkSamplerYcbcrConversionCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (48)
instance
CanReadField "yChromaOffset" VkSamplerYcbcrConversionCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (48))
readField p
= peekByteOff p (48)
instance
CanWriteField "yChromaOffset" VkSamplerYcbcrConversionCreateInfo
where
writeField p
= pokeByteOff p (48)
instance
HasField "chromaFilter" VkSamplerYcbcrConversionCreateInfo where
type FieldType "chromaFilter" VkSamplerYcbcrConversionCreateInfo =
VkFilter
type FieldOptional "chromaFilter"
VkSamplerYcbcrConversionCreateInfo
= 'False
type FieldOffset "chromaFilter" VkSamplerYcbcrConversionCreateInfo
=
(52)
type FieldIsArray "chromaFilter" VkSamplerYcbcrConversionCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (52)
instance
CanReadField "chromaFilter" VkSamplerYcbcrConversionCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (52))
readField p
= peekByteOff p (52)
instance
CanWriteField "chromaFilter" VkSamplerYcbcrConversionCreateInfo
where
writeField p
= pokeByteOff p (52)
instance
HasField "forceExplicitReconstruction"
VkSamplerYcbcrConversionCreateInfo
where
type FieldType "forceExplicitReconstruction"
VkSamplerYcbcrConversionCreateInfo
= VkBool32
type FieldOptional "forceExplicitReconstruction"
VkSamplerYcbcrConversionCreateInfo
= 'False
type FieldOffset "forceExplicitReconstruction"
VkSamplerYcbcrConversionCreateInfo
=
(56)
type FieldIsArray "forceExplicitReconstruction"
VkSamplerYcbcrConversionCreateInfo
= 'False
fieldOptional = False
fieldOffset
= (56)
instance
CanReadField "forceExplicitReconstruction"
VkSamplerYcbcrConversionCreateInfo
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (56))
readField p
= peekByteOff p (56)
instance
CanWriteField "forceExplicitReconstruction"
VkSamplerYcbcrConversionCreateInfo
where
writeField p
= pokeByteOff p (56)
instance Show VkSamplerYcbcrConversionCreateInfo where
showsPrec d x
= showString "VkSamplerYcbcrConversionCreateInfo {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "format = " .
showsPrec d (getField @"format" x) .
showString ", " .
showString "ycbcrModel = " .
showsPrec d (getField @"ycbcrModel" x) .
showString ", " .
showString "ycbcrRange = " .
showsPrec d (getField @"ycbcrRange" x) .
showString ", " .
showString "components = " .
showsPrec d (getField @"components" x) .
showString ", " .
showString "xChromaOffset = " .
showsPrec d (getField @"xChromaOffset" x) .
showString ", " .
showString "yChromaOffset = " .
showsPrec d (getField @"yChromaOffset" x)
.
showString ", " .
showString "chromaFilter = " .
showsPrec d
(getField @"chromaFilter" x)
.
showString ", " .
showString
"forceExplicitReconstruction = "
.
showsPrec d
(getField
@"forceExplicitReconstruction"
x)
. showChar '}'
type VkSamplerYcbcrConversionCreateInfoKHR =
VkSamplerYcbcrConversionCreateInfo
data VkSamplerYcbcrConversionImageFormatProperties = VkSamplerYcbcrConversionImageFormatProperties# Addr#
ByteArray#
instance Eq VkSamplerYcbcrConversionImageFormatProperties where
(VkSamplerYcbcrConversionImageFormatProperties# a _) ==
x@(VkSamplerYcbcrConversionImageFormatProperties# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkSamplerYcbcrConversionImageFormatProperties where
(VkSamplerYcbcrConversionImageFormatProperties# a _) `compare`
x@(VkSamplerYcbcrConversionImageFormatProperties# b _)
= cmpBytes# (sizeOf x) a b
instance Storable VkSamplerYcbcrConversionImageFormatProperties
where
sizeOf ~_
= (24)
alignment ~_
= (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim
VkSamplerYcbcrConversionImageFormatProperties
where
unsafeAddr (VkSamplerYcbcrConversionImageFormatProperties# a _) = a
unsafeByteArray
(VkSamplerYcbcrConversionImageFormatProperties# _ b) = b
unsafeFromByteArrayOffset off b
= VkSamplerYcbcrConversionImageFormatProperties#
(plusAddr# (byteArrayContents# b) off)
b
instance VulkanMarshal
VkSamplerYcbcrConversionImageFormatProperties
where
type StructFields VkSamplerYcbcrConversionImageFormatProperties =
'["sType", "pNext", "combinedImageSamplerDescriptorCount"]
type CUnionType VkSamplerYcbcrConversionImageFormatProperties =
'False
type ReturnedOnly VkSamplerYcbcrConversionImageFormatProperties =
'True
type StructExtends VkSamplerYcbcrConversionImageFormatProperties =
'[VkImageFormatProperties2]
instance
HasField "sType" VkSamplerYcbcrConversionImageFormatProperties
where
type FieldType "sType"
VkSamplerYcbcrConversionImageFormatProperties
= VkStructureType
type FieldOptional "sType"
VkSamplerYcbcrConversionImageFormatProperties
= 'False
type FieldOffset "sType"
VkSamplerYcbcrConversionImageFormatProperties
=
(0)
type FieldIsArray "sType"
VkSamplerYcbcrConversionImageFormatProperties
= 'False
fieldOptional = False
fieldOffset
= (0)
instance
CanReadField "sType" VkSamplerYcbcrConversionImageFormatProperties
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkSamplerYcbcrConversionImageFormatProperties
where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkSamplerYcbcrConversionImageFormatProperties
where
type FieldType "pNext"
VkSamplerYcbcrConversionImageFormatProperties
= Ptr Void
type FieldOptional "pNext"
VkSamplerYcbcrConversionImageFormatProperties
= 'False
type FieldOffset "pNext"
VkSamplerYcbcrConversionImageFormatProperties
=
(8)
type FieldIsArray "pNext"
VkSamplerYcbcrConversionImageFormatProperties
= 'False
fieldOptional = False
fieldOffset
= (8)
instance
CanReadField "pNext" VkSamplerYcbcrConversionImageFormatProperties
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkSamplerYcbcrConversionImageFormatProperties
where
writeField p
= pokeByteOff p (8)
instance
HasField "combinedImageSamplerDescriptorCount"
VkSamplerYcbcrConversionImageFormatProperties
where
type FieldType "combinedImageSamplerDescriptorCount"
VkSamplerYcbcrConversionImageFormatProperties
= Word32
type FieldOptional "combinedImageSamplerDescriptorCount"
VkSamplerYcbcrConversionImageFormatProperties
= 'False
type FieldOffset "combinedImageSamplerDescriptorCount"
VkSamplerYcbcrConversionImageFormatProperties
=
(16)
type FieldIsArray "combinedImageSamplerDescriptorCount"
VkSamplerYcbcrConversionImageFormatProperties
= 'False
fieldOptional = False
fieldOffset
= (16)
instance
CanReadField "combinedImageSamplerDescriptorCount"
VkSamplerYcbcrConversionImageFormatProperties
where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "combinedImageSamplerDescriptorCount"
VkSamplerYcbcrConversionImageFormatProperties
where
writeField p
= pokeByteOff p (16)
instance Show VkSamplerYcbcrConversionImageFormatProperties where
showsPrec d x
= showString "VkSamplerYcbcrConversionImageFormatProperties {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "combinedImageSamplerDescriptorCount = " .
showsPrec d (getField @"combinedImageSamplerDescriptorCount" x) .
showChar '}'
type VkSamplerYcbcrConversionImageFormatPropertiesKHR =
VkSamplerYcbcrConversionImageFormatProperties
data VkSamplerYcbcrConversionInfo = VkSamplerYcbcrConversionInfo# Addr#
ByteArray#
instance Eq VkSamplerYcbcrConversionInfo where
(VkSamplerYcbcrConversionInfo# a _) ==
x@(VkSamplerYcbcrConversionInfo# b _)
= EQ == cmpBytes# (sizeOf x) a b
instance Ord VkSamplerYcbcrConversionInfo where
(VkSamplerYcbcrConversionInfo# a _) `compare`
x@(VkSamplerYcbcrConversionInfo# b _) = cmpBytes# (sizeOf x) a b
instance Storable VkSamplerYcbcrConversionInfo where
sizeOf ~_ = (24)
alignment ~_
= (8)
peek = peekVkData#
poke = pokeVkData#
instance VulkanMarshalPrim VkSamplerYcbcrConversionInfo where
unsafeAddr (VkSamplerYcbcrConversionInfo# a _) = a
unsafeByteArray (VkSamplerYcbcrConversionInfo# _ b) = b
unsafeFromByteArrayOffset off b
= VkSamplerYcbcrConversionInfo#
(plusAddr# (byteArrayContents# b) off)
b
instance VulkanMarshal VkSamplerYcbcrConversionInfo where
type StructFields VkSamplerYcbcrConversionInfo =
'["sType", "pNext", "conversion"]
type CUnionType VkSamplerYcbcrConversionInfo = 'False
type ReturnedOnly VkSamplerYcbcrConversionInfo = 'False
type StructExtends VkSamplerYcbcrConversionInfo =
'[VkSamplerCreateInfo, VkImageViewCreateInfo]
instance
HasField "sType" VkSamplerYcbcrConversionInfo where
type FieldType "sType" VkSamplerYcbcrConversionInfo =
VkStructureType
type FieldOptional "sType" VkSamplerYcbcrConversionInfo = 'False
type FieldOffset "sType" VkSamplerYcbcrConversionInfo =
(0)
type FieldIsArray "sType" VkSamplerYcbcrConversionInfo = 'False
fieldOptional = False
fieldOffset
= (0)
instance
CanReadField "sType" VkSamplerYcbcrConversionInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (0))
readField p
= peekByteOff p (0)
instance
CanWriteField "sType" VkSamplerYcbcrConversionInfo where
writeField p
= pokeByteOff p (0)
instance
HasField "pNext" VkSamplerYcbcrConversionInfo where
type FieldType "pNext" VkSamplerYcbcrConversionInfo = Ptr Void
type FieldOptional "pNext" VkSamplerYcbcrConversionInfo = 'False
type FieldOffset "pNext" VkSamplerYcbcrConversionInfo =
(8)
type FieldIsArray "pNext" VkSamplerYcbcrConversionInfo = 'False
fieldOptional = False
fieldOffset
= (8)
instance
CanReadField "pNext" VkSamplerYcbcrConversionInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (8))
readField p
= peekByteOff p (8)
instance
CanWriteField "pNext" VkSamplerYcbcrConversionInfo where
writeField p
= pokeByteOff p (8)
instance
HasField "conversion" VkSamplerYcbcrConversionInfo where
type FieldType "conversion" VkSamplerYcbcrConversionInfo =
VkSamplerYcbcrConversion
type FieldOptional "conversion" VkSamplerYcbcrConversionInfo =
'False
type FieldOffset "conversion" VkSamplerYcbcrConversionInfo =
(16)
type FieldIsArray "conversion" VkSamplerYcbcrConversionInfo =
'False
fieldOptional = False
fieldOffset
= (16)
instance
CanReadField "conversion" VkSamplerYcbcrConversionInfo where
getField x
= unsafeDupablePerformIO
(peekByteOff (unsafePtr x) (16))
readField p
= peekByteOff p (16)
instance
CanWriteField "conversion" VkSamplerYcbcrConversionInfo where
writeField p
= pokeByteOff p (16)
instance Show VkSamplerYcbcrConversionInfo where
showsPrec d x
= showString "VkSamplerYcbcrConversionInfo {" .
showString "sType = " .
showsPrec d (getField @"sType" x) .
showString ", " .
showString "pNext = " .
showsPrec d (getField @"pNext" x) .
showString ", " .
showString "conversion = " .
showsPrec d (getField @"conversion" x) . showChar '}'
type VkSamplerYcbcrConversionInfoKHR = VkSamplerYcbcrConversionInfo