{-# language CPP #-} module Vulkan.Core10.Enums.LogicOp (LogicOp( LOGIC_OP_CLEAR , LOGIC_OP_AND , LOGIC_OP_AND_REVERSE , LOGIC_OP_COPY , LOGIC_OP_AND_INVERTED , LOGIC_OP_NO_OP , LOGIC_OP_XOR , LOGIC_OP_OR , LOGIC_OP_NOR , LOGIC_OP_EQUIVALENT , LOGIC_OP_INVERT , LOGIC_OP_OR_REVERSE , LOGIC_OP_COPY_INVERTED , LOGIC_OP_OR_INVERTED , LOGIC_OP_NAND , LOGIC_OP_SET , .. )) 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) -- | VkLogicOp - Framebuffer logical operations -- -- = Description -- -- The logical operations supported by Vulkan are summarized in the -- following table in which -- -- - ¬ is bitwise invert, -- -- - ∧ is bitwise and, -- -- - ∨ is bitwise or, -- -- - ⊕ is bitwise exclusive or, -- -- - s is the fragment’s Rs0, Gs0, Bs0 or As0 component value for the -- fragment output corresponding to the color attachment being updated, -- and -- -- - d is the color attachment’s R, G, B or A component value: -- -- +-----------------------------------+-----------------------------------+ -- | Mode | Operation | -- +===================================+===================================+ -- | 'LOGIC_OP_CLEAR' | 0 | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_AND' | s ∧ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_AND_REVERSE' | s ∧ ¬ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_COPY' | s | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_AND_INVERTED' | ¬ s ∧ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_NO_OP' | d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_XOR' | s ⊕ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_OR' | s ∨ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_NOR' | ¬ (s ∨ d) | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_EQUIVALENT' | ¬ (s ⊕ d) | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_INVERT' | ¬ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_OR_REVERSE' | s ∨ ¬ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_COPY_INVERTED' | ¬ s | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_OR_INVERTED' | ¬ s ∨ d | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_NAND' | ¬ (s ∧ d) | -- +-----------------------------------+-----------------------------------+ -- | 'LOGIC_OP_SET' | all 1s | -- +-----------------------------------+-----------------------------------+ -- -- Logical Operations -- -- The result of the logical operation is then written to the color -- attachment as controlled by the component write mask, described in -- . -- -- = See Also -- -- 'Vulkan.Core10.Pipeline.PipelineColorBlendStateCreateInfo' newtype LogicOp = LogicOp Int32 deriving newtype (Eq, Ord, Storable, Zero) -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_CLEAR" pattern LOGIC_OP_CLEAR = LogicOp 0 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_AND" pattern LOGIC_OP_AND = LogicOp 1 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_AND_REVERSE" pattern LOGIC_OP_AND_REVERSE = LogicOp 2 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_COPY" pattern LOGIC_OP_COPY = LogicOp 3 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_AND_INVERTED" pattern LOGIC_OP_AND_INVERTED = LogicOp 4 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_NO_OP" pattern LOGIC_OP_NO_OP = LogicOp 5 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_XOR" pattern LOGIC_OP_XOR = LogicOp 6 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_OR" pattern LOGIC_OP_OR = LogicOp 7 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_NOR" pattern LOGIC_OP_NOR = LogicOp 8 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_EQUIVALENT" pattern LOGIC_OP_EQUIVALENT = LogicOp 9 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_INVERT" pattern LOGIC_OP_INVERT = LogicOp 10 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_OR_REVERSE" pattern LOGIC_OP_OR_REVERSE = LogicOp 11 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_COPY_INVERTED" pattern LOGIC_OP_COPY_INVERTED = LogicOp 12 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_OR_INVERTED" pattern LOGIC_OP_OR_INVERTED = LogicOp 13 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_NAND" pattern LOGIC_OP_NAND = LogicOp 14 -- No documentation found for Nested "VkLogicOp" "VK_LOGIC_OP_SET" pattern LOGIC_OP_SET = LogicOp 15 {-# complete LOGIC_OP_CLEAR, LOGIC_OP_AND, LOGIC_OP_AND_REVERSE, LOGIC_OP_COPY, LOGIC_OP_AND_INVERTED, LOGIC_OP_NO_OP, LOGIC_OP_XOR, LOGIC_OP_OR, LOGIC_OP_NOR, LOGIC_OP_EQUIVALENT, LOGIC_OP_INVERT, LOGIC_OP_OR_REVERSE, LOGIC_OP_COPY_INVERTED, LOGIC_OP_OR_INVERTED, LOGIC_OP_NAND, LOGIC_OP_SET :: LogicOp #-} instance Show LogicOp where showsPrec p = \case LOGIC_OP_CLEAR -> showString "LOGIC_OP_CLEAR" LOGIC_OP_AND -> showString "LOGIC_OP_AND" LOGIC_OP_AND_REVERSE -> showString "LOGIC_OP_AND_REVERSE" LOGIC_OP_COPY -> showString "LOGIC_OP_COPY" LOGIC_OP_AND_INVERTED -> showString "LOGIC_OP_AND_INVERTED" LOGIC_OP_NO_OP -> showString "LOGIC_OP_NO_OP" LOGIC_OP_XOR -> showString "LOGIC_OP_XOR" LOGIC_OP_OR -> showString "LOGIC_OP_OR" LOGIC_OP_NOR -> showString "LOGIC_OP_NOR" LOGIC_OP_EQUIVALENT -> showString "LOGIC_OP_EQUIVALENT" LOGIC_OP_INVERT -> showString "LOGIC_OP_INVERT" LOGIC_OP_OR_REVERSE -> showString "LOGIC_OP_OR_REVERSE" LOGIC_OP_COPY_INVERTED -> showString "LOGIC_OP_COPY_INVERTED" LOGIC_OP_OR_INVERTED -> showString "LOGIC_OP_OR_INVERTED" LOGIC_OP_NAND -> showString "LOGIC_OP_NAND" LOGIC_OP_SET -> showString "LOGIC_OP_SET" LogicOp x -> showParen (p >= 11) (showString "LogicOp " . showsPrec 11 x) instance Read LogicOp where readPrec = parens (choose [("LOGIC_OP_CLEAR", pure LOGIC_OP_CLEAR) , ("LOGIC_OP_AND", pure LOGIC_OP_AND) , ("LOGIC_OP_AND_REVERSE", pure LOGIC_OP_AND_REVERSE) , ("LOGIC_OP_COPY", pure LOGIC_OP_COPY) , ("LOGIC_OP_AND_INVERTED", pure LOGIC_OP_AND_INVERTED) , ("LOGIC_OP_NO_OP", pure LOGIC_OP_NO_OP) , ("LOGIC_OP_XOR", pure LOGIC_OP_XOR) , ("LOGIC_OP_OR", pure LOGIC_OP_OR) , ("LOGIC_OP_NOR", pure LOGIC_OP_NOR) , ("LOGIC_OP_EQUIVALENT", pure LOGIC_OP_EQUIVALENT) , ("LOGIC_OP_INVERT", pure LOGIC_OP_INVERT) , ("LOGIC_OP_OR_REVERSE", pure LOGIC_OP_OR_REVERSE) , ("LOGIC_OP_COPY_INVERTED", pure LOGIC_OP_COPY_INVERTED) , ("LOGIC_OP_OR_INVERTED", pure LOGIC_OP_OR_INVERTED) , ("LOGIC_OP_NAND", pure LOGIC_OP_NAND) , ("LOGIC_OP_SET", pure LOGIC_OP_SET)] +++ prec 10 (do expectP (Ident "LogicOp") v <- step readPrec pure (LogicOp v)))