{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstVideo.Structs.VideoOverlayRectangle
(
VideoOverlayRectangle(..) ,
noVideoOverlayRectangle ,
#if defined(ENABLE_OVERLOADING)
ResolveVideoOverlayRectangleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleCopyMethodInfo ,
#endif
videoOverlayRectangleCopy ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetFlagsMethodInfo ,
#endif
videoOverlayRectangleGetFlags ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetGlobalAlphaMethodInfo,
#endif
videoOverlayRectangleGetGlobalAlpha ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetPixelsArgbMethodInfo,
#endif
videoOverlayRectangleGetPixelsArgb ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetPixelsAyuvMethodInfo,
#endif
videoOverlayRectangleGetPixelsAyuv ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetPixelsRawMethodInfo,
#endif
videoOverlayRectangleGetPixelsRaw ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetPixelsUnscaledArgbMethodInfo,
#endif
videoOverlayRectangleGetPixelsUnscaledArgb,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetPixelsUnscaledAyuvMethodInfo,
#endif
videoOverlayRectangleGetPixelsUnscaledAyuv,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetPixelsUnscaledRawMethodInfo,
#endif
videoOverlayRectangleGetPixelsUnscaledRaw,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetRenderRectangleMethodInfo,
#endif
videoOverlayRectangleGetRenderRectangle ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleGetSeqnumMethodInfo,
#endif
videoOverlayRectangleGetSeqnum ,
videoOverlayRectangleNewRaw ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleSetGlobalAlphaMethodInfo,
#endif
videoOverlayRectangleSetGlobalAlpha ,
#if defined(ENABLE_OVERLOADING)
VideoOverlayRectangleSetRenderRectangleMethodInfo,
#endif
videoOverlayRectangleSetRenderRectangle ,
) 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.ManagedPtr as B.ManagedPtr
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 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 GI.Gst.Structs.Buffer as Gst.Buffer
import {-# SOURCE #-} qualified GI.GstVideo.Flags as GstVideo.Flags
newtype VideoOverlayRectangle = VideoOverlayRectangle (ManagedPtr VideoOverlayRectangle)
deriving (VideoOverlayRectangle -> VideoOverlayRectangle -> Bool
(VideoOverlayRectangle -> VideoOverlayRectangle -> Bool)
-> (VideoOverlayRectangle -> VideoOverlayRectangle -> Bool)
-> Eq VideoOverlayRectangle
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VideoOverlayRectangle -> VideoOverlayRectangle -> Bool
$c/= :: VideoOverlayRectangle -> VideoOverlayRectangle -> Bool
== :: VideoOverlayRectangle -> VideoOverlayRectangle -> Bool
$c== :: VideoOverlayRectangle -> VideoOverlayRectangle -> Bool
Eq)
foreign import ccall "gst_video_overlay_rectangle_get_type" c_gst_video_overlay_rectangle_get_type ::
IO GType
instance BoxedObject VideoOverlayRectangle where
boxedType :: VideoOverlayRectangle -> IO GType
boxedType _ = IO GType
c_gst_video_overlay_rectangle_get_type
instance B.GValue.IsGValue VideoOverlayRectangle where
toGValue :: VideoOverlayRectangle -> IO GValue
toGValue o :: VideoOverlayRectangle
o = do
GType
gtype <- IO GType
c_gst_video_overlay_rectangle_get_type
VideoOverlayRectangle
-> (Ptr VideoOverlayRectangle -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr VideoOverlayRectangle
o (GType
-> (GValue -> Ptr VideoOverlayRectangle -> IO ())
-> Ptr VideoOverlayRectangle
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr VideoOverlayRectangle -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO VideoOverlayRectangle
fromGValue gv :: GValue
gv = do
Ptr VideoOverlayRectangle
ptr <- GValue -> IO (Ptr VideoOverlayRectangle)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr VideoOverlayRectangle)
(ManagedPtr VideoOverlayRectangle -> VideoOverlayRectangle)
-> Ptr VideoOverlayRectangle -> IO VideoOverlayRectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr VideoOverlayRectangle -> VideoOverlayRectangle
VideoOverlayRectangle Ptr VideoOverlayRectangle
ptr
noVideoOverlayRectangle :: Maybe VideoOverlayRectangle
noVideoOverlayRectangle :: Maybe VideoOverlayRectangle
noVideoOverlayRectangle = Maybe VideoOverlayRectangle
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList VideoOverlayRectangle
type instance O.AttributeList VideoOverlayRectangle = VideoOverlayRectangleAttributeList
type VideoOverlayRectangleAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "gst_video_overlay_rectangle_new_raw" gst_video_overlay_rectangle_new_raw ::
Ptr Gst.Buffer.Buffer ->
Int32 ->
Int32 ->
Word32 ->
Word32 ->
CUInt ->
IO (Ptr VideoOverlayRectangle)
videoOverlayRectangleNewRaw ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gst.Buffer.Buffer
-> Int32
-> Int32
-> Word32
-> Word32
-> [GstVideo.Flags.VideoOverlayFormatFlags]
-> m VideoOverlayRectangle
videoOverlayRectangleNewRaw :: Buffer
-> Int32
-> Int32
-> Word32
-> Word32
-> [VideoOverlayFormatFlags]
-> m VideoOverlayRectangle
videoOverlayRectangleNewRaw pixels :: Buffer
pixels renderX :: Int32
renderX renderY :: Int32
renderY renderWidth :: Word32
renderWidth renderHeight :: Word32
renderHeight flags :: [VideoOverlayFormatFlags]
flags = IO VideoOverlayRectangle -> m VideoOverlayRectangle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoOverlayRectangle -> m VideoOverlayRectangle)
-> IO VideoOverlayRectangle -> m VideoOverlayRectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr Buffer
pixels' <- Buffer -> IO (Ptr Buffer)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Buffer
pixels
let flags' :: CUInt
flags' = [VideoOverlayFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoOverlayFormatFlags]
flags
Ptr VideoOverlayRectangle
result <- Ptr Buffer
-> Int32
-> Int32
-> Word32
-> Word32
-> CUInt
-> IO (Ptr VideoOverlayRectangle)
gst_video_overlay_rectangle_new_raw Ptr Buffer
pixels' Int32
renderX Int32
renderY Word32
renderWidth Word32
renderHeight CUInt
flags'
Text -> Ptr VideoOverlayRectangle -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleNewRaw" Ptr VideoOverlayRectangle
result
VideoOverlayRectangle
result' <- ((ManagedPtr VideoOverlayRectangle -> VideoOverlayRectangle)
-> Ptr VideoOverlayRectangle -> IO VideoOverlayRectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr VideoOverlayRectangle -> VideoOverlayRectangle
VideoOverlayRectangle) Ptr VideoOverlayRectangle
result
Buffer -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Buffer
pixels
VideoOverlayRectangle -> IO VideoOverlayRectangle
forall (m :: * -> *) a. Monad m => a -> m a
return VideoOverlayRectangle
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gst_video_overlay_rectangle_copy" gst_video_overlay_rectangle_copy ::
Ptr VideoOverlayRectangle ->
IO (Ptr VideoOverlayRectangle)
videoOverlayRectangleCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> m VideoOverlayRectangle
videoOverlayRectangleCopy :: VideoOverlayRectangle -> m VideoOverlayRectangle
videoOverlayRectangleCopy rectangle :: VideoOverlayRectangle
rectangle = IO VideoOverlayRectangle -> m VideoOverlayRectangle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoOverlayRectangle -> m VideoOverlayRectangle)
-> IO VideoOverlayRectangle -> m VideoOverlayRectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
Ptr VideoOverlayRectangle
result <- Ptr VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
gst_video_overlay_rectangle_copy Ptr VideoOverlayRectangle
rectangle'
Text -> Ptr VideoOverlayRectangle -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleCopy" Ptr VideoOverlayRectangle
result
VideoOverlayRectangle
result' <- ((ManagedPtr VideoOverlayRectangle -> VideoOverlayRectangle)
-> Ptr VideoOverlayRectangle -> IO VideoOverlayRectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr VideoOverlayRectangle -> VideoOverlayRectangle
VideoOverlayRectangle) Ptr VideoOverlayRectangle
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
VideoOverlayRectangle -> IO VideoOverlayRectangle
forall (m :: * -> *) a. Monad m => a -> m a
return VideoOverlayRectangle
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleCopyMethodInfo
instance (signature ~ (m VideoOverlayRectangle), MonadIO m) => O.MethodInfo VideoOverlayRectangleCopyMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleCopy
#endif
foreign import ccall "gst_video_overlay_rectangle_get_flags" gst_video_overlay_rectangle_get_flags ::
Ptr VideoOverlayRectangle ->
IO CUInt
videoOverlayRectangleGetFlags ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> m [GstVideo.Flags.VideoOverlayFormatFlags]
videoOverlayRectangleGetFlags :: VideoOverlayRectangle -> m [VideoOverlayFormatFlags]
videoOverlayRectangleGetFlags rectangle :: VideoOverlayRectangle
rectangle = IO [VideoOverlayFormatFlags] -> m [VideoOverlayFormatFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [VideoOverlayFormatFlags] -> m [VideoOverlayFormatFlags])
-> IO [VideoOverlayFormatFlags] -> m [VideoOverlayFormatFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
CUInt
result <- Ptr VideoOverlayRectangle -> IO CUInt
gst_video_overlay_rectangle_get_flags Ptr VideoOverlayRectangle
rectangle'
let result' :: [VideoOverlayFormatFlags]
result' = CUInt -> [VideoOverlayFormatFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
[VideoOverlayFormatFlags] -> IO [VideoOverlayFormatFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [VideoOverlayFormatFlags]
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetFlagsMethodInfo
instance (signature ~ (m [GstVideo.Flags.VideoOverlayFormatFlags]), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetFlagsMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetFlags
#endif
foreign import ccall "gst_video_overlay_rectangle_get_global_alpha" gst_video_overlay_rectangle_get_global_alpha ::
Ptr VideoOverlayRectangle ->
IO CFloat
videoOverlayRectangleGetGlobalAlpha ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> m Float
videoOverlayRectangleGetGlobalAlpha :: VideoOverlayRectangle -> m Float
videoOverlayRectangleGetGlobalAlpha rectangle :: VideoOverlayRectangle
rectangle = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
CFloat
result <- Ptr VideoOverlayRectangle -> IO CFloat
gst_video_overlay_rectangle_get_global_alpha Ptr VideoOverlayRectangle
rectangle'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Float -> IO Float
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetGlobalAlphaMethodInfo
instance (signature ~ (m Float), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetGlobalAlphaMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetGlobalAlpha
#endif
foreign import ccall "gst_video_overlay_rectangle_get_pixels_argb" gst_video_overlay_rectangle_get_pixels_argb ::
Ptr VideoOverlayRectangle ->
CUInt ->
IO (Ptr Gst.Buffer.Buffer)
videoOverlayRectangleGetPixelsArgb ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> [GstVideo.Flags.VideoOverlayFormatFlags]
-> m Gst.Buffer.Buffer
videoOverlayRectangleGetPixelsArgb :: VideoOverlayRectangle -> [VideoOverlayFormatFlags] -> m Buffer
videoOverlayRectangleGetPixelsArgb rectangle :: VideoOverlayRectangle
rectangle flags :: [VideoOverlayFormatFlags]
flags = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
let flags' :: CUInt
flags' = [VideoOverlayFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoOverlayFormatFlags]
flags
Ptr Buffer
result <- Ptr VideoOverlayRectangle -> CUInt -> IO (Ptr Buffer)
gst_video_overlay_rectangle_get_pixels_argb Ptr VideoOverlayRectangle
rectangle' CUInt
flags'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleGetPixelsArgb" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Buffer -> Buffer
Gst.Buffer.Buffer) Ptr Buffer
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Buffer -> IO Buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetPixelsArgbMethodInfo
instance (signature ~ ([GstVideo.Flags.VideoOverlayFormatFlags] -> m Gst.Buffer.Buffer), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetPixelsArgbMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetPixelsArgb
#endif
foreign import ccall "gst_video_overlay_rectangle_get_pixels_ayuv" gst_video_overlay_rectangle_get_pixels_ayuv ::
Ptr VideoOverlayRectangle ->
CUInt ->
IO (Ptr Gst.Buffer.Buffer)
videoOverlayRectangleGetPixelsAyuv ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> [GstVideo.Flags.VideoOverlayFormatFlags]
-> m Gst.Buffer.Buffer
videoOverlayRectangleGetPixelsAyuv :: VideoOverlayRectangle -> [VideoOverlayFormatFlags] -> m Buffer
videoOverlayRectangleGetPixelsAyuv rectangle :: VideoOverlayRectangle
rectangle flags :: [VideoOverlayFormatFlags]
flags = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
let flags' :: CUInt
flags' = [VideoOverlayFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoOverlayFormatFlags]
flags
Ptr Buffer
result <- Ptr VideoOverlayRectangle -> CUInt -> IO (Ptr Buffer)
gst_video_overlay_rectangle_get_pixels_ayuv Ptr VideoOverlayRectangle
rectangle' CUInt
flags'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleGetPixelsAyuv" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Buffer -> Buffer
Gst.Buffer.Buffer) Ptr Buffer
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Buffer -> IO Buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetPixelsAyuvMethodInfo
instance (signature ~ ([GstVideo.Flags.VideoOverlayFormatFlags] -> m Gst.Buffer.Buffer), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetPixelsAyuvMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetPixelsAyuv
#endif
foreign import ccall "gst_video_overlay_rectangle_get_pixels_raw" gst_video_overlay_rectangle_get_pixels_raw ::
Ptr VideoOverlayRectangle ->
CUInt ->
IO (Ptr Gst.Buffer.Buffer)
videoOverlayRectangleGetPixelsRaw ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> [GstVideo.Flags.VideoOverlayFormatFlags]
-> m Gst.Buffer.Buffer
videoOverlayRectangleGetPixelsRaw :: VideoOverlayRectangle -> [VideoOverlayFormatFlags] -> m Buffer
videoOverlayRectangleGetPixelsRaw rectangle :: VideoOverlayRectangle
rectangle flags :: [VideoOverlayFormatFlags]
flags = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
let flags' :: CUInt
flags' = [VideoOverlayFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoOverlayFormatFlags]
flags
Ptr Buffer
result <- Ptr VideoOverlayRectangle -> CUInt -> IO (Ptr Buffer)
gst_video_overlay_rectangle_get_pixels_raw Ptr VideoOverlayRectangle
rectangle' CUInt
flags'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleGetPixelsRaw" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Buffer -> Buffer
Gst.Buffer.Buffer) Ptr Buffer
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Buffer -> IO Buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetPixelsRawMethodInfo
instance (signature ~ ([GstVideo.Flags.VideoOverlayFormatFlags] -> m Gst.Buffer.Buffer), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetPixelsRawMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetPixelsRaw
#endif
foreign import ccall "gst_video_overlay_rectangle_get_pixels_unscaled_argb" gst_video_overlay_rectangle_get_pixels_unscaled_argb ::
Ptr VideoOverlayRectangle ->
CUInt ->
IO (Ptr Gst.Buffer.Buffer)
videoOverlayRectangleGetPixelsUnscaledArgb ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> [GstVideo.Flags.VideoOverlayFormatFlags]
-> m Gst.Buffer.Buffer
videoOverlayRectangleGetPixelsUnscaledArgb :: VideoOverlayRectangle -> [VideoOverlayFormatFlags] -> m Buffer
videoOverlayRectangleGetPixelsUnscaledArgb rectangle :: VideoOverlayRectangle
rectangle flags :: [VideoOverlayFormatFlags]
flags = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
let flags' :: CUInt
flags' = [VideoOverlayFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoOverlayFormatFlags]
flags
Ptr Buffer
result <- Ptr VideoOverlayRectangle -> CUInt -> IO (Ptr Buffer)
gst_video_overlay_rectangle_get_pixels_unscaled_argb Ptr VideoOverlayRectangle
rectangle' CUInt
flags'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleGetPixelsUnscaledArgb" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Buffer -> Buffer
Gst.Buffer.Buffer) Ptr Buffer
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Buffer -> IO Buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetPixelsUnscaledArgbMethodInfo
instance (signature ~ ([GstVideo.Flags.VideoOverlayFormatFlags] -> m Gst.Buffer.Buffer), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetPixelsUnscaledArgbMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetPixelsUnscaledArgb
#endif
foreign import ccall "gst_video_overlay_rectangle_get_pixels_unscaled_ayuv" gst_video_overlay_rectangle_get_pixels_unscaled_ayuv ::
Ptr VideoOverlayRectangle ->
CUInt ->
IO (Ptr Gst.Buffer.Buffer)
videoOverlayRectangleGetPixelsUnscaledAyuv ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> [GstVideo.Flags.VideoOverlayFormatFlags]
-> m Gst.Buffer.Buffer
videoOverlayRectangleGetPixelsUnscaledAyuv :: VideoOverlayRectangle -> [VideoOverlayFormatFlags] -> m Buffer
videoOverlayRectangleGetPixelsUnscaledAyuv rectangle :: VideoOverlayRectangle
rectangle flags :: [VideoOverlayFormatFlags]
flags = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
let flags' :: CUInt
flags' = [VideoOverlayFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoOverlayFormatFlags]
flags
Ptr Buffer
result <- Ptr VideoOverlayRectangle -> CUInt -> IO (Ptr Buffer)
gst_video_overlay_rectangle_get_pixels_unscaled_ayuv Ptr VideoOverlayRectangle
rectangle' CUInt
flags'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleGetPixelsUnscaledAyuv" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Buffer -> Buffer
Gst.Buffer.Buffer) Ptr Buffer
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Buffer -> IO Buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetPixelsUnscaledAyuvMethodInfo
instance (signature ~ ([GstVideo.Flags.VideoOverlayFormatFlags] -> m Gst.Buffer.Buffer), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetPixelsUnscaledAyuvMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetPixelsUnscaledAyuv
#endif
foreign import ccall "gst_video_overlay_rectangle_get_pixels_unscaled_raw" gst_video_overlay_rectangle_get_pixels_unscaled_raw ::
Ptr VideoOverlayRectangle ->
CUInt ->
IO (Ptr Gst.Buffer.Buffer)
videoOverlayRectangleGetPixelsUnscaledRaw ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> [GstVideo.Flags.VideoOverlayFormatFlags]
-> m Gst.Buffer.Buffer
videoOverlayRectangleGetPixelsUnscaledRaw :: VideoOverlayRectangle -> [VideoOverlayFormatFlags] -> m Buffer
videoOverlayRectangleGetPixelsUnscaledRaw rectangle :: VideoOverlayRectangle
rectangle flags :: [VideoOverlayFormatFlags]
flags = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
let flags' :: CUInt
flags' = [VideoOverlayFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoOverlayFormatFlags]
flags
Ptr Buffer
result <- Ptr VideoOverlayRectangle -> CUInt -> IO (Ptr Buffer)
gst_video_overlay_rectangle_get_pixels_unscaled_raw Ptr VideoOverlayRectangle
rectangle' CUInt
flags'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoOverlayRectangleGetPixelsUnscaledRaw" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Buffer -> Buffer
Gst.Buffer.Buffer) Ptr Buffer
result
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Buffer -> IO Buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetPixelsUnscaledRawMethodInfo
instance (signature ~ ([GstVideo.Flags.VideoOverlayFormatFlags] -> m Gst.Buffer.Buffer), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetPixelsUnscaledRawMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetPixelsUnscaledRaw
#endif
foreign import ccall "gst_video_overlay_rectangle_get_render_rectangle" gst_video_overlay_rectangle_get_render_rectangle ::
Ptr VideoOverlayRectangle ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Word32 ->
Ptr Word32 ->
IO CInt
videoOverlayRectangleGetRenderRectangle ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> m ((Bool, Int32, Int32, Word32, Word32))
videoOverlayRectangleGetRenderRectangle :: VideoOverlayRectangle -> m (Bool, Int32, Int32, Word32, Word32)
videoOverlayRectangleGetRenderRectangle rectangle :: VideoOverlayRectangle
rectangle = IO (Bool, Int32, Int32, Word32, Word32)
-> m (Bool, Int32, Int32, Word32, Word32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32, Word32, Word32)
-> m (Bool, Int32, Int32, Word32, Word32))
-> IO (Bool, Int32, Int32, Word32, Word32)
-> m (Bool, Int32, Int32, Word32, Word32)
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
Ptr Int32
renderX <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
renderY <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Word32
renderWidth <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr Word32
renderHeight <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
CInt
result <- Ptr VideoOverlayRectangle
-> Ptr Int32 -> Ptr Int32 -> Ptr Word32 -> Ptr Word32 -> IO CInt
gst_video_overlay_rectangle_get_render_rectangle Ptr VideoOverlayRectangle
rectangle' Ptr Int32
renderX Ptr Int32
renderY Ptr Word32
renderWidth Ptr Word32
renderHeight
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Int32
renderX' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
renderX
Int32
renderY' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
renderY
Word32
renderWidth' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
renderWidth
Word32
renderHeight' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
renderHeight
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
renderX
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
renderY
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
renderWidth
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
renderHeight
(Bool, Int32, Int32, Word32, Word32)
-> IO (Bool, Int32, Int32, Word32, Word32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
renderX', Int32
renderY', Word32
renderWidth', Word32
renderHeight')
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetRenderRectangleMethodInfo
instance (signature ~ (m ((Bool, Int32, Int32, Word32, Word32))), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetRenderRectangleMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetRenderRectangle
#endif
foreign import ccall "gst_video_overlay_rectangle_get_seqnum" gst_video_overlay_rectangle_get_seqnum ::
Ptr VideoOverlayRectangle ->
IO Word32
videoOverlayRectangleGetSeqnum ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> m Word32
videoOverlayRectangleGetSeqnum :: VideoOverlayRectangle -> m Word32
videoOverlayRectangleGetSeqnum rectangle :: VideoOverlayRectangle
rectangle = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
Word32
result <- Ptr VideoOverlayRectangle -> IO Word32
gst_video_overlay_rectangle_get_seqnum Ptr VideoOverlayRectangle
rectangle'
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleGetSeqnumMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo VideoOverlayRectangleGetSeqnumMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleGetSeqnum
#endif
foreign import ccall "gst_video_overlay_rectangle_set_global_alpha" gst_video_overlay_rectangle_set_global_alpha ::
Ptr VideoOverlayRectangle ->
CFloat ->
IO ()
videoOverlayRectangleSetGlobalAlpha ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> Float
-> m ()
videoOverlayRectangleSetGlobalAlpha :: VideoOverlayRectangle -> Float -> m ()
videoOverlayRectangleSetGlobalAlpha rectangle :: VideoOverlayRectangle
rectangle globalAlpha :: Float
globalAlpha = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
let globalAlpha' :: CFloat
globalAlpha' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
globalAlpha
Ptr VideoOverlayRectangle -> CFloat -> IO ()
gst_video_overlay_rectangle_set_global_alpha Ptr VideoOverlayRectangle
rectangle' CFloat
globalAlpha'
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleSetGlobalAlphaMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m) => O.MethodInfo VideoOverlayRectangleSetGlobalAlphaMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleSetGlobalAlpha
#endif
foreign import ccall "gst_video_overlay_rectangle_set_render_rectangle" gst_video_overlay_rectangle_set_render_rectangle ::
Ptr VideoOverlayRectangle ->
Int32 ->
Int32 ->
Word32 ->
Word32 ->
IO ()
videoOverlayRectangleSetRenderRectangle ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoOverlayRectangle
-> Int32
-> Int32
-> Word32
-> Word32
-> m ()
videoOverlayRectangleSetRenderRectangle :: VideoOverlayRectangle -> Int32 -> Int32 -> Word32 -> Word32 -> m ()
videoOverlayRectangleSetRenderRectangle rectangle :: VideoOverlayRectangle
rectangle renderX :: Int32
renderX renderY :: Int32
renderY renderWidth :: Word32
renderWidth renderHeight :: Word32
renderHeight = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoOverlayRectangle
rectangle' <- VideoOverlayRectangle -> IO (Ptr VideoOverlayRectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoOverlayRectangle
rectangle
Ptr VideoOverlayRectangle
-> Int32 -> Int32 -> Word32 -> Word32 -> IO ()
gst_video_overlay_rectangle_set_render_rectangle Ptr VideoOverlayRectangle
rectangle' Int32
renderX Int32
renderY Word32
renderWidth Word32
renderHeight
VideoOverlayRectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoOverlayRectangle
rectangle
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data VideoOverlayRectangleSetRenderRectangleMethodInfo
instance (signature ~ (Int32 -> Int32 -> Word32 -> Word32 -> m ()), MonadIO m) => O.MethodInfo VideoOverlayRectangleSetRenderRectangleMethodInfo VideoOverlayRectangle signature where
overloadedMethod = videoOverlayRectangleSetRenderRectangle
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveVideoOverlayRectangleMethod (t :: Symbol) (o :: *) :: * where
ResolveVideoOverlayRectangleMethod "copy" o = VideoOverlayRectangleCopyMethodInfo
ResolveVideoOverlayRectangleMethod "getFlags" o = VideoOverlayRectangleGetFlagsMethodInfo
ResolveVideoOverlayRectangleMethod "getGlobalAlpha" o = VideoOverlayRectangleGetGlobalAlphaMethodInfo
ResolveVideoOverlayRectangleMethod "getPixelsArgb" o = VideoOverlayRectangleGetPixelsArgbMethodInfo
ResolveVideoOverlayRectangleMethod "getPixelsAyuv" o = VideoOverlayRectangleGetPixelsAyuvMethodInfo
ResolveVideoOverlayRectangleMethod "getPixelsRaw" o = VideoOverlayRectangleGetPixelsRawMethodInfo
ResolveVideoOverlayRectangleMethod "getPixelsUnscaledArgb" o = VideoOverlayRectangleGetPixelsUnscaledArgbMethodInfo
ResolveVideoOverlayRectangleMethod "getPixelsUnscaledAyuv" o = VideoOverlayRectangleGetPixelsUnscaledAyuvMethodInfo
ResolveVideoOverlayRectangleMethod "getPixelsUnscaledRaw" o = VideoOverlayRectangleGetPixelsUnscaledRawMethodInfo
ResolveVideoOverlayRectangleMethod "getRenderRectangle" o = VideoOverlayRectangleGetRenderRectangleMethodInfo
ResolveVideoOverlayRectangleMethod "getSeqnum" o = VideoOverlayRectangleGetSeqnumMethodInfo
ResolveVideoOverlayRectangleMethod "setGlobalAlpha" o = VideoOverlayRectangleSetGlobalAlphaMethodInfo
ResolveVideoOverlayRectangleMethod "setRenderRectangle" o = VideoOverlayRectangleSetRenderRectangleMethodInfo
ResolveVideoOverlayRectangleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoOverlayRectangleMethod t VideoOverlayRectangle, O.MethodInfo info VideoOverlayRectangle p) => OL.IsLabel t (VideoOverlayRectangle -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif