{-# LINE 1 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NoImplicitPrelude #-}
module WGPU.Raw.Generated.Struct.WGPUColor where
import Data.Word (Word16, Word32, Word64)
import Data.Int (Int32)
import Foreign
import Foreign.C.Types
import WGPU.Raw.Types
import Prelude (pure, ($!))
data WGPUColor = WGPUColor {
WGPUColor -> CDouble
r :: CDouble,
WGPUColor -> CDouble
g :: CDouble,
WGPUColor -> CDouble
b :: CDouble,
WGPUColor -> CDouble
a :: CDouble
}
instance Storable WGPUColor where
sizeOf :: WGPUColor -> Int
sizeOf WGPUColor
_ = ((Int
32))
{-# LINE 31 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
alignment = sizeOf
peek :: Ptr WGPUColor -> IO WGPUColor
peek Ptr WGPUColor
ptr = do
CDouble
r <- ((\Ptr WGPUColor
hsc_ptr -> Ptr WGPUColor -> Int -> IO CDouble
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr WGPUColor
hsc_ptr Int
0)) Ptr WGPUColor
ptr
{-# LINE 34 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
g <- ((\hsc_ptr -> peekByteOff hsc_ptr 8)) ptr
{-# LINE 35 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
b <- ((\hsc_ptr -> peekByteOff hsc_ptr 16)) ptr
{-# LINE 36 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
a <- ((\hsc_ptr -> peekByteOff hsc_ptr 24)) ptr
{-# LINE 37 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
pure $! WGPUColor{..}
poke :: Ptr WGPUColor -> WGPUColor -> IO ()
poke Ptr WGPUColor
ptr WGPUColor{CDouble
a :: CDouble
b :: CDouble
g :: CDouble
r :: CDouble
a :: WGPUColor -> CDouble
b :: WGPUColor -> CDouble
g :: WGPUColor -> CDouble
r :: WGPUColor -> CDouble
..} = do
((\Ptr WGPUColor
hsc_ptr -> Ptr WGPUColor -> Int -> CDouble -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr WGPUColor
hsc_ptr Int
0)) Ptr WGPUColor
ptr CDouble
r
{-# LINE 40 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 8)) ptr g
{-# LINE 41 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 16)) ptr b
{-# LINE 42 "src/WGPU/Raw/Generated/Struct/WGPUColor.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 24)) ptr a