{-# language CPP #-}
-- | = Name
--
-- VK_QCOM_ycbcr_degamma - device extension
--
-- == VK_QCOM_ycbcr_degamma
--
-- [__Name String__]
--     @VK_QCOM_ycbcr_degamma@
--
-- [__Extension Type__]
--     Device extension
--
-- [__Registered Extension Number__]
--     521
--
-- [__Revision__]
--     1
--
-- [__Ratification Status__]
--     Not ratified
--
-- [__Extension and Version Dependencies__]
--     None
--
-- [__Contact__]
--
--     -   Jeff Leger
--         <https://github.com/KhronosGroup/Vulkan-Docs/issues/new?body=[VK_QCOM_ycbcr_degamma] @jackohound%0A*Here describe the issue or question you have about the VK_QCOM_ycbcr_degamma extension* >
--
-- == Other Extension Metadata
--
-- [__Last Modified Date__]
--     2023-07-31
--
-- [__IP Status__]
--     No known IP claims.
--
-- [__Interactions and External Dependencies__]
--     None
--
-- [__Contributors__]
--
--     -   Jeff Leger, Qualcomm
--
--     -   Jonathan Wicks, Qualcomm
--
-- == Description
--
-- This extension allows implementations to expose support for “sRGB EOTF”
-- also known as “sRGB degamma”, used in combination with images using
-- 8-bit Y′CBCR formats. In addition, the degamma can be selectively
-- applied to the Y (luma) or CrCb (chroma).
--
-- @VK_KHR_sampler_ycbcr_conversion@ adds support for Y′CBCR conversion,
-- but allows texture sampling in a non-linear space which can cause
-- artifacts. This extension allows implementations to expose sRGB degamma
-- for Y′CBCR formats, which is performed during texture filtering,
-- allowing texture filtering to operate in a linear space.
--
-- == New Structures
--
-- -   Extending
--     'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2',
--     'Vulkan.Core10.Device.DeviceCreateInfo':
--
--     -   'PhysicalDeviceYcbcrDegammaFeaturesQCOM'
--
-- -   Extending
--     'Vulkan.Core11.Promoted_From_VK_KHR_sampler_ycbcr_conversion.SamplerYcbcrConversionCreateInfo':
--
--     -   'SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM'
--
-- == New Enum Constants
--
-- -   'QCOM_YCBCR_DEGAMMA_EXTENSION_NAME'
--
-- -   'QCOM_YCBCR_DEGAMMA_SPEC_VERSION'
--
-- -   Extending 'Vulkan.Core10.Enums.StructureType.StructureType':
--
--     -   'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_PHYSICAL_DEVICE_YCBCR_DEGAMMA_FEATURES_QCOM'
--
--     -   'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_SAMPLER_YCBCR_CONVERSION_YCBCR_DEGAMMA_CREATE_INFO_QCOM'
--
-- == Issues
--
-- 1) Which Y′CBCR formats support the degamma feature?
--
-- __RESOLVED__: For implementations that support the extension, each
-- format that contains 8-bit R, G, and B components and supports either
-- 'Vulkan.Core10.Enums.FormatFeatureFlagBits.FORMAT_FEATURE_MIDPOINT_CHROMA_SAMPLES_BIT'
-- or
-- 'Vulkan.Core10.Enums.FormatFeatureFlagBits.FORMAT_FEATURE_COSITED_CHROMA_SAMPLES_BIT'
-- must support degamma.
--
-- Since non-compressed Vulkan sRGB formats are already limited to 8-bit
-- components, and since Adreno supports degamma for all 8bit Y′CBCR
-- formats, this extension does not introduce a new VK_FORMAT_FEATURE* bit
-- for the degamma feature.
--
-- 2) On which Y′CBCR components is the degamma applied?
--
-- __RESOLVED__: While degamma is expected to be applied to only the Y
-- (luma) component, the extension provides the ability to selectively
-- enable degamma for both the Y (luma) and\/or CbCr (chroma) components.
--
-- 3) Should degamma be enabled for the sampler object or for the image
-- view object?
--
-- __RESOLVED__: Both. This extension extends
-- 'Vulkan.Core11.Promoted_From_VK_KHR_sampler_ycbcr_conversion.SamplerYcbcrConversionCreateInfo'
-- and the specification already requires that both sampler and view
-- objects must be created with an /identical/
-- 'Vulkan.Core11.Promoted_From_VK_KHR_sampler_ycbcr_conversion.SamplerYcbcrConversionCreateInfo'
-- in their pNext chains.
--
-- 4) Why apply the “sRGB” transfer function directly to Y′CBCR data when
-- it would be more correct to use the “ITU transfer function”, and do so
-- only after the values have been converted into non-linear R’G’B\'?
--
-- __RESOLVED__: Y′CBCR is frequently stored according to standards (e.g.
-- BT.601 and BT.709) that specify that the conversion between linear and
-- non-linear should use the ITU Transfer function. The ITU transfer
-- function is mathematically different from the sRGB transfer function and
-- while sRGB and ITU define similar curves, the difference is significant.
-- Performing the “sRGB degamma” prior to range expansion can introduce
-- artifacts if the content uses
-- 'Vulkan.Core11.Enums.SamplerYcbcrRange.SAMPLER_YCBCR_RANGE_ITU_NARROW'
-- encoding. Nevertheless, using sRGB can make sense for certain use-cases
-- where camera YCbCr images are known to be encoded with sRGB (or a pure
-- gamma 2.2) transfer function and are known to use full-range encoding.
--
-- For those use-cases, this extension leverages the GPU ability to enable
-- sRGB degamma at little cost, and can improve quality because texture
-- filtering is able to occur in linear space.
--
-- == Version History
--
-- -   Revision 1, 2023-07-31 (Jeff Leger)
--
-- == See Also
--
-- 'PhysicalDeviceYcbcrDegammaFeaturesQCOM',
-- 'SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM'
--
-- == Document Notes
--
-- For more information, see the
-- <https://registry.khronos.org/vulkan/specs/1.3-extensions/html/vkspec.html#VK_QCOM_ycbcr_degamma Vulkan Specification>
--
-- This page is a generated document. Fixes and changes should be made to
-- the generator scripts, not directly.
module Vulkan.Extensions.VK_QCOM_ycbcr_degamma  ( PhysicalDeviceYcbcrDegammaFeaturesQCOM(..)
                                                , SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM(..)
                                                , QCOM_YCBCR_DEGAMMA_SPEC_VERSION
                                                , pattern QCOM_YCBCR_DEGAMMA_SPEC_VERSION
                                                , QCOM_YCBCR_DEGAMMA_EXTENSION_NAME
                                                , pattern QCOM_YCBCR_DEGAMMA_EXTENSION_NAME
                                                ) where

import Foreign.Marshal.Alloc (allocaBytes)
import Foreign.Ptr (nullPtr)
import Foreign.Ptr (plusPtr)
import Vulkan.CStruct (FromCStruct)
import Vulkan.CStruct (FromCStruct(..))
import Vulkan.CStruct (ToCStruct)
import Vulkan.CStruct (ToCStruct(..))
import Vulkan.Zero (Zero(..))
import Data.String (IsString)
import Data.Typeable (Typeable)
import Foreign.Storable (Storable)
import Foreign.Storable (Storable(peek))
import Foreign.Storable (Storable(poke))
import qualified Foreign.Storable (Storable(..))
import GHC.Generics (Generic)
import Foreign.Ptr (Ptr)
import Data.Kind (Type)
import Vulkan.Core10.FundamentalTypes (bool32ToBool)
import Vulkan.Core10.FundamentalTypes (boolToBool32)
import Vulkan.Core10.FundamentalTypes (Bool32)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_YCBCR_DEGAMMA_FEATURES_QCOM))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_SAMPLER_YCBCR_CONVERSION_YCBCR_DEGAMMA_CREATE_INFO_QCOM))
-- | VkPhysicalDeviceYcbcrDegammaFeaturesQCOM - Structure describing Y′CBCR
-- degamma features that can be supported by an implementation
--
-- = Members
--
-- This structure describes the following features:
--
-- = Description
--
-- If the 'PhysicalDeviceYcbcrDegammaFeaturesQCOM' 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. 'PhysicalDeviceYcbcrDegammaFeaturesQCOM' /can/ also be used
-- in the @pNext@ chain of 'Vulkan.Core10.Device.DeviceCreateInfo' to
-- selectively enable these features.
--
-- == Valid Usage (Implicit)
--
-- = See Also
--
-- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_QCOM_ycbcr_degamma VK_QCOM_ycbcr_degamma>,
-- 'Vulkan.Core10.FundamentalTypes.Bool32',
-- 'Vulkan.Core10.Enums.StructureType.StructureType'
data PhysicalDeviceYcbcrDegammaFeaturesQCOM = PhysicalDeviceYcbcrDegammaFeaturesQCOM
  { -- | #features-ycbcr-degamma# @ycbcrDegamma@ indicates whether the
    -- implementation supports
    -- <https://registry.khronos.org/vulkan/specs/1.3-extensions/html/vkspec.html#textures-ycbcr-degamma Y′CBCR degamma>.
    PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool
ycbcrDegamma :: Bool }
  deriving (Typeable, PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool
(PhysicalDeviceYcbcrDegammaFeaturesQCOM
 -> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool)
-> (PhysicalDeviceYcbcrDegammaFeaturesQCOM
    -> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool)
-> Eq PhysicalDeviceYcbcrDegammaFeaturesQCOM
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool
== :: PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool
$c/= :: PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool
/= :: PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceYcbcrDegammaFeaturesQCOM)
#endif
deriving instance Show PhysicalDeviceYcbcrDegammaFeaturesQCOM

instance ToCStruct PhysicalDeviceYcbcrDegammaFeaturesQCOM where
  withCStruct :: forall b.
PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> (Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b) -> IO b
withCStruct PhysicalDeviceYcbcrDegammaFeaturesQCOM
x Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b
f = Int -> (Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b) -> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b) -> IO b)
-> (Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b) -> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p -> Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b -> IO b
forall b.
Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p PhysicalDeviceYcbcrDegammaFeaturesQCOM
x (Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b
f Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p)
  pokeCStruct :: forall b.
Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p PhysicalDeviceYcbcrDegammaFeaturesQCOM{Bool
$sel:ycbcrDegamma:PhysicalDeviceYcbcrDegammaFeaturesQCOM :: PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Bool
ycbcrDegamma :: Bool
..} IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_YCBCR_DEGAMMA_FEATURES_QCOM)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> 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 PhysicalDeviceYcbcrDegammaFeaturesQCOM
p Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
ycbcrDegamma))
    IO b
f
  cStructSize :: Int
cStructSize = Int
24
  cStructAlignment :: Int
cStructAlignment = Int
8
  pokeZeroCStruct :: forall b.
Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_YCBCR_DEGAMMA_FEATURES_QCOM)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> 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 PhysicalDeviceYcbcrDegammaFeaturesQCOM
p Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> 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 PhysicalDeviceYcbcrDegammaFeaturesQCOM where
  peekCStruct :: Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> IO PhysicalDeviceYcbcrDegammaFeaturesQCOM
peekCStruct Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p = do
    Bool32
ycbcrDegamma <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
p Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
    PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> IO PhysicalDeviceYcbcrDegammaFeaturesQCOM
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceYcbcrDegammaFeaturesQCOM
 -> IO PhysicalDeviceYcbcrDegammaFeaturesQCOM)
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> IO PhysicalDeviceYcbcrDegammaFeaturesQCOM
forall a b. (a -> b) -> a -> b
$ Bool -> PhysicalDeviceYcbcrDegammaFeaturesQCOM
PhysicalDeviceYcbcrDegammaFeaturesQCOM
             (Bool32 -> Bool
bool32ToBool Bool32
ycbcrDegamma)

instance Storable PhysicalDeviceYcbcrDegammaFeaturesQCOM where
  sizeOf :: PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Int
sizeOf ~PhysicalDeviceYcbcrDegammaFeaturesQCOM
_ = Int
24
  alignment :: PhysicalDeviceYcbcrDegammaFeaturesQCOM -> Int
alignment ~PhysicalDeviceYcbcrDegammaFeaturesQCOM
_ = Int
8
  peek :: Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> IO PhysicalDeviceYcbcrDegammaFeaturesQCOM
peek = Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> IO PhysicalDeviceYcbcrDegammaFeaturesQCOM
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
  poke :: Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO ()
poke Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
poked = Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO () -> IO ()
forall b.
Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
-> PhysicalDeviceYcbcrDegammaFeaturesQCOM -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
ptr PhysicalDeviceYcbcrDegammaFeaturesQCOM
poked (() -> IO ()
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())

instance Zero PhysicalDeviceYcbcrDegammaFeaturesQCOM where
  zero :: PhysicalDeviceYcbcrDegammaFeaturesQCOM
zero = Bool -> PhysicalDeviceYcbcrDegammaFeaturesQCOM
PhysicalDeviceYcbcrDegammaFeaturesQCOM
           Bool
forall a. Zero a => a
zero


-- | VkSamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM - Structure
-- specifying Y′CBCR degamma parameters
--
-- == Valid Usage (Implicit)
--
-- = See Also
--
-- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_QCOM_ycbcr_degamma VK_QCOM_ycbcr_degamma>,
-- 'Vulkan.Core10.FundamentalTypes.Bool32',
-- 'Vulkan.Core10.Enums.StructureType.StructureType'
data SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM = SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
  { -- | @enableYDegamma@ indicates
    -- <https://registry.khronos.org/vulkan/specs/1.3-extensions/html/vkspec.html#textures-ycbcr-degamma sRGB to linear>
    -- conversion is enabled for the G component.
    SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
enableYDegamma :: Bool
  , -- | @enableCbCrDegamma@ indicates
    -- <https://registry.khronos.org/vulkan/specs/1.3-extensions/html/vkspec.html#textures-ycbcr-degamma sRGB to linear>
    -- conversion is enabled for the R and B components.
    SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
enableCbCrDegamma :: Bool
  }
  deriving (Typeable, SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
(SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
 -> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool)
-> (SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
    -> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool)
-> Eq SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
== :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
$c/= :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
/= :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM)
#endif
deriving instance Show SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM

instance ToCStruct SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM where
  withCStruct :: forall b.
SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> (Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b)
-> IO b
withCStruct SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
x Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b
f = Int
-> (Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b)
 -> IO b)
-> (Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p -> Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b -> IO b
forall b.
Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
x (Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b
f Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p)
  pokeCStruct :: forall b.
Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b -> IO b
pokeCStruct Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM{Bool
$sel:enableYDegamma:SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
$sel:enableCbCrDegamma:SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Bool
enableYDegamma :: Bool
enableCbCrDegamma :: Bool
..} IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_SAMPLER_YCBCR_CONVERSION_YCBCR_DEGAMMA_CREATE_INFO_QCOM)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> 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 SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
enableYDegamma))
    Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
enableCbCrDegamma))
    IO b
f
  cStructSize :: Int
cStructSize = Int
24
  cStructAlignment :: Int
cStructAlignment = Int
8
  pokeZeroCStruct :: forall b.
Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> IO b -> IO b
pokeZeroCStruct Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_SAMPLER_YCBCR_CONVERSION_YCBCR_DEGAMMA_CREATE_INFO_QCOM)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> 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 SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> 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 SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> 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))
    IO b
f

instance FromCStruct SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM where
  peekCStruct :: Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> IO SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
peekCStruct Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p = do
    Bool32
enableYDegamma <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
    Bool32
enableCbCrDegamma <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
p Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32))
    SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> IO SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
 -> IO SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM)
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> IO SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
             (Bool32 -> Bool
bool32ToBool Bool32
enableYDegamma) (Bool32 -> Bool
bool32ToBool Bool32
enableCbCrDegamma)

instance Storable SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM where
  sizeOf :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Int
sizeOf ~SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
_ = Int
24
  alignment :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> Int
alignment ~SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
_ = Int
8
  peek :: Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> IO SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
peek = Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> IO SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
  poke :: Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO ()
poke Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
poked = Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> IO ()
-> IO ()
forall b.
Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
-> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
ptr SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
poked (() -> IO ()
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())

instance Zero SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM where
  zero :: SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
zero = Bool -> Bool -> SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
SamplerYcbcrConversionYcbcrDegammaCreateInfoQCOM
           Bool
forall a. Zero a => a
zero
           Bool
forall a. Zero a => a
zero


type QCOM_YCBCR_DEGAMMA_SPEC_VERSION = 1

-- No documentation found for TopLevel "VK_QCOM_YCBCR_DEGAMMA_SPEC_VERSION"
pattern QCOM_YCBCR_DEGAMMA_SPEC_VERSION :: forall a . Integral a => a
pattern $bQCOM_YCBCR_DEGAMMA_SPEC_VERSION :: forall a. Integral a => a
$mQCOM_YCBCR_DEGAMMA_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
QCOM_YCBCR_DEGAMMA_SPEC_VERSION = 1


type QCOM_YCBCR_DEGAMMA_EXTENSION_NAME = "VK_QCOM_ycbcr_degamma"

-- No documentation found for TopLevel "VK_QCOM_YCBCR_DEGAMMA_EXTENSION_NAME"
pattern QCOM_YCBCR_DEGAMMA_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bQCOM_YCBCR_DEGAMMA_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
$mQCOM_YCBCR_DEGAMMA_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
QCOM_YCBCR_DEGAMMA_EXTENSION_NAME = "VK_QCOM_ycbcr_degamma"