{-# language CPP #-}
module Vulkan.Core10.Enums.VertexInputRate  (VertexInputRate( VERTEX_INPUT_RATE_VERTEX
                                                            , VERTEX_INPUT_RATE_INSTANCE
                                                            , ..
                                                            )) where

import GHC.Read (choose)
import GHC.Read (expectP)
import GHC.Read (parens)
import GHC.Show (showParen)
import GHC.Show (showString)
import GHC.Show (showsPrec)
import Text.ParserCombinators.ReadPrec ((+++))
import Text.ParserCombinators.ReadPrec (prec)
import Text.ParserCombinators.ReadPrec (step)
import Foreign.Storable (Storable)
import Data.Int (Int32)
import GHC.Read (Read(readPrec))
import Text.Read.Lex (Lexeme(Ident))
import Vulkan.Zero (Zero)
-- | VkVertexInputRate - Specify rate at which vertex attributes are pulled
-- from buffers
--
-- = See Also
--
-- 'Vulkan.Core10.Pipeline.VertexInputBindingDescription'
newtype VertexInputRate = VertexInputRate Int32
  deriving newtype (VertexInputRate -> VertexInputRate -> Bool
(VertexInputRate -> VertexInputRate -> Bool)
-> (VertexInputRate -> VertexInputRate -> Bool)
-> Eq VertexInputRate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VertexInputRate -> VertexInputRate -> Bool
$c/= :: VertexInputRate -> VertexInputRate -> Bool
== :: VertexInputRate -> VertexInputRate -> Bool
$c== :: VertexInputRate -> VertexInputRate -> Bool
Eq, Eq VertexInputRate
Eq VertexInputRate =>
(VertexInputRate -> VertexInputRate -> Ordering)
-> (VertexInputRate -> VertexInputRate -> Bool)
-> (VertexInputRate -> VertexInputRate -> Bool)
-> (VertexInputRate -> VertexInputRate -> Bool)
-> (VertexInputRate -> VertexInputRate -> Bool)
-> (VertexInputRate -> VertexInputRate -> VertexInputRate)
-> (VertexInputRate -> VertexInputRate -> VertexInputRate)
-> Ord VertexInputRate
VertexInputRate -> VertexInputRate -> Bool
VertexInputRate -> VertexInputRate -> Ordering
VertexInputRate -> VertexInputRate -> VertexInputRate
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: VertexInputRate -> VertexInputRate -> VertexInputRate
$cmin :: VertexInputRate -> VertexInputRate -> VertexInputRate
max :: VertexInputRate -> VertexInputRate -> VertexInputRate
$cmax :: VertexInputRate -> VertexInputRate -> VertexInputRate
>= :: VertexInputRate -> VertexInputRate -> Bool
$c>= :: VertexInputRate -> VertexInputRate -> Bool
> :: VertexInputRate -> VertexInputRate -> Bool
$c> :: VertexInputRate -> VertexInputRate -> Bool
<= :: VertexInputRate -> VertexInputRate -> Bool
$c<= :: VertexInputRate -> VertexInputRate -> Bool
< :: VertexInputRate -> VertexInputRate -> Bool
$c< :: VertexInputRate -> VertexInputRate -> Bool
compare :: VertexInputRate -> VertexInputRate -> Ordering
$ccompare :: VertexInputRate -> VertexInputRate -> Ordering
$cp1Ord :: Eq VertexInputRate
Ord, Ptr b -> Int -> IO VertexInputRate
Ptr b -> Int -> VertexInputRate -> IO ()
Ptr VertexInputRate -> IO VertexInputRate
Ptr VertexInputRate -> Int -> IO VertexInputRate
Ptr VertexInputRate -> Int -> VertexInputRate -> IO ()
Ptr VertexInputRate -> VertexInputRate -> IO ()
VertexInputRate -> Int
(VertexInputRate -> Int)
-> (VertexInputRate -> Int)
-> (Ptr VertexInputRate -> Int -> IO VertexInputRate)
-> (Ptr VertexInputRate -> Int -> VertexInputRate -> IO ())
-> (forall b. Ptr b -> Int -> IO VertexInputRate)
-> (forall b. Ptr b -> Int -> VertexInputRate -> IO ())
-> (Ptr VertexInputRate -> IO VertexInputRate)
-> (Ptr VertexInputRate -> VertexInputRate -> IO ())
-> Storable VertexInputRate
forall b. Ptr b -> Int -> IO VertexInputRate
forall b. Ptr b -> Int -> VertexInputRate -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
poke :: Ptr VertexInputRate -> VertexInputRate -> IO ()
$cpoke :: Ptr VertexInputRate -> VertexInputRate -> IO ()
peek :: Ptr VertexInputRate -> IO VertexInputRate
$cpeek :: Ptr VertexInputRate -> IO VertexInputRate
pokeByteOff :: Ptr b -> Int -> VertexInputRate -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VertexInputRate -> IO ()
peekByteOff :: Ptr b -> Int -> IO VertexInputRate
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VertexInputRate
pokeElemOff :: Ptr VertexInputRate -> Int -> VertexInputRate -> IO ()
$cpokeElemOff :: Ptr VertexInputRate -> Int -> VertexInputRate -> IO ()
peekElemOff :: Ptr VertexInputRate -> Int -> IO VertexInputRate
$cpeekElemOff :: Ptr VertexInputRate -> Int -> IO VertexInputRate
alignment :: VertexInputRate -> Int
$calignment :: VertexInputRate -> Int
sizeOf :: VertexInputRate -> Int
$csizeOf :: VertexInputRate -> Int
Storable, VertexInputRate
VertexInputRate -> Zero VertexInputRate
forall a. a -> Zero a
zero :: VertexInputRate
$czero :: VertexInputRate
Zero)

-- | 'VERTEX_INPUT_RATE_VERTEX' specifies that vertex attribute addressing is
-- a function of the vertex index.
pattern $bVERTEX_INPUT_RATE_VERTEX :: VertexInputRate
$mVERTEX_INPUT_RATE_VERTEX :: forall r. VertexInputRate -> (Void# -> r) -> (Void# -> r) -> r
VERTEX_INPUT_RATE_VERTEX = VertexInputRate 0
-- | 'VERTEX_INPUT_RATE_INSTANCE' specifies that vertex attribute addressing
-- is a function of the instance index.
pattern $bVERTEX_INPUT_RATE_INSTANCE :: VertexInputRate
$mVERTEX_INPUT_RATE_INSTANCE :: forall r. VertexInputRate -> (Void# -> r) -> (Void# -> r) -> r
VERTEX_INPUT_RATE_INSTANCE = VertexInputRate 1
{-# complete VERTEX_INPUT_RATE_VERTEX,
             VERTEX_INPUT_RATE_INSTANCE :: VertexInputRate #-}

instance Show VertexInputRate where
  showsPrec :: Int -> VertexInputRate -> ShowS
showsPrec p :: Int
p = \case
    VERTEX_INPUT_RATE_VERTEX -> String -> ShowS
showString "VERTEX_INPUT_RATE_VERTEX"
    VERTEX_INPUT_RATE_INSTANCE -> String -> ShowS
showString "VERTEX_INPUT_RATE_INSTANCE"
    VertexInputRate x :: Int32
x -> Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= 11) (String -> ShowS
showString "VertexInputRate " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec 11 Int32
x)

instance Read VertexInputRate where
  readPrec :: ReadPrec VertexInputRate
readPrec = ReadPrec VertexInputRate -> ReadPrec VertexInputRate
forall a. ReadPrec a -> ReadPrec a
parens ([(String, ReadPrec VertexInputRate)] -> ReadPrec VertexInputRate
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose [("VERTEX_INPUT_RATE_VERTEX", VertexInputRate -> ReadPrec VertexInputRate
forall (f :: * -> *) a. Applicative f => a -> f a
pure VertexInputRate
VERTEX_INPUT_RATE_VERTEX)
                            , ("VERTEX_INPUT_RATE_INSTANCE", VertexInputRate -> ReadPrec VertexInputRate
forall (f :: * -> *) a. Applicative f => a -> f a
pure VertexInputRate
VERTEX_INPUT_RATE_INSTANCE)]
                     ReadPrec VertexInputRate
-> ReadPrec VertexInputRate -> ReadPrec VertexInputRate
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
                     Int -> ReadPrec VertexInputRate -> ReadPrec VertexInputRate
forall a. Int -> ReadPrec a -> ReadPrec a
prec 10 (do
                       Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident "VertexInputRate")
                       Int32
v <- ReadPrec Int32 -> ReadPrec Int32
forall a. ReadPrec a -> ReadPrec a
step ReadPrec Int32
forall a. Read a => ReadPrec a
readPrec
                       VertexInputRate -> ReadPrec VertexInputRate
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Int32 -> VertexInputRate
VertexInputRate Int32
v)))