{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstVideo.Structs.VideoColorPrimariesInfo
(
VideoColorPrimariesInfo(..) ,
newZeroVideoColorPrimariesInfo ,
#if defined(ENABLE_OVERLOADING)
ResolveVideoColorPrimariesInfoMethod ,
#endif
getVideoColorPrimariesInfoBx ,
setVideoColorPrimariesInfoBx ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_bx ,
#endif
getVideoColorPrimariesInfoBy ,
setVideoColorPrimariesInfoBy ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_by ,
#endif
getVideoColorPrimariesInfoGx ,
setVideoColorPrimariesInfoGx ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_gx ,
#endif
getVideoColorPrimariesInfoGy ,
setVideoColorPrimariesInfoGy ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_gy ,
#endif
getVideoColorPrimariesInfoPrimaries ,
setVideoColorPrimariesInfoPrimaries ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_primaries ,
#endif
getVideoColorPrimariesInfoRx ,
setVideoColorPrimariesInfoRx ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_rx ,
#endif
getVideoColorPrimariesInfoRy ,
setVideoColorPrimariesInfoRy ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_ry ,
#endif
getVideoColorPrimariesInfoWx ,
setVideoColorPrimariesInfoWx ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_wx ,
#endif
getVideoColorPrimariesInfoWy ,
setVideoColorPrimariesInfoWy ,
#if defined(ENABLE_OVERLOADING)
videoColorPrimariesInfo_wy ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.GstVideo.Enums as GstVideo.Enums
newtype VideoColorPrimariesInfo = VideoColorPrimariesInfo (SP.ManagedPtr VideoColorPrimariesInfo)
deriving (VideoColorPrimariesInfo -> VideoColorPrimariesInfo -> Bool
(VideoColorPrimariesInfo -> VideoColorPrimariesInfo -> Bool)
-> (VideoColorPrimariesInfo -> VideoColorPrimariesInfo -> Bool)
-> Eq VideoColorPrimariesInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VideoColorPrimariesInfo -> VideoColorPrimariesInfo -> Bool
$c/= :: VideoColorPrimariesInfo -> VideoColorPrimariesInfo -> Bool
== :: VideoColorPrimariesInfo -> VideoColorPrimariesInfo -> Bool
$c== :: VideoColorPrimariesInfo -> VideoColorPrimariesInfo -> Bool
Eq)
instance SP.ManagedPtrNewtype VideoColorPrimariesInfo where
toManagedPtr :: VideoColorPrimariesInfo -> ManagedPtr VideoColorPrimariesInfo
toManagedPtr (VideoColorPrimariesInfo ManagedPtr VideoColorPrimariesInfo
p) = ManagedPtr VideoColorPrimariesInfo
p
instance BoxedPtr VideoColorPrimariesInfo where
boxedPtrCopy :: VideoColorPrimariesInfo -> IO VideoColorPrimariesInfo
boxedPtrCopy = \VideoColorPrimariesInfo
p -> VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO VideoColorPrimariesInfo)
-> IO VideoColorPrimariesInfo
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr VideoColorPrimariesInfo
p (Int
-> Ptr VideoColorPrimariesInfo -> IO (Ptr VideoColorPrimariesInfo)
forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
72 (Ptr VideoColorPrimariesInfo -> IO (Ptr VideoColorPrimariesInfo))
-> (Ptr VideoColorPrimariesInfo -> IO VideoColorPrimariesInfo)
-> Ptr VideoColorPrimariesInfo
-> IO VideoColorPrimariesInfo
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr VideoColorPrimariesInfo -> VideoColorPrimariesInfo)
-> Ptr VideoColorPrimariesInfo -> IO VideoColorPrimariesInfo
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr VideoColorPrimariesInfo -> VideoColorPrimariesInfo
VideoColorPrimariesInfo)
boxedPtrFree :: VideoColorPrimariesInfo -> IO ()
boxedPtrFree = \VideoColorPrimariesInfo
x -> VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr VideoColorPrimariesInfo
x Ptr VideoColorPrimariesInfo -> IO ()
forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr VideoColorPrimariesInfo where
boxedPtrCalloc :: IO (Ptr VideoColorPrimariesInfo)
boxedPtrCalloc = Int -> IO (Ptr VideoColorPrimariesInfo)
forall a. Int -> IO (Ptr a)
callocBytes Int
72
newZeroVideoColorPrimariesInfo :: MonadIO m => m VideoColorPrimariesInfo
newZeroVideoColorPrimariesInfo :: forall (m :: * -> *). MonadIO m => m VideoColorPrimariesInfo
newZeroVideoColorPrimariesInfo = IO VideoColorPrimariesInfo -> m VideoColorPrimariesInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoColorPrimariesInfo -> m VideoColorPrimariesInfo)
-> IO VideoColorPrimariesInfo -> m VideoColorPrimariesInfo
forall a b. (a -> b) -> a -> b
$ IO (Ptr VideoColorPrimariesInfo)
forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc IO (Ptr VideoColorPrimariesInfo)
-> (Ptr VideoColorPrimariesInfo -> IO VideoColorPrimariesInfo)
-> IO VideoColorPrimariesInfo
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr VideoColorPrimariesInfo -> VideoColorPrimariesInfo)
-> Ptr VideoColorPrimariesInfo -> IO VideoColorPrimariesInfo
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr VideoColorPrimariesInfo -> VideoColorPrimariesInfo
VideoColorPrimariesInfo
instance tag ~ 'AttrSet => Constructible VideoColorPrimariesInfo tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr VideoColorPrimariesInfo -> VideoColorPrimariesInfo)
-> [AttrOp VideoColorPrimariesInfo tag]
-> m VideoColorPrimariesInfo
new ManagedPtr VideoColorPrimariesInfo -> VideoColorPrimariesInfo
_ [AttrOp VideoColorPrimariesInfo tag]
attrs = do
VideoColorPrimariesInfo
o <- m VideoColorPrimariesInfo
forall (m :: * -> *). MonadIO m => m VideoColorPrimariesInfo
newZeroVideoColorPrimariesInfo
VideoColorPrimariesInfo
-> [AttrOp VideoColorPrimariesInfo 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set VideoColorPrimariesInfo
o [AttrOp VideoColorPrimariesInfo tag]
[AttrOp VideoColorPrimariesInfo 'AttrSet]
attrs
VideoColorPrimariesInfo -> m VideoColorPrimariesInfo
forall (m :: * -> *) a. Monad m => a -> m a
return VideoColorPrimariesInfo
o
getVideoColorPrimariesInfoPrimaries :: MonadIO m => VideoColorPrimariesInfo -> m GstVideo.Enums.VideoColorPrimaries
getVideoColorPrimariesInfoPrimaries :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m VideoColorPrimaries
getVideoColorPrimariesInfoPrimaries VideoColorPrimariesInfo
s = IO VideoColorPrimaries -> m VideoColorPrimaries
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoColorPrimaries -> m VideoColorPrimaries)
-> IO VideoColorPrimaries -> m VideoColorPrimaries
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO VideoColorPrimaries)
-> IO VideoColorPrimaries
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO VideoColorPrimaries)
-> IO VideoColorPrimaries)
-> (Ptr VideoColorPrimariesInfo -> IO VideoColorPrimaries)
-> IO VideoColorPrimaries
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CUInt
let val' :: VideoColorPrimaries
val' = (Int -> VideoColorPrimaries
forall a. Enum a => Int -> a
toEnum (Int -> VideoColorPrimaries)
-> (CUInt -> Int) -> CUInt -> VideoColorPrimaries
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoColorPrimaries -> IO VideoColorPrimaries
forall (m :: * -> *) a. Monad m => a -> m a
return VideoColorPrimaries
val'
setVideoColorPrimariesInfoPrimaries :: MonadIO m => VideoColorPrimariesInfo -> GstVideo.Enums.VideoColorPrimaries -> m ()
setVideoColorPrimariesInfoPrimaries :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> VideoColorPrimaries -> m ()
setVideoColorPrimariesInfoPrimaries VideoColorPrimariesInfo
s VideoColorPrimaries
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoColorPrimaries -> Int) -> VideoColorPrimaries -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoColorPrimaries -> Int
forall a. Enum a => a -> Int
fromEnum) VideoColorPrimaries
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoPrimariesFieldInfo
instance AttrInfo VideoColorPrimariesInfoPrimariesFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoPrimariesFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoPrimariesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoPrimariesFieldInfo = (~) GstVideo.Enums.VideoColorPrimaries
type AttrTransferTypeConstraint VideoColorPrimariesInfoPrimariesFieldInfo = (~)GstVideo.Enums.VideoColorPrimaries
type AttrTransferType VideoColorPrimariesInfoPrimariesFieldInfo = GstVideo.Enums.VideoColorPrimaries
type AttrGetType VideoColorPrimariesInfoPrimariesFieldInfo = GstVideo.Enums.VideoColorPrimaries
type AttrLabel VideoColorPrimariesInfoPrimariesFieldInfo = "primaries"
type AttrOrigin VideoColorPrimariesInfoPrimariesFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoPrimaries
attrSet = setVideoColorPrimariesInfoPrimaries
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.primaries"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:primaries"
})
videoColorPrimariesInfo_primaries :: AttrLabelProxy "primaries"
videoColorPrimariesInfo_primaries = AttrLabelProxy
#endif
getVideoColorPrimariesInfoWx :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoWx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoWx VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoWx :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoWx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoWx VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoWxFieldInfo
instance AttrInfo VideoColorPrimariesInfoWxFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoWxFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoWxFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoWxFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoWxFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoWxFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoWxFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoWxFieldInfo = "Wx"
type AttrOrigin VideoColorPrimariesInfoWxFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoWx
attrSet = setVideoColorPrimariesInfoWx
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.wx"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:wx"
})
videoColorPrimariesInfo_wx :: AttrLabelProxy "wx"
videoColorPrimariesInfo_wx = AttrLabelProxy
#endif
getVideoColorPrimariesInfoWy :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoWy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoWy VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoWy :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoWy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoWy VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoWyFieldInfo
instance AttrInfo VideoColorPrimariesInfoWyFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoWyFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoWyFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoWyFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoWyFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoWyFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoWyFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoWyFieldInfo = "Wy"
type AttrOrigin VideoColorPrimariesInfoWyFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoWy
attrSet = setVideoColorPrimariesInfoWy
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.wy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:wy"
})
videoColorPrimariesInfo_wy :: AttrLabelProxy "wy"
videoColorPrimariesInfo_wy = AttrLabelProxy
#endif
getVideoColorPrimariesInfoRx :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoRx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoRx VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoRx :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoRx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoRx VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoRxFieldInfo
instance AttrInfo VideoColorPrimariesInfoRxFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoRxFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoRxFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoRxFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoRxFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoRxFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoRxFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoRxFieldInfo = "Rx"
type AttrOrigin VideoColorPrimariesInfoRxFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoRx
attrSet = setVideoColorPrimariesInfoRx
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.rx"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:rx"
})
videoColorPrimariesInfo_rx :: AttrLabelProxy "rx"
videoColorPrimariesInfo_rx = AttrLabelProxy
#endif
getVideoColorPrimariesInfoRy :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoRy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoRy VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoRy :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoRy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoRy VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoRyFieldInfo
instance AttrInfo VideoColorPrimariesInfoRyFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoRyFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoRyFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoRyFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoRyFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoRyFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoRyFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoRyFieldInfo = "Ry"
type AttrOrigin VideoColorPrimariesInfoRyFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoRy
attrSet = setVideoColorPrimariesInfoRy
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.ry"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:ry"
})
videoColorPrimariesInfo_ry :: AttrLabelProxy "ry"
videoColorPrimariesInfo_ry = AttrLabelProxy
#endif
getVideoColorPrimariesInfoGx :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoGx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoGx VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoGx :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoGx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoGx VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoGxFieldInfo
instance AttrInfo VideoColorPrimariesInfoGxFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoGxFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoGxFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoGxFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoGxFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoGxFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoGxFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoGxFieldInfo = "Gx"
type AttrOrigin VideoColorPrimariesInfoGxFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoGx
attrSet = setVideoColorPrimariesInfoGx
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.gx"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:gx"
})
videoColorPrimariesInfo_gx :: AttrLabelProxy "gx"
videoColorPrimariesInfo_gx = AttrLabelProxy
#endif
getVideoColorPrimariesInfoGy :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoGy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoGy VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoGy :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoGy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoGy VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoGyFieldInfo
instance AttrInfo VideoColorPrimariesInfoGyFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoGyFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoGyFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoGyFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoGyFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoGyFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoGyFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoGyFieldInfo = "Gy"
type AttrOrigin VideoColorPrimariesInfoGyFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoGy
attrSet = setVideoColorPrimariesInfoGy
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.gy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:gy"
})
videoColorPrimariesInfo_gy :: AttrLabelProxy "gy"
videoColorPrimariesInfo_gy = AttrLabelProxy
#endif
getVideoColorPrimariesInfoBx :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoBx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoBx VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoBx :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoBx :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoBx VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoBxFieldInfo
instance AttrInfo VideoColorPrimariesInfoBxFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoBxFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoBxFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoBxFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoBxFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoBxFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoBxFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoBxFieldInfo = "Bx"
type AttrOrigin VideoColorPrimariesInfoBxFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoBx
attrSet = setVideoColorPrimariesInfoBx
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.bx"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:bx"
})
videoColorPrimariesInfo_bx :: AttrLabelProxy "bx"
videoColorPrimariesInfo_bx = AttrLabelProxy
#endif
getVideoColorPrimariesInfoBy :: MonadIO m => VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoBy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> m Double
getVideoColorPrimariesInfoBy VideoColorPrimariesInfo
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double)
-> (Ptr VideoColorPrimariesInfo -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setVideoColorPrimariesInfoBy :: MonadIO m => VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoBy :: forall (m :: * -> *).
MonadIO m =>
VideoColorPrimariesInfo -> Double -> m ()
setVideoColorPrimariesInfoBy VideoColorPrimariesInfo
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorPrimariesInfo
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorPrimariesInfo
s ((Ptr VideoColorPrimariesInfo -> IO ()) -> IO ())
-> (Ptr VideoColorPrimariesInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr VideoColorPrimariesInfo
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorPrimariesInfo
ptr Ptr VideoColorPrimariesInfo -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data VideoColorPrimariesInfoByFieldInfo
instance AttrInfo VideoColorPrimariesInfoByFieldInfo where
type AttrBaseTypeConstraint VideoColorPrimariesInfoByFieldInfo = (~) VideoColorPrimariesInfo
type AttrAllowedOps VideoColorPrimariesInfoByFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorPrimariesInfoByFieldInfo = (~) Double
type AttrTransferTypeConstraint VideoColorPrimariesInfoByFieldInfo = (~)Double
type AttrTransferType VideoColorPrimariesInfoByFieldInfo = Double
type AttrGetType VideoColorPrimariesInfoByFieldInfo = Double
type AttrLabel VideoColorPrimariesInfoByFieldInfo = "By"
type AttrOrigin VideoColorPrimariesInfoByFieldInfo = VideoColorPrimariesInfo
attrGet = getVideoColorPrimariesInfoBy
attrSet = setVideoColorPrimariesInfoBy
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstVideo.Structs.VideoColorPrimariesInfo.by"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstvideo-1.0.25/docs/GI-GstVideo-Structs-VideoColorPrimariesInfo.html#g:attr:by"
})
videoColorPrimariesInfo_by :: AttrLabelProxy "by"
videoColorPrimariesInfo_by = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList VideoColorPrimariesInfo
type instance O.AttributeList VideoColorPrimariesInfo = VideoColorPrimariesInfoAttributeList
type VideoColorPrimariesInfoAttributeList = ('[ '("primaries", VideoColorPrimariesInfoPrimariesFieldInfo), '("wx", VideoColorPrimariesInfoWxFieldInfo), '("wy", VideoColorPrimariesInfoWyFieldInfo), '("rx", VideoColorPrimariesInfoRxFieldInfo), '("ry", VideoColorPrimariesInfoRyFieldInfo), '("gx", VideoColorPrimariesInfoGxFieldInfo), '("gy", VideoColorPrimariesInfoGyFieldInfo), '("bx", VideoColorPrimariesInfoBxFieldInfo), '("by", VideoColorPrimariesInfoByFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveVideoColorPrimariesInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveVideoColorPrimariesInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoColorPrimariesInfoMethod t VideoColorPrimariesInfo, O.OverloadedMethod info VideoColorPrimariesInfo p) => OL.IsLabel t (VideoColorPrimariesInfo -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveVideoColorPrimariesInfoMethod t VideoColorPrimariesInfo, O.OverloadedMethod info VideoColorPrimariesInfo p, R.HasField t VideoColorPrimariesInfo p) => R.HasField t VideoColorPrimariesInfo p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveVideoColorPrimariesInfoMethod t VideoColorPrimariesInfo, O.OverloadedMethodInfo info VideoColorPrimariesInfo) => OL.IsLabel t (O.MethodProxy info VideoColorPrimariesInfo) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif