{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) An opaque video overlay rectangle object. A rectangle contains a single overlay rectangle which can be added to a composition. -} module GI.GstVideo.Structs.VideoOverlayRectangle ( -- * Exported types VideoOverlayRectangle(..) , noVideoOverlayRectangle , -- * Methods -- ** videoOverlayRectangleCopy VideoOverlayRectangleCopyMethodInfo , videoOverlayRectangleCopy , -- ** videoOverlayRectangleGetFlags VideoOverlayRectangleGetFlagsMethodInfo , videoOverlayRectangleGetFlags , -- ** videoOverlayRectangleGetGlobalAlpha VideoOverlayRectangleGetGlobalAlphaMethodInfo, videoOverlayRectangleGetGlobalAlpha , -- ** videoOverlayRectangleGetPixelsArgb VideoOverlayRectangleGetPixelsArgbMethodInfo, videoOverlayRectangleGetPixelsArgb , -- ** videoOverlayRectangleGetPixelsAyuv VideoOverlayRectangleGetPixelsAyuvMethodInfo, videoOverlayRectangleGetPixelsAyuv , -- ** videoOverlayRectangleGetPixelsRaw VideoOverlayRectangleGetPixelsRawMethodInfo, videoOverlayRectangleGetPixelsRaw , -- ** videoOverlayRectangleGetPixelsUnscaledArgb VideoOverlayRectangleGetPixelsUnscaledArgbMethodInfo, videoOverlayRectangleGetPixelsUnscaledArgb, -- ** videoOverlayRectangleGetPixelsUnscaledAyuv VideoOverlayRectangleGetPixelsUnscaledAyuvMethodInfo, videoOverlayRectangleGetPixelsUnscaledAyuv, -- ** videoOverlayRectangleGetPixelsUnscaledRaw VideoOverlayRectangleGetPixelsUnscaledRawMethodInfo, videoOverlayRectangleGetPixelsUnscaledRaw, -- ** videoOverlayRectangleGetRenderRectangle VideoOverlayRectangleGetRenderRectangleMethodInfo, videoOverlayRectangleGetRenderRectangle , -- ** videoOverlayRectangleGetSeqnum VideoOverlayRectangleGetSeqnumMethodInfo, videoOverlayRectangleGetSeqnum , -- ** videoOverlayRectangleNewRaw videoOverlayRectangleNewRaw , -- ** videoOverlayRectangleSetGlobalAlpha VideoOverlayRectangleSetGlobalAlphaMethodInfo, videoOverlayRectangleSetGlobalAlpha , -- ** videoOverlayRectangleSetRenderRectangle VideoOverlayRectangleSetRenderRectangleMethodInfo, videoOverlayRectangleSetRenderRectangle , ) where import Prelude () import Data.GI.Base.ShortPrelude import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.GstVideo.Types import GI.GstVideo.Callbacks import qualified GI.Gst as Gst newtype VideoOverlayRectangle = VideoOverlayRectangle (ForeignPtr VideoOverlayRectangle) foreign import ccall "gst_video_overlay_rectangle_get_type" c_gst_video_overlay_rectangle_get_type :: IO GType instance BoxedObject VideoOverlayRectangle where boxedType _ = c_gst_video_overlay_rectangle_get_type noVideoOverlayRectangle :: Maybe VideoOverlayRectangle noVideoOverlayRectangle = Nothing -- method VideoOverlayRectangle::new_raw -- method type : Constructor -- Args : [Arg {argCName = "pixels", argType = TInterface "Gst" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GstVideo" "VideoOverlayFormatFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "GstVideo" "VideoOverlayRectangle" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_new_raw" gst_video_overlay_rectangle_new_raw :: Ptr Gst.Buffer -> -- pixels : TInterface "Gst" "Buffer" Int32 -> -- render_x : TBasicType TInt32 Int32 -> -- render_y : TBasicType TInt32 Word32 -> -- render_width : TBasicType TUInt32 Word32 -> -- render_height : TBasicType TUInt32 CUInt -> -- flags : TInterface "GstVideo" "VideoOverlayFormatFlags" IO (Ptr VideoOverlayRectangle) videoOverlayRectangleNewRaw :: (MonadIO m) => Gst.Buffer -- pixels -> Int32 -- renderX -> Int32 -- renderY -> Word32 -- renderWidth -> Word32 -- renderHeight -> VideoOverlayFormatFlags -- flags -> m VideoOverlayRectangle -- result videoOverlayRectangleNewRaw pixels renderX renderY renderWidth renderHeight flags = liftIO $ do let pixels' = unsafeManagedPtrGetPtr pixels let flags' = (fromIntegral . fromEnum) flags result <- gst_video_overlay_rectangle_new_raw pixels' renderX renderY renderWidth renderHeight flags' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_new_raw" result result' <- (wrapBoxed VideoOverlayRectangle) result touchManagedPtr pixels return result' -- method VideoOverlayRectangle::copy -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "GstVideo" "VideoOverlayRectangle" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_copy" gst_video_overlay_rectangle_copy :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" IO (Ptr VideoOverlayRectangle) videoOverlayRectangleCopy :: (MonadIO m) => VideoOverlayRectangle -- _obj -> m VideoOverlayRectangle -- result videoOverlayRectangleCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gst_video_overlay_rectangle_copy _obj' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_copy" result result' <- (wrapBoxed VideoOverlayRectangle) result touchManagedPtr _obj return result' data VideoOverlayRectangleCopyMethodInfo instance (signature ~ (m VideoOverlayRectangle), MonadIO m) => MethodInfo VideoOverlayRectangleCopyMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleCopy -- method VideoOverlayRectangle::get_flags -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "GstVideo" "VideoOverlayFormatFlags" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_flags" gst_video_overlay_rectangle_get_flags :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" IO CUInt videoOverlayRectangleGetFlags :: (MonadIO m) => VideoOverlayRectangle -- _obj -> m VideoOverlayFormatFlags -- result videoOverlayRectangleGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gst_video_overlay_rectangle_get_flags _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' data VideoOverlayRectangleGetFlagsMethodInfo instance (signature ~ (m VideoOverlayFormatFlags), MonadIO m) => MethodInfo VideoOverlayRectangleGetFlagsMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetFlags -- method VideoOverlayRectangle::get_global_alpha -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TFloat -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_global_alpha" gst_video_overlay_rectangle_get_global_alpha :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" IO CFloat videoOverlayRectangleGetGlobalAlpha :: (MonadIO m) => VideoOverlayRectangle -- _obj -> m Float -- result videoOverlayRectangleGetGlobalAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gst_video_overlay_rectangle_get_global_alpha _obj' let result' = realToFrac result touchManagedPtr _obj return result' data VideoOverlayRectangleGetGlobalAlphaMethodInfo instance (signature ~ (m Float), MonadIO m) => MethodInfo VideoOverlayRectangleGetGlobalAlphaMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetGlobalAlpha -- method VideoOverlayRectangle::get_pixels_argb -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GstVideo" "VideoOverlayFormatFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Buffer" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_pixels_argb" gst_video_overlay_rectangle_get_pixels_argb :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" CUInt -> -- flags : TInterface "GstVideo" "VideoOverlayFormatFlags" IO (Ptr Gst.Buffer) videoOverlayRectangleGetPixelsArgb :: (MonadIO m) => VideoOverlayRectangle -- _obj -> VideoOverlayFormatFlags -- flags -> m Gst.Buffer -- result videoOverlayRectangleGetPixelsArgb _obj flags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let flags' = (fromIntegral . fromEnum) flags result <- gst_video_overlay_rectangle_get_pixels_argb _obj' flags' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_get_pixels_argb" result result' <- (newBoxed Gst.Buffer) result touchManagedPtr _obj return result' data VideoOverlayRectangleGetPixelsArgbMethodInfo instance (signature ~ (VideoOverlayFormatFlags -> m Gst.Buffer), MonadIO m) => MethodInfo VideoOverlayRectangleGetPixelsArgbMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetPixelsArgb -- method VideoOverlayRectangle::get_pixels_ayuv -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GstVideo" "VideoOverlayFormatFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Buffer" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_pixels_ayuv" gst_video_overlay_rectangle_get_pixels_ayuv :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" CUInt -> -- flags : TInterface "GstVideo" "VideoOverlayFormatFlags" IO (Ptr Gst.Buffer) videoOverlayRectangleGetPixelsAyuv :: (MonadIO m) => VideoOverlayRectangle -- _obj -> VideoOverlayFormatFlags -- flags -> m Gst.Buffer -- result videoOverlayRectangleGetPixelsAyuv _obj flags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let flags' = (fromIntegral . fromEnum) flags result <- gst_video_overlay_rectangle_get_pixels_ayuv _obj' flags' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_get_pixels_ayuv" result result' <- (newBoxed Gst.Buffer) result touchManagedPtr _obj return result' data VideoOverlayRectangleGetPixelsAyuvMethodInfo instance (signature ~ (VideoOverlayFormatFlags -> m Gst.Buffer), MonadIO m) => MethodInfo VideoOverlayRectangleGetPixelsAyuvMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetPixelsAyuv -- method VideoOverlayRectangle::get_pixels_raw -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GstVideo" "VideoOverlayFormatFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Buffer" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_pixels_raw" gst_video_overlay_rectangle_get_pixels_raw :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" CUInt -> -- flags : TInterface "GstVideo" "VideoOverlayFormatFlags" IO (Ptr Gst.Buffer) videoOverlayRectangleGetPixelsRaw :: (MonadIO m) => VideoOverlayRectangle -- _obj -> VideoOverlayFormatFlags -- flags -> m Gst.Buffer -- result videoOverlayRectangleGetPixelsRaw _obj flags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let flags' = (fromIntegral . fromEnum) flags result <- gst_video_overlay_rectangle_get_pixels_raw _obj' flags' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_get_pixels_raw" result result' <- (newBoxed Gst.Buffer) result touchManagedPtr _obj return result' data VideoOverlayRectangleGetPixelsRawMethodInfo instance (signature ~ (VideoOverlayFormatFlags -> m Gst.Buffer), MonadIO m) => MethodInfo VideoOverlayRectangleGetPixelsRawMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetPixelsRaw -- method VideoOverlayRectangle::get_pixels_unscaled_argb -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GstVideo" "VideoOverlayFormatFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Buffer" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_pixels_unscaled_argb" gst_video_overlay_rectangle_get_pixels_unscaled_argb :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" CUInt -> -- flags : TInterface "GstVideo" "VideoOverlayFormatFlags" IO (Ptr Gst.Buffer) videoOverlayRectangleGetPixelsUnscaledArgb :: (MonadIO m) => VideoOverlayRectangle -- _obj -> VideoOverlayFormatFlags -- flags -> m Gst.Buffer -- result videoOverlayRectangleGetPixelsUnscaledArgb _obj flags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let flags' = (fromIntegral . fromEnum) flags result <- gst_video_overlay_rectangle_get_pixels_unscaled_argb _obj' flags' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_get_pixels_unscaled_argb" result result' <- (newBoxed Gst.Buffer) result touchManagedPtr _obj return result' data VideoOverlayRectangleGetPixelsUnscaledArgbMethodInfo instance (signature ~ (VideoOverlayFormatFlags -> m Gst.Buffer), MonadIO m) => MethodInfo VideoOverlayRectangleGetPixelsUnscaledArgbMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetPixelsUnscaledArgb -- method VideoOverlayRectangle::get_pixels_unscaled_ayuv -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GstVideo" "VideoOverlayFormatFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Buffer" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_pixels_unscaled_ayuv" gst_video_overlay_rectangle_get_pixels_unscaled_ayuv :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" CUInt -> -- flags : TInterface "GstVideo" "VideoOverlayFormatFlags" IO (Ptr Gst.Buffer) videoOverlayRectangleGetPixelsUnscaledAyuv :: (MonadIO m) => VideoOverlayRectangle -- _obj -> VideoOverlayFormatFlags -- flags -> m Gst.Buffer -- result videoOverlayRectangleGetPixelsUnscaledAyuv _obj flags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let flags' = (fromIntegral . fromEnum) flags result <- gst_video_overlay_rectangle_get_pixels_unscaled_ayuv _obj' flags' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_get_pixels_unscaled_ayuv" result result' <- (newBoxed Gst.Buffer) result touchManagedPtr _obj return result' data VideoOverlayRectangleGetPixelsUnscaledAyuvMethodInfo instance (signature ~ (VideoOverlayFormatFlags -> m Gst.Buffer), MonadIO m) => MethodInfo VideoOverlayRectangleGetPixelsUnscaledAyuvMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetPixelsUnscaledAyuv -- method VideoOverlayRectangle::get_pixels_unscaled_raw -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GstVideo" "VideoOverlayFormatFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Buffer" -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_pixels_unscaled_raw" gst_video_overlay_rectangle_get_pixels_unscaled_raw :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" CUInt -> -- flags : TInterface "GstVideo" "VideoOverlayFormatFlags" IO (Ptr Gst.Buffer) videoOverlayRectangleGetPixelsUnscaledRaw :: (MonadIO m) => VideoOverlayRectangle -- _obj -> VideoOverlayFormatFlags -- flags -> m Gst.Buffer -- result videoOverlayRectangleGetPixelsUnscaledRaw _obj flags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let flags' = (fromIntegral . fromEnum) flags result <- gst_video_overlay_rectangle_get_pixels_unscaled_raw _obj' flags' checkUnexpectedReturnNULL "gst_video_overlay_rectangle_get_pixels_unscaled_raw" result result' <- (newBoxed Gst.Buffer) result touchManagedPtr _obj return result' data VideoOverlayRectangleGetPixelsUnscaledRawMethodInfo instance (signature ~ (VideoOverlayFormatFlags -> m Gst.Buffer), MonadIO m) => MethodInfo VideoOverlayRectangleGetPixelsUnscaledRawMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetPixelsUnscaledRaw -- method VideoOverlayRectangle::get_render_rectangle -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "render_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "render_width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "render_height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_render_rectangle" gst_video_overlay_rectangle_get_render_rectangle :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" Ptr Int32 -> -- render_x : TBasicType TInt32 Ptr Int32 -> -- render_y : TBasicType TInt32 Ptr Word32 -> -- render_width : TBasicType TUInt32 Ptr Word32 -> -- render_height : TBasicType TUInt32 IO CInt videoOverlayRectangleGetRenderRectangle :: (MonadIO m) => VideoOverlayRectangle -- _obj -> m (Bool,Int32,Int32,Word32,Word32) -- result videoOverlayRectangleGetRenderRectangle _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj renderX <- allocMem :: IO (Ptr Int32) renderY <- allocMem :: IO (Ptr Int32) renderWidth <- allocMem :: IO (Ptr Word32) renderHeight <- allocMem :: IO (Ptr Word32) result <- gst_video_overlay_rectangle_get_render_rectangle _obj' renderX renderY renderWidth renderHeight let result' = (/= 0) result renderX' <- peek renderX renderY' <- peek renderY renderWidth' <- peek renderWidth renderHeight' <- peek renderHeight touchManagedPtr _obj freeMem renderX freeMem renderY freeMem renderWidth freeMem renderHeight return (result', renderX', renderY', renderWidth', renderHeight') data VideoOverlayRectangleGetRenderRectangleMethodInfo instance (signature ~ (m (Bool,Int32,Int32,Word32,Word32)), MonadIO m) => MethodInfo VideoOverlayRectangleGetRenderRectangleMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetRenderRectangle -- method VideoOverlayRectangle::get_seqnum -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_get_seqnum" gst_video_overlay_rectangle_get_seqnum :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" IO Word32 videoOverlayRectangleGetSeqnum :: (MonadIO m) => VideoOverlayRectangle -- _obj -> m Word32 -- result videoOverlayRectangleGetSeqnum _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gst_video_overlay_rectangle_get_seqnum _obj' touchManagedPtr _obj return result data VideoOverlayRectangleGetSeqnumMethodInfo instance (signature ~ (m Word32), MonadIO m) => MethodInfo VideoOverlayRectangleGetSeqnumMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleGetSeqnum -- method VideoOverlayRectangle::set_global_alpha -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "global_alpha", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_set_global_alpha" gst_video_overlay_rectangle_set_global_alpha :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" CFloat -> -- global_alpha : TBasicType TFloat IO () videoOverlayRectangleSetGlobalAlpha :: (MonadIO m) => VideoOverlayRectangle -- _obj -> Float -- globalAlpha -> m () -- result videoOverlayRectangleSetGlobalAlpha _obj globalAlpha = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let globalAlpha' = realToFrac globalAlpha gst_video_overlay_rectangle_set_global_alpha _obj' globalAlpha' touchManagedPtr _obj return () data VideoOverlayRectangleSetGlobalAlphaMethodInfo instance (signature ~ (Float -> m ()), MonadIO m) => MethodInfo VideoOverlayRectangleSetGlobalAlphaMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleSetGlobalAlpha -- method VideoOverlayRectangle::set_render_rectangle -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GstVideo" "VideoOverlayRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "render_height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_video_overlay_rectangle_set_render_rectangle" gst_video_overlay_rectangle_set_render_rectangle :: Ptr VideoOverlayRectangle -> -- _obj : TInterface "GstVideo" "VideoOverlayRectangle" Int32 -> -- render_x : TBasicType TInt32 Int32 -> -- render_y : TBasicType TInt32 Word32 -> -- render_width : TBasicType TUInt32 Word32 -> -- render_height : TBasicType TUInt32 IO () videoOverlayRectangleSetRenderRectangle :: (MonadIO m) => VideoOverlayRectangle -- _obj -> Int32 -- renderX -> Int32 -- renderY -> Word32 -- renderWidth -> Word32 -- renderHeight -> m () -- result videoOverlayRectangleSetRenderRectangle _obj renderX renderY renderWidth renderHeight = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gst_video_overlay_rectangle_set_render_rectangle _obj' renderX renderY renderWidth renderHeight touchManagedPtr _obj return () data VideoOverlayRectangleSetRenderRectangleMethodInfo instance (signature ~ (Int32 -> Int32 -> Word32 -> Word32 -> m ()), MonadIO m) => MethodInfo VideoOverlayRectangleSetRenderRectangleMethodInfo VideoOverlayRectangle signature where overloadedMethod _ = videoOverlayRectangleSetRenderRectangle 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 = MethodResolutionFailed l o instance (info ~ ResolveVideoOverlayRectangleMethod t VideoOverlayRectangle, MethodInfo info VideoOverlayRectangle p) => IsLabelProxy t (VideoOverlayRectangle -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveVideoOverlayRectangleMethod t VideoOverlayRectangle, MethodInfo info VideoOverlayRectangle p) => IsLabel t (VideoOverlayRectangle -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif