{-# language CPP #-}
module Vulkan.Extensions.VK_EXT_multisampled_render_to_single_sampled ( PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT(..)
, SubpassResolvePerformanceQueryEXT(..)
, MultisampledRenderToSingleSampledInfoEXT(..)
, EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_SPEC_VERSION
, pattern EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_SPEC_VERSION
, EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_EXTENSION_NAME
, pattern EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_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.SampleCountFlagBits (SampleCountFlagBits)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_INFO_EXT))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_FEATURES_EXT))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_SUBPASS_RESOLVE_PERFORMANCE_QUERY_EXT))
data PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT = PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
{
PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT -> Bool
multisampledRenderToSingleSampled :: Bool }
deriving (Typeable, PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> Bool
$c/= :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> Bool
== :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> Bool
$c== :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT)
#endif
deriving instance Show PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
instance ToCStruct PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT where
withCStruct :: forall b.
PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> (Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO b)
-> IO b
withCStruct PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
x Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
x (Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO b
f Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO b
-> IO b
pokeCStruct Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT{Bool
multisampledRenderToSingleSampled :: Bool
$sel:multisampledRenderToSingleSampled:PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT -> Bool
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_FEATURES_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
multisampledRenderToSingleSampled))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_FEATURES_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT where
peekCStruct :: Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
peekCStruct Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p = do
Bool32
multisampledRenderToSingleSampled <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ Bool -> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
(Bool32 -> Bool
bool32ToBool Bool32
multisampledRenderToSingleSampled)
instance Storable PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT where
sizeOf :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT -> Int
sizeOf ~PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
_ = Int
24
alignment :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT -> Int
alignment ~PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
_ = Int
8
peek :: Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
-> IO ()
poke Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
ptr PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT where
zero :: PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
zero = Bool -> PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
PhysicalDeviceMultisampledRenderToSingleSampledFeaturesEXT
forall a. Zero a => a
zero
data SubpassResolvePerformanceQueryEXT = SubpassResolvePerformanceQueryEXT
{
SubpassResolvePerformanceQueryEXT -> Bool
optimal :: Bool }
deriving (Typeable, SubpassResolvePerformanceQueryEXT
-> SubpassResolvePerformanceQueryEXT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SubpassResolvePerformanceQueryEXT
-> SubpassResolvePerformanceQueryEXT -> Bool
$c/= :: SubpassResolvePerformanceQueryEXT
-> SubpassResolvePerformanceQueryEXT -> Bool
== :: SubpassResolvePerformanceQueryEXT
-> SubpassResolvePerformanceQueryEXT -> Bool
$c== :: SubpassResolvePerformanceQueryEXT
-> SubpassResolvePerformanceQueryEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (SubpassResolvePerformanceQueryEXT)
#endif
deriving instance Show SubpassResolvePerformanceQueryEXT
instance ToCStruct SubpassResolvePerformanceQueryEXT where
withCStruct :: forall b.
SubpassResolvePerformanceQueryEXT
-> (Ptr SubpassResolvePerformanceQueryEXT -> IO b) -> IO b
withCStruct SubpassResolvePerformanceQueryEXT
x Ptr SubpassResolvePerformanceQueryEXT -> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 forall a b. (a -> b) -> a -> b
$ \Ptr SubpassResolvePerformanceQueryEXT
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr SubpassResolvePerformanceQueryEXT
p SubpassResolvePerformanceQueryEXT
x (Ptr SubpassResolvePerformanceQueryEXT -> IO b
f Ptr SubpassResolvePerformanceQueryEXT
p)
pokeCStruct :: forall b.
Ptr SubpassResolvePerformanceQueryEXT
-> SubpassResolvePerformanceQueryEXT -> IO b -> IO b
pokeCStruct Ptr SubpassResolvePerformanceQueryEXT
p SubpassResolvePerformanceQueryEXT{Bool
optimal :: Bool
$sel:optimal:SubpassResolvePerformanceQueryEXT :: SubpassResolvePerformanceQueryEXT -> Bool
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SubpassResolvePerformanceQueryEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_SUBPASS_RESOLVE_PERFORMANCE_QUERY_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SubpassResolvePerformanceQueryEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SubpassResolvePerformanceQueryEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
optimal))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b. Ptr SubpassResolvePerformanceQueryEXT -> IO b -> IO b
pokeZeroCStruct Ptr SubpassResolvePerformanceQueryEXT
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SubpassResolvePerformanceQueryEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_SUBPASS_RESOLVE_PERFORMANCE_QUERY_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SubpassResolvePerformanceQueryEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SubpassResolvePerformanceQueryEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (forall a. Zero a => a
zero))
IO b
f
instance FromCStruct SubpassResolvePerformanceQueryEXT where
peekCStruct :: Ptr SubpassResolvePerformanceQueryEXT
-> IO SubpassResolvePerformanceQueryEXT
peekCStruct Ptr SubpassResolvePerformanceQueryEXT
p = do
Bool32
optimal <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr SubpassResolvePerformanceQueryEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ Bool -> SubpassResolvePerformanceQueryEXT
SubpassResolvePerformanceQueryEXT
(Bool32 -> Bool
bool32ToBool Bool32
optimal)
instance Storable SubpassResolvePerformanceQueryEXT where
sizeOf :: SubpassResolvePerformanceQueryEXT -> Int
sizeOf ~SubpassResolvePerformanceQueryEXT
_ = Int
24
alignment :: SubpassResolvePerformanceQueryEXT -> Int
alignment ~SubpassResolvePerformanceQueryEXT
_ = Int
8
peek :: Ptr SubpassResolvePerformanceQueryEXT
-> IO SubpassResolvePerformanceQueryEXT
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr SubpassResolvePerformanceQueryEXT
-> SubpassResolvePerformanceQueryEXT -> IO ()
poke Ptr SubpassResolvePerformanceQueryEXT
ptr SubpassResolvePerformanceQueryEXT
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr SubpassResolvePerformanceQueryEXT
ptr SubpassResolvePerformanceQueryEXT
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero SubpassResolvePerformanceQueryEXT where
zero :: SubpassResolvePerformanceQueryEXT
zero = Bool -> SubpassResolvePerformanceQueryEXT
SubpassResolvePerformanceQueryEXT
forall a. Zero a => a
zero
data MultisampledRenderToSingleSampledInfoEXT = MultisampledRenderToSingleSampledInfoEXT
{
MultisampledRenderToSingleSampledInfoEXT -> Bool
multisampledRenderToSingleSampledEnable :: Bool
,
MultisampledRenderToSingleSampledInfoEXT -> SampleCountFlagBits
rasterizationSamples :: SampleCountFlagBits
}
deriving (Typeable, MultisampledRenderToSingleSampledInfoEXT
-> MultisampledRenderToSingleSampledInfoEXT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MultisampledRenderToSingleSampledInfoEXT
-> MultisampledRenderToSingleSampledInfoEXT -> Bool
$c/= :: MultisampledRenderToSingleSampledInfoEXT
-> MultisampledRenderToSingleSampledInfoEXT -> Bool
== :: MultisampledRenderToSingleSampledInfoEXT
-> MultisampledRenderToSingleSampledInfoEXT -> Bool
$c== :: MultisampledRenderToSingleSampledInfoEXT
-> MultisampledRenderToSingleSampledInfoEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (MultisampledRenderToSingleSampledInfoEXT)
#endif
deriving instance Show MultisampledRenderToSingleSampledInfoEXT
instance ToCStruct MultisampledRenderToSingleSampledInfoEXT where
withCStruct :: forall b.
MultisampledRenderToSingleSampledInfoEXT
-> (Ptr MultisampledRenderToSingleSampledInfoEXT -> IO b) -> IO b
withCStruct MultisampledRenderToSingleSampledInfoEXT
x Ptr MultisampledRenderToSingleSampledInfoEXT -> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 forall a b. (a -> b) -> a -> b
$ \Ptr MultisampledRenderToSingleSampledInfoEXT
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr MultisampledRenderToSingleSampledInfoEXT
p MultisampledRenderToSingleSampledInfoEXT
x (Ptr MultisampledRenderToSingleSampledInfoEXT -> IO b
f Ptr MultisampledRenderToSingleSampledInfoEXT
p)
pokeCStruct :: forall b.
Ptr MultisampledRenderToSingleSampledInfoEXT
-> MultisampledRenderToSingleSampledInfoEXT -> IO b -> IO b
pokeCStruct Ptr MultisampledRenderToSingleSampledInfoEXT
p MultisampledRenderToSingleSampledInfoEXT{Bool
SampleCountFlagBits
rasterizationSamples :: SampleCountFlagBits
multisampledRenderToSingleSampledEnable :: Bool
$sel:rasterizationSamples:MultisampledRenderToSingleSampledInfoEXT :: MultisampledRenderToSingleSampledInfoEXT -> SampleCountFlagBits
$sel:multisampledRenderToSingleSampledEnable:MultisampledRenderToSingleSampledInfoEXT :: MultisampledRenderToSingleSampledInfoEXT -> Bool
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_INFO_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
multisampledRenderToSingleSampledEnable))
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr SampleCountFlagBits)) (SampleCountFlagBits
rasterizationSamples)
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr MultisampledRenderToSingleSampledInfoEXT -> IO b -> IO b
pokeZeroCStruct Ptr MultisampledRenderToSingleSampledInfoEXT
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_INFO_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (forall a. Zero a => a
zero))
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr SampleCountFlagBits)) (forall a. Zero a => a
zero)
IO b
f
instance FromCStruct MultisampledRenderToSingleSampledInfoEXT where
peekCStruct :: Ptr MultisampledRenderToSingleSampledInfoEXT
-> IO MultisampledRenderToSingleSampledInfoEXT
peekCStruct Ptr MultisampledRenderToSingleSampledInfoEXT
p = do
Bool32
multisampledRenderToSingleSampledEnable <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
SampleCountFlagBits
rasterizationSamples <- forall a. Storable a => Ptr a -> IO a
peek @SampleCountFlagBits ((Ptr MultisampledRenderToSingleSampledInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr SampleCountFlagBits))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ Bool
-> SampleCountFlagBits -> MultisampledRenderToSingleSampledInfoEXT
MultisampledRenderToSingleSampledInfoEXT
(Bool32 -> Bool
bool32ToBool Bool32
multisampledRenderToSingleSampledEnable)
SampleCountFlagBits
rasterizationSamples
instance Storable MultisampledRenderToSingleSampledInfoEXT where
sizeOf :: MultisampledRenderToSingleSampledInfoEXT -> Int
sizeOf ~MultisampledRenderToSingleSampledInfoEXT
_ = Int
24
alignment :: MultisampledRenderToSingleSampledInfoEXT -> Int
alignment ~MultisampledRenderToSingleSampledInfoEXT
_ = Int
8
peek :: Ptr MultisampledRenderToSingleSampledInfoEXT
-> IO MultisampledRenderToSingleSampledInfoEXT
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr MultisampledRenderToSingleSampledInfoEXT
-> MultisampledRenderToSingleSampledInfoEXT -> IO ()
poke Ptr MultisampledRenderToSingleSampledInfoEXT
ptr MultisampledRenderToSingleSampledInfoEXT
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr MultisampledRenderToSingleSampledInfoEXT
ptr MultisampledRenderToSingleSampledInfoEXT
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero MultisampledRenderToSingleSampledInfoEXT where
zero :: MultisampledRenderToSingleSampledInfoEXT
zero = Bool
-> SampleCountFlagBits -> MultisampledRenderToSingleSampledInfoEXT
MultisampledRenderToSingleSampledInfoEXT
forall a. Zero a => a
zero
forall a. Zero a => a
zero
type EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_SPEC_VERSION = 1
pattern EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_SPEC_VERSION :: forall a . Integral a => a
pattern $bEXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_SPEC_VERSION :: forall a. Integral a => a
$mEXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_SPEC_VERSION = 1
type EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_EXTENSION_NAME = "VK_EXT_multisampled_render_to_single_sampled"
pattern EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bEXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
$mEXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
EXT_MULTISAMPLED_RENDER_TO_SINGLE_SAMPLED_EXTENSION_NAME = "VK_EXT_multisampled_render_to_single_sampled"