#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstVideo.Enums
(
ColorBalanceType(..) ,
NavigationCommand(..) ,
NavigationEventType(..) ,
NavigationMessageType(..) ,
NavigationQueryType(..) ,
VideoAlphaMode(..) ,
VideoAncillaryDID(..) ,
VideoAncillaryDID16(..) ,
VideoCaptionType(..) ,
VideoChromaMethod(..) ,
VideoChromaMode(..) ,
VideoColorMatrix(..) ,
VideoColorPrimaries(..) ,
VideoColorRange(..) ,
VideoDitherMethod(..) ,
VideoFieldOrder(..) ,
VideoFormat(..) ,
VideoGLTextureOrientation(..) ,
VideoGLTextureType(..) ,
VideoGammaMode(..) ,
VideoInterlaceMode(..) ,
VideoMatrixMode(..) ,
VideoMultiviewFramePacking(..) ,
VideoMultiviewMode(..) ,
VideoOrientationMethod(..) ,
VideoPrimariesMode(..) ,
VideoResamplerMethod(..) ,
VideoTileMode(..) ,
VideoTileType(..) ,
VideoTransferFunction(..) ,
VideoVBIParserResult(..) ,
) 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.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
data VideoVBIParserResult =
VideoVBIParserResultDone
| VideoVBIParserResultOk
| VideoVBIParserResultError
| AnotherVideoVBIParserResult Int
deriving (Show, Eq)
instance P.Enum VideoVBIParserResult where
fromEnum VideoVBIParserResultDone = 0
fromEnum VideoVBIParserResultOk = 1
fromEnum VideoVBIParserResultError = 2
fromEnum (AnotherVideoVBIParserResult k) = k
toEnum 0 = VideoVBIParserResultDone
toEnum 1 = VideoVBIParserResultOk
toEnum 2 = VideoVBIParserResultError
toEnum k = AnotherVideoVBIParserResult k
instance P.Ord VideoVBIParserResult where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_vbi_parser_result_get_type" c_gst_video_vbi_parser_result_get_type ::
IO GType
instance BoxedEnum VideoVBIParserResult where
boxedEnumType _ = c_gst_video_vbi_parser_result_get_type
data VideoTransferFunction =
VideoTransferFunctionUnknown
| VideoTransferFunctionGamma10
| VideoTransferFunctionGamma18
| VideoTransferFunctionGamma20
| VideoTransferFunctionGamma22
| VideoTransferFunctionBt709
| VideoTransferFunctionSmpte240m
| VideoTransferFunctionSrgb
| VideoTransferFunctionGamma28
| VideoTransferFunctionLog100
| VideoTransferFunctionLog316
| VideoTransferFunctionBt202012
| VideoTransferFunctionAdobergb
| AnotherVideoTransferFunction Int
deriving (Show, Eq)
instance P.Enum VideoTransferFunction where
fromEnum VideoTransferFunctionUnknown = 0
fromEnum VideoTransferFunctionGamma10 = 1
fromEnum VideoTransferFunctionGamma18 = 2
fromEnum VideoTransferFunctionGamma20 = 3
fromEnum VideoTransferFunctionGamma22 = 4
fromEnum VideoTransferFunctionBt709 = 5
fromEnum VideoTransferFunctionSmpte240m = 6
fromEnum VideoTransferFunctionSrgb = 7
fromEnum VideoTransferFunctionGamma28 = 8
fromEnum VideoTransferFunctionLog100 = 9
fromEnum VideoTransferFunctionLog316 = 10
fromEnum VideoTransferFunctionBt202012 = 11
fromEnum VideoTransferFunctionAdobergb = 12
fromEnum (AnotherVideoTransferFunction k) = k
toEnum 0 = VideoTransferFunctionUnknown
toEnum 1 = VideoTransferFunctionGamma10
toEnum 2 = VideoTransferFunctionGamma18
toEnum 3 = VideoTransferFunctionGamma20
toEnum 4 = VideoTransferFunctionGamma22
toEnum 5 = VideoTransferFunctionBt709
toEnum 6 = VideoTransferFunctionSmpte240m
toEnum 7 = VideoTransferFunctionSrgb
toEnum 8 = VideoTransferFunctionGamma28
toEnum 9 = VideoTransferFunctionLog100
toEnum 10 = VideoTransferFunctionLog316
toEnum 11 = VideoTransferFunctionBt202012
toEnum 12 = VideoTransferFunctionAdobergb
toEnum k = AnotherVideoTransferFunction k
instance P.Ord VideoTransferFunction where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_transfer_function_get_type" c_gst_video_transfer_function_get_type ::
IO GType
instance BoxedEnum VideoTransferFunction where
boxedEnumType _ = c_gst_video_transfer_function_get_type
data VideoTileType =
VideoTileTypeIndexed
| AnotherVideoTileType Int
deriving (Show, Eq)
instance P.Enum VideoTileType where
fromEnum VideoTileTypeIndexed = 0
fromEnum (AnotherVideoTileType k) = k
toEnum 0 = VideoTileTypeIndexed
toEnum k = AnotherVideoTileType k
instance P.Ord VideoTileType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_tile_type_get_type" c_gst_video_tile_type_get_type ::
IO GType
instance BoxedEnum VideoTileType where
boxedEnumType _ = c_gst_video_tile_type_get_type
data VideoTileMode =
VideoTileModeUnknown
| VideoTileModeZflipz2x2
| AnotherVideoTileMode Int
deriving (Show, Eq)
instance P.Enum VideoTileMode where
fromEnum VideoTileModeUnknown = 0
fromEnum VideoTileModeZflipz2x2 = 65536
fromEnum (AnotherVideoTileMode k) = k
toEnum 0 = VideoTileModeUnknown
toEnum 65536 = VideoTileModeZflipz2x2
toEnum k = AnotherVideoTileMode k
instance P.Ord VideoTileMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_tile_mode_get_type" c_gst_video_tile_mode_get_type ::
IO GType
instance BoxedEnum VideoTileMode where
boxedEnumType _ = c_gst_video_tile_mode_get_type
data VideoResamplerMethod =
VideoResamplerMethodNearest
| VideoResamplerMethodLinear
| VideoResamplerMethodCubic
| VideoResamplerMethodSinc
| VideoResamplerMethodLanczos
| AnotherVideoResamplerMethod Int
deriving (Show, Eq)
instance P.Enum VideoResamplerMethod where
fromEnum VideoResamplerMethodNearest = 0
fromEnum VideoResamplerMethodLinear = 1
fromEnum VideoResamplerMethodCubic = 2
fromEnum VideoResamplerMethodSinc = 3
fromEnum VideoResamplerMethodLanczos = 4
fromEnum (AnotherVideoResamplerMethod k) = k
toEnum 0 = VideoResamplerMethodNearest
toEnum 1 = VideoResamplerMethodLinear
toEnum 2 = VideoResamplerMethodCubic
toEnum 3 = VideoResamplerMethodSinc
toEnum 4 = VideoResamplerMethodLanczos
toEnum k = AnotherVideoResamplerMethod k
instance P.Ord VideoResamplerMethod where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_resampler_method_get_type" c_gst_video_resampler_method_get_type ::
IO GType
instance BoxedEnum VideoResamplerMethod where
boxedEnumType _ = c_gst_video_resampler_method_get_type
data VideoPrimariesMode =
VideoPrimariesModeNone
| VideoPrimariesModeMergeOnly
| VideoPrimariesModeFast
| AnotherVideoPrimariesMode Int
deriving (Show, Eq)
instance P.Enum VideoPrimariesMode where
fromEnum VideoPrimariesModeNone = 0
fromEnum VideoPrimariesModeMergeOnly = 1
fromEnum VideoPrimariesModeFast = 2
fromEnum (AnotherVideoPrimariesMode k) = k
toEnum 0 = VideoPrimariesModeNone
toEnum 1 = VideoPrimariesModeMergeOnly
toEnum 2 = VideoPrimariesModeFast
toEnum k = AnotherVideoPrimariesMode k
instance P.Ord VideoPrimariesMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_primaries_mode_get_type" c_gst_video_primaries_mode_get_type ::
IO GType
instance BoxedEnum VideoPrimariesMode where
boxedEnumType _ = c_gst_video_primaries_mode_get_type
data VideoOrientationMethod =
VideoOrientationMethodIdentity
| VideoOrientationMethod90r
| VideoOrientationMethod180
| VideoOrientationMethod90l
| VideoOrientationMethodHoriz
| VideoOrientationMethodVert
| VideoOrientationMethodUlLr
| VideoOrientationMethodUrLl
| VideoOrientationMethodAuto
| VideoOrientationMethodCustom
| AnotherVideoOrientationMethod Int
deriving (Show, Eq)
instance P.Enum VideoOrientationMethod where
fromEnum VideoOrientationMethodIdentity = 0
fromEnum VideoOrientationMethod90r = 1
fromEnum VideoOrientationMethod180 = 2
fromEnum VideoOrientationMethod90l = 3
fromEnum VideoOrientationMethodHoriz = 4
fromEnum VideoOrientationMethodVert = 5
fromEnum VideoOrientationMethodUlLr = 6
fromEnum VideoOrientationMethodUrLl = 7
fromEnum VideoOrientationMethodAuto = 8
fromEnum VideoOrientationMethodCustom = 9
fromEnum (AnotherVideoOrientationMethod k) = k
toEnum 0 = VideoOrientationMethodIdentity
toEnum 1 = VideoOrientationMethod90r
toEnum 2 = VideoOrientationMethod180
toEnum 3 = VideoOrientationMethod90l
toEnum 4 = VideoOrientationMethodHoriz
toEnum 5 = VideoOrientationMethodVert
toEnum 6 = VideoOrientationMethodUlLr
toEnum 7 = VideoOrientationMethodUrLl
toEnum 8 = VideoOrientationMethodAuto
toEnum 9 = VideoOrientationMethodCustom
toEnum k = AnotherVideoOrientationMethod k
instance P.Ord VideoOrientationMethod where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_orientation_method_get_type" c_gst_video_orientation_method_get_type ::
IO GType
instance BoxedEnum VideoOrientationMethod where
boxedEnumType _ = c_gst_video_orientation_method_get_type
data VideoMultiviewMode =
VideoMultiviewModeNone
| VideoMultiviewModeMono
| VideoMultiviewModeLeft
| VideoMultiviewModeRight
| VideoMultiviewModeSideBySide
| VideoMultiviewModeSideBySideQuincunx
| VideoMultiviewModeColumnInterleaved
| VideoMultiviewModeRowInterleaved
| VideoMultiviewModeTopBottom
| VideoMultiviewModeCheckerboard
| VideoMultiviewModeFrameByFrame
| VideoMultiviewModeMultiviewFrameByFrame
| VideoMultiviewModeSeparated
| AnotherVideoMultiviewMode Int
deriving (Show, Eq)
instance P.Enum VideoMultiviewMode where
fromEnum VideoMultiviewModeNone = -1
fromEnum VideoMultiviewModeMono = 0
fromEnum VideoMultiviewModeLeft = 1
fromEnum VideoMultiviewModeRight = 2
fromEnum VideoMultiviewModeSideBySide = 3
fromEnum VideoMultiviewModeSideBySideQuincunx = 4
fromEnum VideoMultiviewModeColumnInterleaved = 5
fromEnum VideoMultiviewModeRowInterleaved = 6
fromEnum VideoMultiviewModeTopBottom = 7
fromEnum VideoMultiviewModeCheckerboard = 8
fromEnum VideoMultiviewModeFrameByFrame = 32
fromEnum VideoMultiviewModeMultiviewFrameByFrame = 33
fromEnum VideoMultiviewModeSeparated = 34
fromEnum (AnotherVideoMultiviewMode k) = k
toEnum -1 = VideoMultiviewModeNone
toEnum 0 = VideoMultiviewModeMono
toEnum 1 = VideoMultiviewModeLeft
toEnum 2 = VideoMultiviewModeRight
toEnum 3 = VideoMultiviewModeSideBySide
toEnum 4 = VideoMultiviewModeSideBySideQuincunx
toEnum 5 = VideoMultiviewModeColumnInterleaved
toEnum 6 = VideoMultiviewModeRowInterleaved
toEnum 7 = VideoMultiviewModeTopBottom
toEnum 8 = VideoMultiviewModeCheckerboard
toEnum 32 = VideoMultiviewModeFrameByFrame
toEnum 33 = VideoMultiviewModeMultiviewFrameByFrame
toEnum 34 = VideoMultiviewModeSeparated
toEnum k = AnotherVideoMultiviewMode k
instance P.Ord VideoMultiviewMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_multiview_mode_get_type" c_gst_video_multiview_mode_get_type ::
IO GType
instance BoxedEnum VideoMultiviewMode where
boxedEnumType _ = c_gst_video_multiview_mode_get_type
data VideoMultiviewFramePacking =
VideoMultiviewFramePackingNone
| VideoMultiviewFramePackingMono
| VideoMultiviewFramePackingLeft
| VideoMultiviewFramePackingRight
| VideoMultiviewFramePackingSideBySide
| VideoMultiviewFramePackingSideBySideQuincunx
| VideoMultiviewFramePackingColumnInterleaved
| VideoMultiviewFramePackingRowInterleaved
| VideoMultiviewFramePackingTopBottom
| VideoMultiviewFramePackingCheckerboard
| AnotherVideoMultiviewFramePacking Int
deriving (Show, Eq)
instance P.Enum VideoMultiviewFramePacking where
fromEnum VideoMultiviewFramePackingNone = -1
fromEnum VideoMultiviewFramePackingMono = 0
fromEnum VideoMultiviewFramePackingLeft = 1
fromEnum VideoMultiviewFramePackingRight = 2
fromEnum VideoMultiviewFramePackingSideBySide = 3
fromEnum VideoMultiviewFramePackingSideBySideQuincunx = 4
fromEnum VideoMultiviewFramePackingColumnInterleaved = 5
fromEnum VideoMultiviewFramePackingRowInterleaved = 6
fromEnum VideoMultiviewFramePackingTopBottom = 7
fromEnum VideoMultiviewFramePackingCheckerboard = 8
fromEnum (AnotherVideoMultiviewFramePacking k) = k
toEnum -1 = VideoMultiviewFramePackingNone
toEnum 0 = VideoMultiviewFramePackingMono
toEnum 1 = VideoMultiviewFramePackingLeft
toEnum 2 = VideoMultiviewFramePackingRight
toEnum 3 = VideoMultiviewFramePackingSideBySide
toEnum 4 = VideoMultiviewFramePackingSideBySideQuincunx
toEnum 5 = VideoMultiviewFramePackingColumnInterleaved
toEnum 6 = VideoMultiviewFramePackingRowInterleaved
toEnum 7 = VideoMultiviewFramePackingTopBottom
toEnum 8 = VideoMultiviewFramePackingCheckerboard
toEnum k = AnotherVideoMultiviewFramePacking k
instance P.Ord VideoMultiviewFramePacking where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_multiview_frame_packing_get_type" c_gst_video_multiview_frame_packing_get_type ::
IO GType
instance BoxedEnum VideoMultiviewFramePacking where
boxedEnumType _ = c_gst_video_multiview_frame_packing_get_type
data VideoMatrixMode =
VideoMatrixModeFull
| VideoMatrixModeInputOnly
| VideoMatrixModeOutputOnly
| VideoMatrixModeNone
| AnotherVideoMatrixMode Int
deriving (Show, Eq)
instance P.Enum VideoMatrixMode where
fromEnum VideoMatrixModeFull = 0
fromEnum VideoMatrixModeInputOnly = 1
fromEnum VideoMatrixModeOutputOnly = 2
fromEnum VideoMatrixModeNone = 3
fromEnum (AnotherVideoMatrixMode k) = k
toEnum 0 = VideoMatrixModeFull
toEnum 1 = VideoMatrixModeInputOnly
toEnum 2 = VideoMatrixModeOutputOnly
toEnum 3 = VideoMatrixModeNone
toEnum k = AnotherVideoMatrixMode k
instance P.Ord VideoMatrixMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_matrix_mode_get_type" c_gst_video_matrix_mode_get_type ::
IO GType
instance BoxedEnum VideoMatrixMode where
boxedEnumType _ = c_gst_video_matrix_mode_get_type
data VideoInterlaceMode =
VideoInterlaceModeProgressive
| VideoInterlaceModeInterleaved
| VideoInterlaceModeMixed
| VideoInterlaceModeFields
| VideoInterlaceModeAlternate
| AnotherVideoInterlaceMode Int
deriving (Show, Eq)
instance P.Enum VideoInterlaceMode where
fromEnum VideoInterlaceModeProgressive = 0
fromEnum VideoInterlaceModeInterleaved = 1
fromEnum VideoInterlaceModeMixed = 2
fromEnum VideoInterlaceModeFields = 3
fromEnum VideoInterlaceModeAlternate = 4
fromEnum (AnotherVideoInterlaceMode k) = k
toEnum 0 = VideoInterlaceModeProgressive
toEnum 1 = VideoInterlaceModeInterleaved
toEnum 2 = VideoInterlaceModeMixed
toEnum 3 = VideoInterlaceModeFields
toEnum 4 = VideoInterlaceModeAlternate
toEnum k = AnotherVideoInterlaceMode k
instance P.Ord VideoInterlaceMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_interlace_mode_get_type" c_gst_video_interlace_mode_get_type ::
IO GType
instance BoxedEnum VideoInterlaceMode where
boxedEnumType _ = c_gst_video_interlace_mode_get_type
data VideoGammaMode =
VideoGammaModeNone
| VideoGammaModeRemap
| AnotherVideoGammaMode Int
deriving (Show, Eq)
instance P.Enum VideoGammaMode where
fromEnum VideoGammaModeNone = 0
fromEnum VideoGammaModeRemap = 1
fromEnum (AnotherVideoGammaMode k) = k
toEnum 0 = VideoGammaModeNone
toEnum 1 = VideoGammaModeRemap
toEnum k = AnotherVideoGammaMode k
instance P.Ord VideoGammaMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_gamma_mode_get_type" c_gst_video_gamma_mode_get_type ::
IO GType
instance BoxedEnum VideoGammaMode where
boxedEnumType _ = c_gst_video_gamma_mode_get_type
data VideoGLTextureType =
VideoGLTextureTypeLuminance
| VideoGLTextureTypeLuminanceAlpha
| VideoGLTextureTypeRgb16
| VideoGLTextureTypeRgb
| VideoGLTextureTypeRgba
| VideoGLTextureTypeR
| VideoGLTextureTypeRg
| AnotherVideoGLTextureType Int
deriving (Show, Eq)
instance P.Enum VideoGLTextureType where
fromEnum VideoGLTextureTypeLuminance = 0
fromEnum VideoGLTextureTypeLuminanceAlpha = 1
fromEnum VideoGLTextureTypeRgb16 = 2
fromEnum VideoGLTextureTypeRgb = 3
fromEnum VideoGLTextureTypeRgba = 4
fromEnum VideoGLTextureTypeR = 5
fromEnum VideoGLTextureTypeRg = 6
fromEnum (AnotherVideoGLTextureType k) = k
toEnum 0 = VideoGLTextureTypeLuminance
toEnum 1 = VideoGLTextureTypeLuminanceAlpha
toEnum 2 = VideoGLTextureTypeRgb16
toEnum 3 = VideoGLTextureTypeRgb
toEnum 4 = VideoGLTextureTypeRgba
toEnum 5 = VideoGLTextureTypeR
toEnum 6 = VideoGLTextureTypeRg
toEnum k = AnotherVideoGLTextureType k
instance P.Ord VideoGLTextureType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data VideoGLTextureOrientation =
VideoGLTextureOrientationNormalYNormal
| VideoGLTextureOrientationNormalYFlip
| VideoGLTextureOrientationFlipYNormal
| VideoGLTextureOrientationFlipYFlip
| AnotherVideoGLTextureOrientation Int
deriving (Show, Eq)
instance P.Enum VideoGLTextureOrientation where
fromEnum VideoGLTextureOrientationNormalYNormal = 0
fromEnum VideoGLTextureOrientationNormalYFlip = 1
fromEnum VideoGLTextureOrientationFlipYNormal = 2
fromEnum VideoGLTextureOrientationFlipYFlip = 3
fromEnum (AnotherVideoGLTextureOrientation k) = k
toEnum 0 = VideoGLTextureOrientationNormalYNormal
toEnum 1 = VideoGLTextureOrientationNormalYFlip
toEnum 2 = VideoGLTextureOrientationFlipYNormal
toEnum 3 = VideoGLTextureOrientationFlipYFlip
toEnum k = AnotherVideoGLTextureOrientation k
instance P.Ord VideoGLTextureOrientation where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data VideoFormat =
VideoFormatUnknown
| VideoFormatEncoded
| VideoFormatI420
| VideoFormatYv12
| VideoFormatYuy2
| VideoFormatUyvy
| VideoFormatAyuv
| VideoFormatRgbx
| VideoFormatBgrx
| VideoFormatXrgb
| VideoFormatXbgr
| VideoFormatRgba
| VideoFormatBgra
| VideoFormatArgb
| VideoFormatAbgr
| VideoFormatRgb
| VideoFormatBgr
| VideoFormatY41b
| VideoFormatY42b
| VideoFormatYvyu
| VideoFormatY444
| VideoFormatV210
| VideoFormatV216
| VideoFormatNv12
| VideoFormatNv21
| VideoFormatGray8
| VideoFormatGray16Be
| VideoFormatGray16Le
| VideoFormatV308
| VideoFormatRgb16
| VideoFormatBgr16
| VideoFormatRgb15
| VideoFormatBgr15
| VideoFormatUyvp
| VideoFormatA420
| VideoFormatRgb8p
| VideoFormatYuv9
| VideoFormatYvu9
| VideoFormatIyu1
| VideoFormatArgb64
| VideoFormatAyuv64
| VideoFormatR210
| VideoFormatI42010be
| VideoFormatI42010le
| VideoFormatI42210be
| VideoFormatI42210le
| VideoFormatY44410be
| VideoFormatY44410le
| VideoFormatGbr
| VideoFormatGbr10be
| VideoFormatGbr10le
| VideoFormatNv16
| VideoFormatNv24
| VideoFormatNv1264z32
| VideoFormatA42010be
| VideoFormatA42010le
| VideoFormatA42210be
| VideoFormatA42210le
| VideoFormatA44410be
| VideoFormatA44410le
| VideoFormatNv61
| VideoFormatP01010be
| VideoFormatP01010le
| VideoFormatIyu2
| VideoFormatVyuy
| VideoFormatGbra
| VideoFormatGbra10be
| VideoFormatGbra10le
| VideoFormatGbr12be
| VideoFormatGbr12le
| VideoFormatGbra12be
| VideoFormatGbra12le
| VideoFormatI42012be
| VideoFormatI42012le
| VideoFormatI42212be
| VideoFormatI42212le
| VideoFormatY44412be
| VideoFormatY44412le
| VideoFormatGray10Le32
| VideoFormatNv1210le32
| VideoFormatNv1610le32
| VideoFormatNv1210le40
| VideoFormatY210
| VideoFormatY410
| VideoFormatVuya
| VideoFormatBgr10a2Le
| AnotherVideoFormat Int
deriving (Show, Eq)
instance P.Enum VideoFormat where
fromEnum VideoFormatUnknown = 0
fromEnum VideoFormatEncoded = 1
fromEnum VideoFormatI420 = 2
fromEnum VideoFormatYv12 = 3
fromEnum VideoFormatYuy2 = 4
fromEnum VideoFormatUyvy = 5
fromEnum VideoFormatAyuv = 6
fromEnum VideoFormatRgbx = 7
fromEnum VideoFormatBgrx = 8
fromEnum VideoFormatXrgb = 9
fromEnum VideoFormatXbgr = 10
fromEnum VideoFormatRgba = 11
fromEnum VideoFormatBgra = 12
fromEnum VideoFormatArgb = 13
fromEnum VideoFormatAbgr = 14
fromEnum VideoFormatRgb = 15
fromEnum VideoFormatBgr = 16
fromEnum VideoFormatY41b = 17
fromEnum VideoFormatY42b = 18
fromEnum VideoFormatYvyu = 19
fromEnum VideoFormatY444 = 20
fromEnum VideoFormatV210 = 21
fromEnum VideoFormatV216 = 22
fromEnum VideoFormatNv12 = 23
fromEnum VideoFormatNv21 = 24
fromEnum VideoFormatGray8 = 25
fromEnum VideoFormatGray16Be = 26
fromEnum VideoFormatGray16Le = 27
fromEnum VideoFormatV308 = 28
fromEnum VideoFormatRgb16 = 29
fromEnum VideoFormatBgr16 = 30
fromEnum VideoFormatRgb15 = 31
fromEnum VideoFormatBgr15 = 32
fromEnum VideoFormatUyvp = 33
fromEnum VideoFormatA420 = 34
fromEnum VideoFormatRgb8p = 35
fromEnum VideoFormatYuv9 = 36
fromEnum VideoFormatYvu9 = 37
fromEnum VideoFormatIyu1 = 38
fromEnum VideoFormatArgb64 = 39
fromEnum VideoFormatAyuv64 = 40
fromEnum VideoFormatR210 = 41
fromEnum VideoFormatI42010be = 42
fromEnum VideoFormatI42010le = 43
fromEnum VideoFormatI42210be = 44
fromEnum VideoFormatI42210le = 45
fromEnum VideoFormatY44410be = 46
fromEnum VideoFormatY44410le = 47
fromEnum VideoFormatGbr = 48
fromEnum VideoFormatGbr10be = 49
fromEnum VideoFormatGbr10le = 50
fromEnum VideoFormatNv16 = 51
fromEnum VideoFormatNv24 = 52
fromEnum VideoFormatNv1264z32 = 53
fromEnum VideoFormatA42010be = 54
fromEnum VideoFormatA42010le = 55
fromEnum VideoFormatA42210be = 56
fromEnum VideoFormatA42210le = 57
fromEnum VideoFormatA44410be = 58
fromEnum VideoFormatA44410le = 59
fromEnum VideoFormatNv61 = 60
fromEnum VideoFormatP01010be = 61
fromEnum VideoFormatP01010le = 62
fromEnum VideoFormatIyu2 = 63
fromEnum VideoFormatVyuy = 64
fromEnum VideoFormatGbra = 65
fromEnum VideoFormatGbra10be = 66
fromEnum VideoFormatGbra10le = 67
fromEnum VideoFormatGbr12be = 68
fromEnum VideoFormatGbr12le = 69
fromEnum VideoFormatGbra12be = 70
fromEnum VideoFormatGbra12le = 71
fromEnum VideoFormatI42012be = 72
fromEnum VideoFormatI42012le = 73
fromEnum VideoFormatI42212be = 74
fromEnum VideoFormatI42212le = 75
fromEnum VideoFormatY44412be = 76
fromEnum VideoFormatY44412le = 77
fromEnum VideoFormatGray10Le32 = 78
fromEnum VideoFormatNv1210le32 = 79
fromEnum VideoFormatNv1610le32 = 80
fromEnum VideoFormatNv1210le40 = 81
fromEnum VideoFormatY210 = 82
fromEnum VideoFormatY410 = 83
fromEnum VideoFormatVuya = 84
fromEnum VideoFormatBgr10a2Le = 85
fromEnum (AnotherVideoFormat k) = k
toEnum 0 = VideoFormatUnknown
toEnum 1 = VideoFormatEncoded
toEnum 2 = VideoFormatI420
toEnum 3 = VideoFormatYv12
toEnum 4 = VideoFormatYuy2
toEnum 5 = VideoFormatUyvy
toEnum 6 = VideoFormatAyuv
toEnum 7 = VideoFormatRgbx
toEnum 8 = VideoFormatBgrx
toEnum 9 = VideoFormatXrgb
toEnum 10 = VideoFormatXbgr
toEnum 11 = VideoFormatRgba
toEnum 12 = VideoFormatBgra
toEnum 13 = VideoFormatArgb
toEnum 14 = VideoFormatAbgr
toEnum 15 = VideoFormatRgb
toEnum 16 = VideoFormatBgr
toEnum 17 = VideoFormatY41b
toEnum 18 = VideoFormatY42b
toEnum 19 = VideoFormatYvyu
toEnum 20 = VideoFormatY444
toEnum 21 = VideoFormatV210
toEnum 22 = VideoFormatV216
toEnum 23 = VideoFormatNv12
toEnum 24 = VideoFormatNv21
toEnum 25 = VideoFormatGray8
toEnum 26 = VideoFormatGray16Be
toEnum 27 = VideoFormatGray16Le
toEnum 28 = VideoFormatV308
toEnum 29 = VideoFormatRgb16
toEnum 30 = VideoFormatBgr16
toEnum 31 = VideoFormatRgb15
toEnum 32 = VideoFormatBgr15
toEnum 33 = VideoFormatUyvp
toEnum 34 = VideoFormatA420
toEnum 35 = VideoFormatRgb8p
toEnum 36 = VideoFormatYuv9
toEnum 37 = VideoFormatYvu9
toEnum 38 = VideoFormatIyu1
toEnum 39 = VideoFormatArgb64
toEnum 40 = VideoFormatAyuv64
toEnum 41 = VideoFormatR210
toEnum 42 = VideoFormatI42010be
toEnum 43 = VideoFormatI42010le
toEnum 44 = VideoFormatI42210be
toEnum 45 = VideoFormatI42210le
toEnum 46 = VideoFormatY44410be
toEnum 47 = VideoFormatY44410le
toEnum 48 = VideoFormatGbr
toEnum 49 = VideoFormatGbr10be
toEnum 50 = VideoFormatGbr10le
toEnum 51 = VideoFormatNv16
toEnum 52 = VideoFormatNv24
toEnum 53 = VideoFormatNv1264z32
toEnum 54 = VideoFormatA42010be
toEnum 55 = VideoFormatA42010le
toEnum 56 = VideoFormatA42210be
toEnum 57 = VideoFormatA42210le
toEnum 58 = VideoFormatA44410be
toEnum 59 = VideoFormatA44410le
toEnum 60 = VideoFormatNv61
toEnum 61 = VideoFormatP01010be
toEnum 62 = VideoFormatP01010le
toEnum 63 = VideoFormatIyu2
toEnum 64 = VideoFormatVyuy
toEnum 65 = VideoFormatGbra
toEnum 66 = VideoFormatGbra10be
toEnum 67 = VideoFormatGbra10le
toEnum 68 = VideoFormatGbr12be
toEnum 69 = VideoFormatGbr12le
toEnum 70 = VideoFormatGbra12be
toEnum 71 = VideoFormatGbra12le
toEnum 72 = VideoFormatI42012be
toEnum 73 = VideoFormatI42012le
toEnum 74 = VideoFormatI42212be
toEnum 75 = VideoFormatI42212le
toEnum 76 = VideoFormatY44412be
toEnum 77 = VideoFormatY44412le
toEnum 78 = VideoFormatGray10Le32
toEnum 79 = VideoFormatNv1210le32
toEnum 80 = VideoFormatNv1610le32
toEnum 81 = VideoFormatNv1210le40
toEnum 82 = VideoFormatY210
toEnum 83 = VideoFormatY410
toEnum 84 = VideoFormatVuya
toEnum 85 = VideoFormatBgr10a2Le
toEnum k = AnotherVideoFormat k
instance P.Ord VideoFormat where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_format_get_type" c_gst_video_format_get_type ::
IO GType
instance BoxedEnum VideoFormat where
boxedEnumType _ = c_gst_video_format_get_type
data VideoFieldOrder =
VideoFieldOrderUnknown
| VideoFieldOrderTopFieldFirst
| VideoFieldOrderBottomFieldFirst
| AnotherVideoFieldOrder Int
deriving (Show, Eq)
instance P.Enum VideoFieldOrder where
fromEnum VideoFieldOrderUnknown = 0
fromEnum VideoFieldOrderTopFieldFirst = 1
fromEnum VideoFieldOrderBottomFieldFirst = 2
fromEnum (AnotherVideoFieldOrder k) = k
toEnum 0 = VideoFieldOrderUnknown
toEnum 1 = VideoFieldOrderTopFieldFirst
toEnum 2 = VideoFieldOrderBottomFieldFirst
toEnum k = AnotherVideoFieldOrder k
instance P.Ord VideoFieldOrder where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_field_order_get_type" c_gst_video_field_order_get_type ::
IO GType
instance BoxedEnum VideoFieldOrder where
boxedEnumType _ = c_gst_video_field_order_get_type
data VideoDitherMethod =
VideoDitherMethodNone
| VideoDitherMethodVerterr
| VideoDitherMethodFloydSteinberg
| VideoDitherMethodSierraLite
| VideoDitherMethodBayer
| AnotherVideoDitherMethod Int
deriving (Show, Eq)
instance P.Enum VideoDitherMethod where
fromEnum VideoDitherMethodNone = 0
fromEnum VideoDitherMethodVerterr = 1
fromEnum VideoDitherMethodFloydSteinberg = 2
fromEnum VideoDitherMethodSierraLite = 3
fromEnum VideoDitherMethodBayer = 4
fromEnum (AnotherVideoDitherMethod k) = k
toEnum 0 = VideoDitherMethodNone
toEnum 1 = VideoDitherMethodVerterr
toEnum 2 = VideoDitherMethodFloydSteinberg
toEnum 3 = VideoDitherMethodSierraLite
toEnum 4 = VideoDitherMethodBayer
toEnum k = AnotherVideoDitherMethod k
instance P.Ord VideoDitherMethod where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_dither_method_get_type" c_gst_video_dither_method_get_type ::
IO GType
instance BoxedEnum VideoDitherMethod where
boxedEnumType _ = c_gst_video_dither_method_get_type
data VideoColorRange =
VideoColorRangeUnknown
| VideoColorRange0255
| VideoColorRange16235
| AnotherVideoColorRange Int
deriving (Show, Eq)
instance P.Enum VideoColorRange where
fromEnum VideoColorRangeUnknown = 0
fromEnum VideoColorRange0255 = 1
fromEnum VideoColorRange16235 = 2
fromEnum (AnotherVideoColorRange k) = k
toEnum 0 = VideoColorRangeUnknown
toEnum 1 = VideoColorRange0255
toEnum 2 = VideoColorRange16235
toEnum k = AnotherVideoColorRange k
instance P.Ord VideoColorRange where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_color_range_get_type" c_gst_video_color_range_get_type ::
IO GType
instance BoxedEnum VideoColorRange where
boxedEnumType _ = c_gst_video_color_range_get_type
data VideoColorPrimaries =
VideoColorPrimariesUnknown
| VideoColorPrimariesBt709
| VideoColorPrimariesBt470m
| VideoColorPrimariesBt470bg
| VideoColorPrimariesSmpte170m
| VideoColorPrimariesSmpte240m
| VideoColorPrimariesFilm
| VideoColorPrimariesBt2020
| VideoColorPrimariesAdobergb
| VideoColorPrimariesSmptest428
| VideoColorPrimariesSmpterp431
| VideoColorPrimariesSmpteeg432
| VideoColorPrimariesEbu3213
| AnotherVideoColorPrimaries Int
deriving (Show, Eq)
instance P.Enum VideoColorPrimaries where
fromEnum VideoColorPrimariesUnknown = 0
fromEnum VideoColorPrimariesBt709 = 1
fromEnum VideoColorPrimariesBt470m = 2
fromEnum VideoColorPrimariesBt470bg = 3
fromEnum VideoColorPrimariesSmpte170m = 4
fromEnum VideoColorPrimariesSmpte240m = 5
fromEnum VideoColorPrimariesFilm = 6
fromEnum VideoColorPrimariesBt2020 = 7
fromEnum VideoColorPrimariesAdobergb = 8
fromEnum VideoColorPrimariesSmptest428 = 9
fromEnum VideoColorPrimariesSmpterp431 = 10
fromEnum VideoColorPrimariesSmpteeg432 = 11
fromEnum VideoColorPrimariesEbu3213 = 12
fromEnum (AnotherVideoColorPrimaries k) = k
toEnum 0 = VideoColorPrimariesUnknown
toEnum 1 = VideoColorPrimariesBt709
toEnum 2 = VideoColorPrimariesBt470m
toEnum 3 = VideoColorPrimariesBt470bg
toEnum 4 = VideoColorPrimariesSmpte170m
toEnum 5 = VideoColorPrimariesSmpte240m
toEnum 6 = VideoColorPrimariesFilm
toEnum 7 = VideoColorPrimariesBt2020
toEnum 8 = VideoColorPrimariesAdobergb
toEnum 9 = VideoColorPrimariesSmptest428
toEnum 10 = VideoColorPrimariesSmpterp431
toEnum 11 = VideoColorPrimariesSmpteeg432
toEnum 12 = VideoColorPrimariesEbu3213
toEnum k = AnotherVideoColorPrimaries k
instance P.Ord VideoColorPrimaries where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_color_primaries_get_type" c_gst_video_color_primaries_get_type ::
IO GType
instance BoxedEnum VideoColorPrimaries where
boxedEnumType _ = c_gst_video_color_primaries_get_type
data VideoColorMatrix =
VideoColorMatrixUnknown
| VideoColorMatrixRgb
| VideoColorMatrixFcc
| VideoColorMatrixBt709
| VideoColorMatrixBt601
| VideoColorMatrixSmpte240m
| VideoColorMatrixBt2020
| AnotherVideoColorMatrix Int
deriving (Show, Eq)
instance P.Enum VideoColorMatrix where
fromEnum VideoColorMatrixUnknown = 0
fromEnum VideoColorMatrixRgb = 1
fromEnum VideoColorMatrixFcc = 2
fromEnum VideoColorMatrixBt709 = 3
fromEnum VideoColorMatrixBt601 = 4
fromEnum VideoColorMatrixSmpte240m = 5
fromEnum VideoColorMatrixBt2020 = 6
fromEnum (AnotherVideoColorMatrix k) = k
toEnum 0 = VideoColorMatrixUnknown
toEnum 1 = VideoColorMatrixRgb
toEnum 2 = VideoColorMatrixFcc
toEnum 3 = VideoColorMatrixBt709
toEnum 4 = VideoColorMatrixBt601
toEnum 5 = VideoColorMatrixSmpte240m
toEnum 6 = VideoColorMatrixBt2020
toEnum k = AnotherVideoColorMatrix k
instance P.Ord VideoColorMatrix where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_color_matrix_get_type" c_gst_video_color_matrix_get_type ::
IO GType
instance BoxedEnum VideoColorMatrix where
boxedEnumType _ = c_gst_video_color_matrix_get_type
data VideoChromaMode =
VideoChromaModeFull
| VideoChromaModeUpsampleOnly
| VideoChromaModeDownsampleOnly
| VideoChromaModeNone
| AnotherVideoChromaMode Int
deriving (Show, Eq)
instance P.Enum VideoChromaMode where
fromEnum VideoChromaModeFull = 0
fromEnum VideoChromaModeUpsampleOnly = 1
fromEnum VideoChromaModeDownsampleOnly = 2
fromEnum VideoChromaModeNone = 3
fromEnum (AnotherVideoChromaMode k) = k
toEnum 0 = VideoChromaModeFull
toEnum 1 = VideoChromaModeUpsampleOnly
toEnum 2 = VideoChromaModeDownsampleOnly
toEnum 3 = VideoChromaModeNone
toEnum k = AnotherVideoChromaMode k
instance P.Ord VideoChromaMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_chroma_mode_get_type" c_gst_video_chroma_mode_get_type ::
IO GType
instance BoxedEnum VideoChromaMode where
boxedEnumType _ = c_gst_video_chroma_mode_get_type
data VideoChromaMethod =
VideoChromaMethodNearest
| VideoChromaMethodLinear
| AnotherVideoChromaMethod Int
deriving (Show, Eq)
instance P.Enum VideoChromaMethod where
fromEnum VideoChromaMethodNearest = 0
fromEnum VideoChromaMethodLinear = 1
fromEnum (AnotherVideoChromaMethod k) = k
toEnum 0 = VideoChromaMethodNearest
toEnum 1 = VideoChromaMethodLinear
toEnum k = AnotherVideoChromaMethod k
instance P.Ord VideoChromaMethod where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_chroma_method_get_type" c_gst_video_chroma_method_get_type ::
IO GType
instance BoxedEnum VideoChromaMethod where
boxedEnumType _ = c_gst_video_chroma_method_get_type
data VideoCaptionType =
VideoCaptionTypeUnknown
| VideoCaptionTypeCea608Raw
| VideoCaptionTypeCea608S3341a
| VideoCaptionTypeCea708Raw
| VideoCaptionTypeCea708Cdp
| AnotherVideoCaptionType Int
deriving (Show, Eq)
instance P.Enum VideoCaptionType where
fromEnum VideoCaptionTypeUnknown = 0
fromEnum VideoCaptionTypeCea608Raw = 1
fromEnum VideoCaptionTypeCea608S3341a = 2
fromEnum VideoCaptionTypeCea708Raw = 3
fromEnum VideoCaptionTypeCea708Cdp = 4
fromEnum (AnotherVideoCaptionType k) = k
toEnum 0 = VideoCaptionTypeUnknown
toEnum 1 = VideoCaptionTypeCea608Raw
toEnum 2 = VideoCaptionTypeCea608S3341a
toEnum 3 = VideoCaptionTypeCea708Raw
toEnum 4 = VideoCaptionTypeCea708Cdp
toEnum k = AnotherVideoCaptionType k
instance P.Ord VideoCaptionType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_caption_type_get_type" c_gst_video_caption_type_get_type ::
IO GType
instance BoxedEnum VideoCaptionType where
boxedEnumType _ = c_gst_video_caption_type_get_type
data VideoAncillaryDID16 =
VideoAncillaryDID16708
| VideoAncillaryDID16608
| AnotherVideoAncillaryDID16 Int
deriving (Show, Eq)
instance P.Enum VideoAncillaryDID16 where
fromEnum VideoAncillaryDID16708 = 24833
fromEnum VideoAncillaryDID16608 = 24834
fromEnum (AnotherVideoAncillaryDID16 k) = k
toEnum 24833 = VideoAncillaryDID16708
toEnum 24834 = VideoAncillaryDID16608
toEnum k = AnotherVideoAncillaryDID16 k
instance P.Ord VideoAncillaryDID16 where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_ancillary_di_d16_get_type" c_gst_video_ancillary_di_d16_get_type ::
IO GType
instance BoxedEnum VideoAncillaryDID16 where
boxedEnumType _ = c_gst_video_ancillary_di_d16_get_type
data VideoAncillaryDID =
VideoAncillaryDIDUndefined
| VideoAncillaryDIDDeletion
| VideoAncillaryDIDHanc3gAudioDataFirst
| VideoAncillaryDIDHanc3gAudioDataLast
| VideoAncillaryDIDHancHdtvAudioDataFirst
| VideoAncillaryDIDHancHdtvAudioDataLast
| VideoAncillaryDIDHancSdtvAudioData1First
| VideoAncillaryDIDHancSdtvAudioData1Last
| VideoAncillaryDIDCameraPosition
| VideoAncillaryDIDHancErrorDetection
| VideoAncillaryDIDHancSdtvAudioData2First
| VideoAncillaryDIDHancSdtvAudioData2Last
| AnotherVideoAncillaryDID Int
deriving (Show, Eq)
instance P.Enum VideoAncillaryDID where
fromEnum VideoAncillaryDIDUndefined = 0
fromEnum VideoAncillaryDIDDeletion = 128
fromEnum VideoAncillaryDIDHanc3gAudioDataFirst = 160
fromEnum VideoAncillaryDIDHanc3gAudioDataLast = 167
fromEnum VideoAncillaryDIDHancHdtvAudioDataFirst = 224
fromEnum VideoAncillaryDIDHancHdtvAudioDataLast = 231
fromEnum VideoAncillaryDIDHancSdtvAudioData1First = 236
fromEnum VideoAncillaryDIDHancSdtvAudioData1Last = 239
fromEnum VideoAncillaryDIDCameraPosition = 240
fromEnum VideoAncillaryDIDHancErrorDetection = 244
fromEnum VideoAncillaryDIDHancSdtvAudioData2First = 248
fromEnum VideoAncillaryDIDHancSdtvAudioData2Last = 255
fromEnum (AnotherVideoAncillaryDID k) = k
toEnum 0 = VideoAncillaryDIDUndefined
toEnum 128 = VideoAncillaryDIDDeletion
toEnum 160 = VideoAncillaryDIDHanc3gAudioDataFirst
toEnum 167 = VideoAncillaryDIDHanc3gAudioDataLast
toEnum 224 = VideoAncillaryDIDHancHdtvAudioDataFirst
toEnum 231 = VideoAncillaryDIDHancHdtvAudioDataLast
toEnum 236 = VideoAncillaryDIDHancSdtvAudioData1First
toEnum 239 = VideoAncillaryDIDHancSdtvAudioData1Last
toEnum 240 = VideoAncillaryDIDCameraPosition
toEnum 244 = VideoAncillaryDIDHancErrorDetection
toEnum 248 = VideoAncillaryDIDHancSdtvAudioData2First
toEnum 255 = VideoAncillaryDIDHancSdtvAudioData2Last
toEnum k = AnotherVideoAncillaryDID k
instance P.Ord VideoAncillaryDID where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_ancillary_did_get_type" c_gst_video_ancillary_did_get_type ::
IO GType
instance BoxedEnum VideoAncillaryDID where
boxedEnumType _ = c_gst_video_ancillary_did_get_type
data VideoAlphaMode =
VideoAlphaModeCopy
| VideoAlphaModeSet
| VideoAlphaModeMult
| AnotherVideoAlphaMode Int
deriving (Show, Eq)
instance P.Enum VideoAlphaMode where
fromEnum VideoAlphaModeCopy = 0
fromEnum VideoAlphaModeSet = 1
fromEnum VideoAlphaModeMult = 2
fromEnum (AnotherVideoAlphaMode k) = k
toEnum 0 = VideoAlphaModeCopy
toEnum 1 = VideoAlphaModeSet
toEnum 2 = VideoAlphaModeMult
toEnum k = AnotherVideoAlphaMode k
instance P.Ord VideoAlphaMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_alpha_mode_get_type" c_gst_video_alpha_mode_get_type ::
IO GType
instance BoxedEnum VideoAlphaMode where
boxedEnumType _ = c_gst_video_alpha_mode_get_type
data NavigationQueryType =
NavigationQueryTypeInvalid
| NavigationQueryTypeCommands
| NavigationQueryTypeAngles
| AnotherNavigationQueryType Int
deriving (Show, Eq)
instance P.Enum NavigationQueryType where
fromEnum NavigationQueryTypeInvalid = 0
fromEnum NavigationQueryTypeCommands = 1
fromEnum NavigationQueryTypeAngles = 2
fromEnum (AnotherNavigationQueryType k) = k
toEnum 0 = NavigationQueryTypeInvalid
toEnum 1 = NavigationQueryTypeCommands
toEnum 2 = NavigationQueryTypeAngles
toEnum k = AnotherNavigationQueryType k
instance P.Ord NavigationQueryType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_navigation_query_type_get_type" c_gst_navigation_query_type_get_type ::
IO GType
instance BoxedEnum NavigationQueryType where
boxedEnumType _ = c_gst_navigation_query_type_get_type
data NavigationMessageType =
NavigationMessageTypeInvalid
| NavigationMessageTypeMouseOver
| NavigationMessageTypeCommandsChanged
| NavigationMessageTypeAnglesChanged
| NavigationMessageTypeEvent
| AnotherNavigationMessageType Int
deriving (Show, Eq)
instance P.Enum NavigationMessageType where
fromEnum NavigationMessageTypeInvalid = 0
fromEnum NavigationMessageTypeMouseOver = 1
fromEnum NavigationMessageTypeCommandsChanged = 2
fromEnum NavigationMessageTypeAnglesChanged = 3
fromEnum NavigationMessageTypeEvent = 4
fromEnum (AnotherNavigationMessageType k) = k
toEnum 0 = NavigationMessageTypeInvalid
toEnum 1 = NavigationMessageTypeMouseOver
toEnum 2 = NavigationMessageTypeCommandsChanged
toEnum 3 = NavigationMessageTypeAnglesChanged
toEnum 4 = NavigationMessageTypeEvent
toEnum k = AnotherNavigationMessageType k
instance P.Ord NavigationMessageType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_navigation_message_type_get_type" c_gst_navigation_message_type_get_type ::
IO GType
instance BoxedEnum NavigationMessageType where
boxedEnumType _ = c_gst_navigation_message_type_get_type
data NavigationEventType =
NavigationEventTypeInvalid
| NavigationEventTypeKeyPress
| NavigationEventTypeKeyRelease
| NavigationEventTypeMouseButtonPress
| NavigationEventTypeMouseButtonRelease
| NavigationEventTypeMouseMove
| NavigationEventTypeCommand
| AnotherNavigationEventType Int
deriving (Show, Eq)
instance P.Enum NavigationEventType where
fromEnum NavigationEventTypeInvalid = 0
fromEnum NavigationEventTypeKeyPress = 1
fromEnum NavigationEventTypeKeyRelease = 2
fromEnum NavigationEventTypeMouseButtonPress = 3
fromEnum NavigationEventTypeMouseButtonRelease = 4
fromEnum NavigationEventTypeMouseMove = 5
fromEnum NavigationEventTypeCommand = 6
fromEnum (AnotherNavigationEventType k) = k
toEnum 0 = NavigationEventTypeInvalid
toEnum 1 = NavigationEventTypeKeyPress
toEnum 2 = NavigationEventTypeKeyRelease
toEnum 3 = NavigationEventTypeMouseButtonPress
toEnum 4 = NavigationEventTypeMouseButtonRelease
toEnum 5 = NavigationEventTypeMouseMove
toEnum 6 = NavigationEventTypeCommand
toEnum k = AnotherNavigationEventType k
instance P.Ord NavigationEventType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_navigation_event_type_get_type" c_gst_navigation_event_type_get_type ::
IO GType
instance BoxedEnum NavigationEventType where
boxedEnumType _ = c_gst_navigation_event_type_get_type
data NavigationCommand =
NavigationCommandInvalid
| NavigationCommandMenu1
| NavigationCommandMenu2
| NavigationCommandMenu3
| NavigationCommandMenu4
| NavigationCommandMenu5
| NavigationCommandMenu6
| NavigationCommandMenu7
| NavigationCommandLeft
| NavigationCommandRight
| NavigationCommandUp
| NavigationCommandDown
| NavigationCommandActivate
| NavigationCommandPrevAngle
| NavigationCommandNextAngle
| AnotherNavigationCommand Int
deriving (Show, Eq)
instance P.Enum NavigationCommand where
fromEnum NavigationCommandInvalid = 0
fromEnum NavigationCommandMenu1 = 1
fromEnum NavigationCommandMenu2 = 2
fromEnum NavigationCommandMenu3 = 3
fromEnum NavigationCommandMenu4 = 4
fromEnum NavigationCommandMenu5 = 5
fromEnum NavigationCommandMenu6 = 6
fromEnum NavigationCommandMenu7 = 7
fromEnum NavigationCommandLeft = 20
fromEnum NavigationCommandRight = 21
fromEnum NavigationCommandUp = 22
fromEnum NavigationCommandDown = 23
fromEnum NavigationCommandActivate = 24
fromEnum NavigationCommandPrevAngle = 30
fromEnum NavigationCommandNextAngle = 31
fromEnum (AnotherNavigationCommand k) = k
toEnum 0 = NavigationCommandInvalid
toEnum 1 = NavigationCommandMenu1
toEnum 2 = NavigationCommandMenu2
toEnum 3 = NavigationCommandMenu3
toEnum 4 = NavigationCommandMenu4
toEnum 5 = NavigationCommandMenu5
toEnum 6 = NavigationCommandMenu6
toEnum 7 = NavigationCommandMenu7
toEnum 20 = NavigationCommandLeft
toEnum 21 = NavigationCommandRight
toEnum 22 = NavigationCommandUp
toEnum 23 = NavigationCommandDown
toEnum 24 = NavigationCommandActivate
toEnum 30 = NavigationCommandPrevAngle
toEnum 31 = NavigationCommandNextAngle
toEnum k = AnotherNavigationCommand k
instance P.Ord NavigationCommand where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_navigation_command_get_type" c_gst_navigation_command_get_type ::
IO GType
instance BoxedEnum NavigationCommand where
boxedEnumType _ = c_gst_navigation_command_get_type
data ColorBalanceType =
ColorBalanceTypeHardware
| ColorBalanceTypeSoftware
| AnotherColorBalanceType Int
deriving (Show, Eq)
instance P.Enum ColorBalanceType where
fromEnum ColorBalanceTypeHardware = 0
fromEnum ColorBalanceTypeSoftware = 1
fromEnum (AnotherColorBalanceType k) = k
toEnum 0 = ColorBalanceTypeHardware
toEnum 1 = ColorBalanceTypeSoftware
toEnum k = AnotherColorBalanceType k
instance P.Ord ColorBalanceType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_color_balance_type_get_type" c_gst_color_balance_type_get_type ::
IO GType
instance BoxedEnum ColorBalanceType where
boxedEnumType _ = c_gst_color_balance_type_get_type