{-# LINE 1 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TupleSections #-}
{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
module Gpu.Vulkan.Pipeline.ColorBlendState.Core (
CreateInfo, PtrCreateInfo, pattern CreateInfo,
createInfoSType, createInfoPNext, createInfoFlags,
createInfoLogicOpEnable, createInfoLogicOp,
createInfoAttachmentCount, createInfoPAttachments,
createInfoBlendConstants
) where
import Foreign.Ptr
import Foreign.Marshal.Array
import Foreign.Storable
import Foreign.C.Struct
import Foreign.C.Struct.TypeSynonyms
import Data.Word
import qualified Gpu.Vulkan.Pipeline.ColorBlendAttachment.Core as ColorBlendAttachment
sType :: Word32
{-# LINE 29 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
sType = 26
{-# LINE 30 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
struct "CreateInfo" (56)
{-# LINE 32 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
8 [
{-# LINE 33 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
("sType", ''(), [| const $ pure () |],
[| \p _ -> (\hsc_ptr -> pokeByteOff hsc_ptr 0)
{-# LINE 35 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
p sType |]),
("pNext", ''PtrVoid,
[| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 38 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]),
{-# LINE 39 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
("flags", ''Word32,
{-# LINE 40 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 16) |],
{-# LINE 41 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]),
{-# LINE 42 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
("logicOpEnable", ''Word32,
{-# LINE 43 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 20) |],
{-# LINE 45 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 20) |]),
{-# LINE 47 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
("logicOp", ''Word32,
{-# LINE 48 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 24) |],
{-# LINE 49 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 24) |]),
{-# LINE 50 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
("attachmentCount", ''Word32,
{-# LINE 51 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 28) |],
{-# LINE 53 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 28) |]),
{-# LINE 55 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
("pAttachments", ''ColorBlendAttachment.PtrState,
[| (\hsc_ptr -> peekByteOff hsc_ptr 32) |],
{-# LINE 57 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 32) |]),
{-# LINE 59 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
("blendConstants", ''ListFloat,
[| \p -> peekArray 4 ((\hsc_ptr -> hsc_ptr `plusPtr` 40) p) |],
{-# LINE 62 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[| \p bcs -> pokeArray ((\hsc_ptr -> hsc_ptr `plusPtr` 40) p) $ take 4 bcs |]) ]
{-# LINE 64 "src/Gpu/Vulkan/Pipeline/ColorBlendState/Core.hsc" #-}
[''Show, ''Storable]
type PtrCreateInfo = Ptr CreateInfo