module DTD_SMIL20 where
import Text.XML.HaXml.Xml2Haskell
import Text.XML.HaXml.OneOfN
{-Type decls-}
data Smil = Smil
{ smilId :: (Maybe String)
, smilClass :: (Maybe String)
, smilTitle :: (Maybe String)
, smilXml'lang :: (Maybe String)
, smilXmlns :: (Defaultable String)
} deriving (Eq,Show)
data Head = Head
{ headId :: (Maybe String)
, headClass :: (Maybe String)
, headTitle :: (Maybe String)
, headXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Body = Body
{ bodyId :: (Maybe String)
, bodyClass :: (Maybe String)
, bodyTitle :: (Maybe String)
, bodyXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Animate = Animate
{ animateId :: (Maybe String)
, animateClass :: (Maybe String)
, animateTitle :: (Maybe String)
, animateXml'lang :: (Maybe String)
, animateCustomTest :: (Maybe String)
, animateSystemBitrate :: (Maybe String)
, animateSystemCaptions :: (Maybe Animate_SystemCaptions)
, animateSystemLanguage :: (Maybe String)
, animateSystemOverdubOrSubtitle :: (Maybe Animate_SystemOverdubOrSubtitle)
, animateSystemRequired :: (Maybe String)
, animateSystemScreenSize :: (Maybe String)
, animateSystemScreenDepth :: (Maybe String)
, animateSystemAudioDesc :: (Maybe Animate_SystemAudioDesc)
, animateSystemOperatingSystem :: (Maybe String)
, animateSystemCPU :: (Maybe String)
, animateSystemComponent :: (Maybe String)
, animateSystem_bitrate :: (Maybe String)
, animateSystem_captions :: (Maybe Animate_System_captions)
, animateSystem_language :: (Maybe String)
, animateSystem_overdub_or_caption :: (Maybe Animate_System_overdub_or_caption)
, animateSystem_required :: (Maybe String)
, animateSystem_screen_size :: (Maybe String)
, animateSystem_screen_depth :: (Maybe String)
, animateDur :: (Maybe String)
, animateRepeatCount :: (Maybe String)
, animateRepeatDur :: (Maybe String)
, animateBegin :: (Maybe String)
, animateEnd :: (Maybe String)
, animateAttributeName :: String
, animateAttributeType :: (Maybe String)
, animateValues :: (Maybe String)
, animateFrom :: (Maybe String)
, animateTo :: (Maybe String)
, animateBy :: (Maybe String)
, animateCalcMode :: (Defaultable Animate_CalcMode)
, animateAdditive :: (Defaultable Animate_Additive)
, animateAccumulate :: (Defaultable Animate_Accumulate)
} deriving (Eq,Show)
data Animate_SystemCaptions = Animate_SystemCaptions_On |
Animate_SystemCaptions_Off
deriving (Eq,Show)
data Animate_SystemOverdubOrSubtitle = Animate_SystemOverdubOrSubtitle_Overdub
| Animate_SystemOverdubOrSubtitle_Subtitle
deriving (Eq,Show)
data Animate_SystemAudioDesc = Animate_SystemAudioDesc_On |
Animate_SystemAudioDesc_Off
deriving (Eq,Show)
data Animate_System_captions = Animate_System_captions_On |
Animate_System_captions_Off
deriving (Eq,Show)
data Animate_System_overdub_or_caption = Animate_System_overdub_or_caption_Overdub
| Animate_System_overdub_or_caption_Caption
deriving (Eq,Show)
data Animate_CalcMode = Animate_CalcMode_Discrete |
Animate_CalcMode_Linear | Animate_CalcMode_Paced
deriving (Eq,Show)
data Animate_Additive = Animate_Additive_Replace |
Animate_Additive_Sum
deriving (Eq,Show)
data Animate_Accumulate = Animate_Accumulate_None |
Animate_Accumulate_Sum
deriving (Eq,Show)
data Set = Set
{ setId :: (Maybe String)
, setClass :: (Maybe String)
, setTitle :: (Maybe String)
, setXml'lang :: (Maybe String)
, setCustomTest :: (Maybe String)
, setSystemBitrate :: (Maybe String)
, setSystemCaptions :: (Maybe Set_SystemCaptions)
, setSystemLanguage :: (Maybe String)
, setSystemOverdubOrSubtitle :: (Maybe Set_SystemOverdubOrSubtitle)
, setSystemRequired :: (Maybe String)
, setSystemScreenSize :: (Maybe String)
, setSystemScreenDepth :: (Maybe String)
, setSystemAudioDesc :: (Maybe Set_SystemAudioDesc)
, setSystemOperatingSystem :: (Maybe String)
, setSystemCPU :: (Maybe String)
, setSystemComponent :: (Maybe String)
, setSystem_bitrate :: (Maybe String)
, setSystem_captions :: (Maybe Set_System_captions)
, setSystem_language :: (Maybe String)
, setSystem_overdub_or_caption :: (Maybe Set_System_overdub_or_caption)
, setSystem_required :: (Maybe String)
, setSystem_screen_size :: (Maybe String)
, setSystem_screen_depth :: (Maybe String)
, setDur :: (Maybe String)
, setRepeatCount :: (Maybe String)
, setRepeatDur :: (Maybe String)
, setBegin :: (Maybe String)
, setEnd :: (Maybe String)
, setAttributeName :: String
, setAttributeType :: (Maybe String)
, setTo :: (Maybe String)
} deriving (Eq,Show)
data Set_SystemCaptions = Set_SystemCaptions_On |
Set_SystemCaptions_Off
deriving (Eq,Show)
data Set_SystemOverdubOrSubtitle = Set_SystemOverdubOrSubtitle_Overdub
| Set_SystemOverdubOrSubtitle_Subtitle
deriving (Eq,Show)
data Set_SystemAudioDesc = Set_SystemAudioDesc_On |
Set_SystemAudioDesc_Off
deriving (Eq,Show)
data Set_System_captions = Set_System_captions_On |
Set_System_captions_Off
deriving (Eq,Show)
data Set_System_overdub_or_caption = Set_System_overdub_or_caption_Overdub
| Set_System_overdub_or_caption_Caption
deriving (Eq,Show)
data AnimateMotion = AnimateMotion
{ animateMotionId :: (Maybe String)
, animateMotionClass :: (Maybe String)
, animateMotionTitle :: (Maybe String)
, animateMotionXml'lang :: (Maybe String)
, animateMotionCustomTest :: (Maybe String)
, animateMotionSystemBitrate :: (Maybe String)
, animateMotionSystemCaptions :: (Maybe AnimateMotion_SystemCaptions)
, animateMotionSystemLanguage :: (Maybe String)
, animateMotionSystemOverdubOrSubtitle :: (Maybe AnimateMotion_SystemOverdubOrSubtitle)
, animateMotionSystemRequired :: (Maybe String)
, animateMotionSystemScreenSize :: (Maybe String)
, animateMotionSystemScreenDepth :: (Maybe String)
, animateMotionSystemAudioDesc :: (Maybe AnimateMotion_SystemAudioDesc)
, animateMotionSystemOperatingSystem :: (Maybe String)
, animateMotionSystemCPU :: (Maybe String)
, animateMotionSystemComponent :: (Maybe String)
, animateMotionSystem_bitrate :: (Maybe String)
, animateMotionSystem_captions :: (Maybe AnimateMotion_System_captions)
, animateMotionSystem_language :: (Maybe String)
, animateMotionSystem_overdub_or_caption :: (Maybe AnimateMotion_System_overdub_or_caption)
, animateMotionSystem_required :: (Maybe String)
, animateMotionSystem_screen_size :: (Maybe String)
, animateMotionSystem_screen_depth :: (Maybe String)
, animateMotionDur :: (Maybe String)
, animateMotionRepeatCount :: (Maybe String)
, animateMotionRepeatDur :: (Maybe String)
, animateMotionBegin :: (Maybe String)
, animateMotionEnd :: (Maybe String)
, animateMotionValues :: (Maybe String)
, animateMotionFrom :: (Maybe String)
, animateMotionTo :: (Maybe String)
, animateMotionBy :: (Maybe String)
, animateMotionCalcMode :: (Defaultable AnimateMotion_CalcMode)
, animateMotionAdditive :: (Defaultable AnimateMotion_Additive)
, animateMotionAccumulate :: (Defaultable AnimateMotion_Accumulate)
, animateMotionOrigin :: (Defaultable AnimateMotion_Origin)
} deriving (Eq,Show)
data AnimateMotion_SystemCaptions = AnimateMotion_SystemCaptions_On
| AnimateMotion_SystemCaptions_Off
deriving (Eq,Show)
data AnimateMotion_SystemOverdubOrSubtitle = AnimateMotion_SystemOverdubOrSubtitle_Overdub
| AnimateMotion_SystemOverdubOrSubtitle_Subtitle
deriving (Eq,Show)
data AnimateMotion_SystemAudioDesc = AnimateMotion_SystemAudioDesc_On
| AnimateMotion_SystemAudioDesc_Off
deriving (Eq,Show)
data AnimateMotion_System_captions = AnimateMotion_System_captions_On
| AnimateMotion_System_captions_Off
deriving (Eq,Show)
data AnimateMotion_System_overdub_or_caption = AnimateMotion_System_overdub_or_caption_Overdub
| AnimateMotion_System_overdub_or_caption_Caption
deriving (Eq,Show)
data AnimateMotion_CalcMode = AnimateMotion_CalcMode_Discrete |
AnimateMotion_CalcMode_Linear | AnimateMotion_CalcMode_Paced
deriving (Eq,Show)
data AnimateMotion_Additive = AnimateMotion_Additive_Replace |
AnimateMotion_Additive_Sum
deriving (Eq,Show)
data AnimateMotion_Accumulate = AnimateMotion_Accumulate_None |
AnimateMotion_Accumulate_Sum
deriving (Eq,Show)
data AnimateMotion_Origin = AnimateMotion_Origin_Default
deriving (Eq,Show)
data AnimateColor = AnimateColor
{ animateColorId :: (Maybe String)
, animateColorClass :: (Maybe String)
, animateColorTitle :: (Maybe String)
, animateColorXml'lang :: (Maybe String)
, animateColorCustomTest :: (Maybe String)
, animateColorSystemBitrate :: (Maybe String)
, animateColorSystemCaptions :: (Maybe AnimateColor_SystemCaptions)
, animateColorSystemLanguage :: (Maybe String)
, animateColorSystemOverdubOrSubtitle :: (Maybe AnimateColor_SystemOverdubOrSubtitle)
, animateColorSystemRequired :: (Maybe String)
, animateColorSystemScreenSize :: (Maybe String)
, animateColorSystemScreenDepth :: (Maybe String)
, animateColorSystemAudioDesc :: (Maybe AnimateColor_SystemAudioDesc)
, animateColorSystemOperatingSystem :: (Maybe String)
, animateColorSystemCPU :: (Maybe String)
, animateColorSystemComponent :: (Maybe String)
, animateColorSystem_bitrate :: (Maybe String)
, animateColorSystem_captions :: (Maybe AnimateColor_System_captions)
, animateColorSystem_language :: (Maybe String)
, animateColorSystem_overdub_or_caption :: (Maybe AnimateColor_System_overdub_or_caption)
, animateColorSystem_required :: (Maybe String)
, animateColorSystem_screen_size :: (Maybe String)
, animateColorSystem_screen_depth :: (Maybe String)
, animateColorDur :: (Maybe String)
, animateColorRepeatCount :: (Maybe String)
, animateColorRepeatDur :: (Maybe String)
, animateColorBegin :: (Maybe String)
, animateColorEnd :: (Maybe String)
, animateColorAttributeName :: String
, animateColorAttributeType :: (Maybe String)
, animateColorValues :: (Maybe String)
, animateColorFrom :: (Maybe String)
, animateColorTo :: (Maybe String)
, animateColorBy :: (Maybe String)
, animateColorCalcMode :: (Defaultable AnimateColor_CalcMode)
, animateColorAdditive :: (Defaultable AnimateColor_Additive)
, animateColorAccumulate :: (Defaultable AnimateColor_Accumulate)
} deriving (Eq,Show)
data AnimateColor_SystemCaptions = AnimateColor_SystemCaptions_On
| AnimateColor_SystemCaptions_Off
deriving (Eq,Show)
data AnimateColor_SystemOverdubOrSubtitle = AnimateColor_SystemOverdubOrSubtitle_Overdub
| AnimateColor_SystemOverdubOrSubtitle_Subtitle
deriving (Eq,Show)
data AnimateColor_SystemAudioDesc = AnimateColor_SystemAudioDesc_On
| AnimateColor_SystemAudioDesc_Off
deriving (Eq,Show)
data AnimateColor_System_captions = AnimateColor_System_captions_On
| AnimateColor_System_captions_Off
deriving (Eq,Show)
data AnimateColor_System_overdub_or_caption = AnimateColor_System_overdub_or_caption_Overdub
| AnimateColor_System_overdub_or_caption_Caption
deriving (Eq,Show)
data AnimateColor_CalcMode = AnimateColor_CalcMode_Discrete |
AnimateColor_CalcMode_Linear | AnimateColor_CalcMode_Paced
deriving (Eq,Show)
data AnimateColor_Additive = AnimateColor_Additive_Replace |
AnimateColor_Additive_Sum
deriving (Eq,Show)
data AnimateColor_Accumulate = AnimateColor_Accumulate_None |
AnimateColor_Accumulate_Sum
deriving (Eq,Show)
data Switch = Switch
{ switchId :: (Maybe String)
, switchClass :: (Maybe String)
, switchTitle :: (Maybe String)
, switchXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Meta = Meta
{ metaContent :: (Maybe String)
, metaName :: String
} deriving (Eq,Show)
data Metadata = Metadata
{ metadataId :: (Maybe String)
, metadataClass :: (Maybe String)
, metadataTitle :: (Maybe String)
, metadataXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Layout = Layout
{ layoutId :: (Maybe String)
, layoutClass :: (Maybe String)
, layoutTitle :: (Maybe String)
, layoutXml'lang :: (Maybe String)
, layoutType :: (Defaultable String)
} deriving (Eq,Show)
data Region = Region
{ regionId :: (Maybe String)
, regionClass :: (Maybe String)
, regionTitle :: (Maybe String)
, regionXml'lang :: (Maybe String)
, regionHeight :: (Defaultable String)
, regionWidth :: (Defaultable String)
, regionClose :: (Defaultable Region_Close)
, regionOpen :: (Defaultable Region_Open)
, regionBackgroundColor :: (Maybe String)
, regionBackground_color :: (Maybe String)
, regionBottom :: (Defaultable String)
, regionLeft :: (Defaultable String)
, regionRight :: (Defaultable String)
, regionTop :: (Defaultable String)
, regionZ_index :: (Maybe String)
, regionShowBackground :: (Defaultable Region_ShowBackground)
, regionFit :: (Defaultable Region_Fit)
} deriving (Eq,Show)
data Region_Close = Region_Close_Never |
Region_Close_WhenNotActive
deriving (Eq,Show)
data Region_Open = Region_Open_Always | Region_Open_WhenActive
deriving (Eq,Show)
data Region_ShowBackground = Region_ShowBackground_Always |
Region_ShowBackground_WhenActive
deriving (Eq,Show)
data Region_Fit = Region_Fit_Hidden | Region_Fit_Fill |
Region_Fit_Meet | Region_Fit_Scroll | Region_Fit_Slice
deriving (Eq,Show)
data Root_layout = Root_layout
{ root_layoutId :: (Maybe String)
, root_layoutClass :: (Maybe String)
, root_layoutTitle :: (Maybe String)
, root_layoutXml'lang :: (Maybe String)
, root_layoutHeight :: (Defaultable String)
, root_layoutWidth :: (Defaultable String)
, root_layoutClose :: (Defaultable Root_layout_Close)
, root_layoutOpen :: (Defaultable Root_layout_Open)
, root_layoutBackgroundColor :: (Maybe String)
, root_layoutBackground_color :: (Maybe String)
} deriving (Eq,Show)
data Root_layout_Close = Root_layout_Close_Never |
Root_layout_Close_WhenNotActive
deriving (Eq,Show)
data Root_layout_Open = Root_layout_Open_Always |
Root_layout_Open_WhenActive
deriving (Eq,Show)
data Ref = Ref
{ refId :: (Maybe String)
, refClass :: (Maybe String)
, refTitle :: (Maybe String)
, refXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Audio = Audio
{ audioId :: (Maybe String)
, audioClass :: (Maybe String)
, audioTitle :: (Maybe String)
, audioXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Img = Img
{ imgId :: (Maybe String)
, imgClass :: (Maybe String)
, imgTitle :: (Maybe String)
, imgXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Video = Video
{ videoId :: (Maybe String)
, videoClass :: (Maybe String)
, videoTitle :: (Maybe String)
, videoXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Text = Text
{ textId :: (Maybe String)
, textClass :: (Maybe String)
, textTitle :: (Maybe String)
, textXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Textstream = Textstream
{ textstreamId :: (Maybe String)
, textstreamClass :: (Maybe String)
, textstreamTitle :: (Maybe String)
, textstreamXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Animation = Animation
{ animationId :: (Maybe String)
, animationClass :: (Maybe String)
, animationTitle :: (Maybe String)
, animationXml'lang :: (Maybe String)
} deriving (Eq,Show)
data Transition = Transition
{ transitionId :: (Maybe String)
, transitionClass :: (Maybe String)
, transitionTitle :: (Maybe String)
, transitionXml'lang :: (Maybe String)
, transitionType :: (Maybe Transition_Type)
, transitionSubtype :: (Maybe Transition_Subtype)
, transitionHorzRepeat :: (Defaultable String)
, transitionVertRepeat :: (Defaultable String)
, transitionBorderWidth :: (Defaultable String)
, transitionBorderColor :: (Defaultable String)
, transitionFadeColor :: (Defaultable String)
, transitionCoordinated :: (Defaultable Transition_Coordinated)
, transitionClibBoundary :: (Defaultable Transition_ClibBoundary)
, transitionDur :: (Maybe String)
, transitionStartProgress :: (Defaultable String)
, transitionEndProgress :: (Defaultable String)
, transitionDirection :: (Defaultable Transition_Direction)
} deriving (Eq,Show)
data Transition_Type = Transition_Type_BarWipe |
Transition_Type_BoxWipe | Transition_Type_FourBoxWipe |
Transition_Type_BarnDoorWipe | Transition_Type_DiagonalWipe |
Transition_Type_BowTieWipe | Transition_Type_MiscDiagonalWipe |
Transition_Type_VeeWipe | Transition_Type_BarnVeeWipe |
Transition_Type_ZigZagWipe | Transition_Type_BarnZigZagWipe |
Transition_Type_MiscShapeWipe | Transition_Type_TriangleWipe |
Transition_Type_ArrowHeadWipe | Transition_Type_PentagonWipe |
Transition_Type_HexagonWipe | Transition_Type_EllipseWipe |
Transition_Type_EyeWipe | Transition_Type_RoundRectWipe |
Transition_Type_StarWipe | Transition_Type_ClockWipe |
Transition_Type_PinWheelWipe | Transition_Type_SingleSweepWipe
| Transition_Type_FanWipe | Transition_Type_DoubleFanWipe |
Transition_Type_DoubleSweepWipe | Transition_Type_SaloonDoorWipe
| Transition_Type_WindshieldWipe | Transition_Type_SnakeWipe
| Transition_Type_SpiralWipe |
Transition_Type_ParallelSnakesWipe |
Transition_Type_BoxSnakesWipe | Transition_Type_WaterfallWipe |
Transition_Type_PushWipe | Transition_Type_SlideWipe |
Transition_Type_Fade
deriving (Eq,Show)
data Transition_Subtype = Transition_Subtype_Bottom |
Transition_Subtype_BottomCenter | Transition_Subtype_BottomLeft
| Transition_Subtype_BottomLeftClockwise |
Transition_Subtype_BottomLeftCounterClockwise |
Transition_Subtype_BottomLeftDiagonal |
Transition_Subtype_BottomRight |
Transition_Subtype_BottomRightClockwise |
Transition_Subtype_BottomRightCounterClockwise |
Transition_Subtype_BottomRightDiagonal |
Transition_Subtype_CenterRight | Transition_Subtype_CenterTop |
Transition_Subtype_Circle | Transition_Subtype_ClockwiseBottom
| Transition_Subtype_ClockwiseBottomRight |
Transition_Subtype_ClockwiseLeft |
Transition_Subtype_ClockwiseNine |
Transition_Subtype_ClockwiseRight |
Transition_Subtype_ClockwiseSix |
Transition_Subtype_ClockwiseThree |
Transition_Subtype_ClockwiseTop |
Transition_Subtype_ClockwiseTopLeft |
Transition_Subtype_ClockwiseTwelve | Transition_Subtype_CornersIn
| Transition_Subtype_CornersOut |
Transition_Subtype_CounterClockwiseBottomLeft |
Transition_Subtype_CounterClockwiseTopRight |
Transition_Subtype_Crossfade |
Transition_Subtype_DiagonalBottomLeft |
Transition_Subtype_DiagonalBottomLeftOpposite |
Transition_Subtype_DiagonalTopLeft |
Transition_Subtype_DiagonalTopLeftOpposite |
Transition_Subtype_Diamond | Transition_Subtype_DoubleBarnDoor
| Transition_Subtype_DoubleDiamond | Transition_Subtype_Down
| Transition_Subtype_FadeFromColor |
Transition_Subtype_FadeToColor |
Transition_Subtype_FanInHorizontal |
Transition_Subtype_FanInVertical |
Transition_Subtype_FanOutHorizontal |
Transition_Subtype_FanOutVertical | Transition_Subtype_FivePoint
| Transition_Subtype_FourBlade |
Transition_Subtype_FourBoxHorizontal |
Transition_Subtype_FourBoxVertical | Transition_Subtype_FourPoint
| Transition_Subtype_FromBottom | Transition_Subtype_FromLeft
| Transition_Subtype_FromRight | Transition_Subtype_FromTop |
Transition_Subtype_Heart | Transition_Subtype_Horizontal |
Transition_Subtype_HorizontalLeft |
Transition_Subtype_HorizontalLeftSame |
Transition_Subtype_HorizontalRight |
Transition_Subtype_HorizontalRightSame |
Transition_Subtype_HorizontalTopLeftOpposite |
Transition_Subtype_HorizontalTopRightOpposite |
Transition_Subtype_Keyhole | Transition_Subtype_Left |
Transition_Subtype_LeftCenter | Transition_Subtype_LeftToRight
| Transition_Subtype_OppositeHorizontal |
Transition_Subtype_OppositeVertical |
Transition_Subtype_ParallelDiagonal |
Transition_Subtype_ParallelDiagonalBottomLeft |
Transition_Subtype_ParallelDiagonalTopLeft |
Transition_Subtype_ParallelVertical |
Transition_Subtype_Rectangle | Transition_Subtype_Right |
Transition_Subtype_RightCenter | Transition_Subtype_SixPoint |
Transition_Subtype_Top | Transition_Subtype_TopCenter |
Transition_Subtype_TopLeft | Transition_Subtype_TopLeftClockwise
| Transition_Subtype_TopLeftCounterClockwise |
Transition_Subtype_TopLeftDiagonal |
Transition_Subtype_TopLeftHorizontal |
Transition_Subtype_TopLeftVertical | Transition_Subtype_TopRight
| Transition_Subtype_TopRightClockwise |
Transition_Subtype_TopRightCounterClockwise |
Transition_Subtype_TopRightDiagonal |
Transition_Subtype_TopToBottom |
Transition_Subtype_TwoBladeHorizontal |
Transition_Subtype_TwoBladeVertical |
Transition_Subtype_TwoBoxBottom | Transition_Subtype_TwoBoxLeft
| Transition_Subtype_TwoBoxRight | Transition_Subtype_TwoBoxTop
| Transition_Subtype_Up | Transition_Subtype_Vertical |
Transition_Subtype_VerticalBottomLeftOpposite |
Transition_Subtype_VerticalBottomSame |
Transition_Subtype_VerticalLeft |
Transition_Subtype_VerticalRight |
Transition_Subtype_VerticalTopLeftOpposite |
Transition_Subtype_VerticalTopSame
deriving (Eq,Show)
data Transition_Coordinated = Transition_Coordinated_True |
Transition_Coordinated_False
deriving (Eq,Show)
data Transition_ClibBoundary = Transition_ClibBoundary_Parent |
Transition_ClibBoundary_Children
deriving (Eq,Show)
data Transition_Direction = Transition_Direction_Forward |
Transition_Direction_Reverse
deriving (Eq,Show)
data TransitionFilter = TransitionFilter
{ transitionFilterId :: (Maybe String)
, transitionFilterClass :: (Maybe String)
, transitionFilterTitle :: (Maybe String)
, transitionFilterXml'lang :: (Maybe String)
, transitionFilterType :: (Maybe TransitionFilter_Type)
, transitionFilterSubtype :: (Maybe TransitionFilter_Subtype)
, transitionFilterHorzRepeat :: (Defaultable String)
, transitionFilterVertRepeat :: (Defaultable String)
, transitionFilterBorderWidth :: (Defaultable String)
, transitionFilterBorderColor :: (Defaultable String)
, transitionFilterFadeColor :: (Defaultable String)
, transitionFilterCoordinated :: (Defaultable TransitionFilter_Coordinated)
, transitionFilterClibBoundary :: (Defaultable TransitionFilter_ClibBoundary)
, transitionFilterDur :: (Maybe String)
, transitionFilterRepeatCount :: (Maybe String)
, transitionFilterRepeatDur :: (Maybe String)
, transitionFilterBegin :: (Maybe String)
, transitionFilterEnd :: (Maybe String)
, transitionFilterValues :: (Maybe String)
, transitionFilterFrom :: (Maybe String)
, transitionFilterTo :: (Maybe String)
, transitionFilterBy :: (Maybe String)
, transitionFilterCalcMode :: (Defaultable TransitionFilter_CalcMode)
} deriving (Eq,Show)
data TransitionFilter_Type = TransitionFilter_Type_BarWipe |
TransitionFilter_Type_BoxWipe | TransitionFilter_Type_FourBoxWipe
| TransitionFilter_Type_BarnDoorWipe |
TransitionFilter_Type_DiagonalWipe |
TransitionFilter_Type_BowTieWipe |
TransitionFilter_Type_MiscDiagonalWipe |
TransitionFilter_Type_VeeWipe | TransitionFilter_Type_BarnVeeWipe
| TransitionFilter_Type_ZigZagWipe |
TransitionFilter_Type_BarnZigZagWipe |
TransitionFilter_Type_MiscShapeWipe |
TransitionFilter_Type_TriangleWipe |
TransitionFilter_Type_ArrowHeadWipe |
TransitionFilter_Type_PentagonWipe |
TransitionFilter_Type_HexagonWipe |
TransitionFilter_Type_EllipseWipe | TransitionFilter_Type_EyeWipe
| TransitionFilter_Type_RoundRectWipe |
TransitionFilter_Type_StarWipe | TransitionFilter_Type_ClockWipe
| TransitionFilter_Type_PinWheelWipe |
TransitionFilter_Type_SingleSweepWipe |
TransitionFilter_Type_FanWipe |
TransitionFilter_Type_DoubleFanWipe |
TransitionFilter_Type_DoubleSweepWipe |
TransitionFilter_Type_SaloonDoorWipe |
TransitionFilter_Type_WindshieldWipe |
TransitionFilter_Type_SnakeWipe |
TransitionFilter_Type_SpiralWipe |
TransitionFilter_Type_ParallelSnakesWipe |
TransitionFilter_Type_BoxSnakesWipe |
TransitionFilter_Type_WaterfallWipe |
TransitionFilter_Type_PushWipe | TransitionFilter_Type_SlideWipe
| TransitionFilter_Type_Fade
deriving (Eq,Show)
data TransitionFilter_Subtype = TransitionFilter_Subtype_Bottom |
TransitionFilter_Subtype_BottomCenter |
TransitionFilter_Subtype_BottomLeft |
TransitionFilter_Subtype_BottomLeftClockwise |
TransitionFilter_Subtype_BottomLeftCounterClockwise |
TransitionFilter_Subtype_BottomLeftDiagonal |
TransitionFilter_Subtype_BottomRight |
TransitionFilter_Subtype_BottomRightClockwise |
TransitionFilter_Subtype_BottomRightCounterClockwise |
TransitionFilter_Subtype_BottomRightDiagonal |
TransitionFilter_Subtype_CenterRight |
TransitionFilter_Subtype_CenterTop |
TransitionFilter_Subtype_Circle |
TransitionFilter_Subtype_ClockwiseBottom |
TransitionFilter_Subtype_ClockwiseBottomRight |
TransitionFilter_Subtype_ClockwiseLeft |
TransitionFilter_Subtype_ClockwiseNine |
TransitionFilter_Subtype_ClockwiseRight |
TransitionFilter_Subtype_ClockwiseSix |
TransitionFilter_Subtype_ClockwiseThree |
TransitionFilter_Subtype_ClockwiseTop |
TransitionFilter_Subtype_ClockwiseTopLeft |
TransitionFilter_Subtype_ClockwiseTwelve |
TransitionFilter_Subtype_CornersIn |
TransitionFilter_Subtype_CornersOut |
TransitionFilter_Subtype_CounterClockwiseBottomLeft |
TransitionFilter_Subtype_CounterClockwiseTopRight |
TransitionFilter_Subtype_Crossfade |
TransitionFilter_Subtype_DiagonalBottomLeft |
TransitionFilter_Subtype_DiagonalBottomLeftOpposite |
TransitionFilter_Subtype_DiagonalTopLeft |
TransitionFilter_Subtype_DiagonalTopLeftOpposite |
TransitionFilter_Subtype_Diamond |
TransitionFilter_Subtype_DoubleBarnDoor |
TransitionFilter_Subtype_DoubleDiamond |
TransitionFilter_Subtype_Down |
TransitionFilter_Subtype_FadeFromColor |
TransitionFilter_Subtype_FadeToColor |
TransitionFilter_Subtype_FanInHorizontal |
TransitionFilter_Subtype_FanInVertical |
TransitionFilter_Subtype_FanOutHorizontal |
TransitionFilter_Subtype_FanOutVertical |
TransitionFilter_Subtype_FivePoint |
TransitionFilter_Subtype_FourBlade |
TransitionFilter_Subtype_FourBoxHorizontal |
TransitionFilter_Subtype_FourBoxVertical |
TransitionFilter_Subtype_FourPoint |
TransitionFilter_Subtype_FromBottom |
TransitionFilter_Subtype_FromLeft |
TransitionFilter_Subtype_FromRight |
TransitionFilter_Subtype_FromTop | TransitionFilter_Subtype_Heart
| TransitionFilter_Subtype_Horizontal |
TransitionFilter_Subtype_HorizontalLeft |
TransitionFilter_Subtype_HorizontalLeftSame |
TransitionFilter_Subtype_HorizontalRight |
TransitionFilter_Subtype_HorizontalRightSame |
TransitionFilter_Subtype_HorizontalTopLeftOpposite |
TransitionFilter_Subtype_HorizontalTopRightOpposite |
TransitionFilter_Subtype_Keyhole | TransitionFilter_Subtype_Left
| TransitionFilter_Subtype_LeftCenter |
TransitionFilter_Subtype_LeftToRight |
TransitionFilter_Subtype_OppositeHorizontal |
TransitionFilter_Subtype_OppositeVertical |
TransitionFilter_Subtype_ParallelDiagonal |
TransitionFilter_Subtype_ParallelDiagonalBottomLeft |
TransitionFilter_Subtype_ParallelDiagonalTopLeft |
TransitionFilter_Subtype_ParallelVertical |
TransitionFilter_Subtype_Rectangle |
TransitionFilter_Subtype_Right |
TransitionFilter_Subtype_RightCenter |
TransitionFilter_Subtype_SixPoint | TransitionFilter_Subtype_Top
| TransitionFilter_Subtype_TopCenter |
TransitionFilter_Subtype_TopLeft |
TransitionFilter_Subtype_TopLeftClockwise |
TransitionFilter_Subtype_TopLeftCounterClockwise |
TransitionFilter_Subtype_TopLeftDiagonal |
TransitionFilter_Subtype_TopLeftHorizontal |
TransitionFilter_Subtype_TopLeftVertical |
TransitionFilter_Subtype_TopRight |
TransitionFilter_Subtype_TopRightClockwise |
TransitionFilter_Subtype_TopRightCounterClockwise |
TransitionFilter_Subtype_TopRightDiagonal |
TransitionFilter_Subtype_TopToBottom |
TransitionFilter_Subtype_TwoBladeHorizontal |
TransitionFilter_Subtype_TwoBladeVertical |
TransitionFilter_Subtype_TwoBoxBottom |
TransitionFilter_Subtype_TwoBoxLeft |
TransitionFilter_Subtype_TwoBoxRight |
TransitionFilter_Subtype_TwoBoxTop | TransitionFilter_Subtype_Up
| TransitionFilter_Subtype_Vertical |
TransitionFilter_Subtype_VerticalBottomLeftOpposite |
TransitionFilter_Subtype_VerticalBottomSame |
TransitionFilter_Subtype_VerticalLeft |
TransitionFilter_Subtype_VerticalRight |
TransitionFilter_Subtype_VerticalTopLeftOpposite |
TransitionFilter_Subtype_VerticalTopSame
deriving (Eq,Show)
data TransitionFilter_Coordinated = TransitionFilter_Coordinated_True
| TransitionFilter_Coordinated_False
deriving (Eq,Show)
data TransitionFilter_ClibBoundary = TransitionFilter_ClibBoundary_Parent
| TransitionFilter_ClibBoundary_Children
deriving (Eq,Show)
data TransitionFilter_CalcMode = TransitionFilter_CalcMode_Discrete
| TransitionFilter_CalcMode_Linear |
TransitionFilter_CalcMode_Paced
deriving (Eq,Show)
{-Instance decls-}
instance XmlContent Smil where
fromElem (CElem (Elem "smil" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "smil" (toAttrs as) [])]
instance XmlAttributes Smil where
fromAttrs as =
Smil
{ smilId = possibleA fromAttrToStr "id" as
, smilClass = possibleA fromAttrToStr "class" as
, smilTitle = possibleA fromAttrToStr "title" as
, smilXml'lang = possibleA fromAttrToStr "xml:lang" as
, smilXmlns = defaultA fromAttrToStr "http://www.w3.org/TR/REC-smil/SMIL20" "xmlns" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (smilId v)
, maybeToAttr toAttrFrStr "class" (smilClass v)
, maybeToAttr toAttrFrStr "title" (smilTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (smilXml'lang v)
, defaultToAttr toAttrFrStr "xmlns" (smilXmlns v)
]
instance XmlContent Head where
fromElem (CElem (Elem "head" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "head" (toAttrs as) [])]
instance XmlAttributes Head where
fromAttrs as =
Head
{ headId = possibleA fromAttrToStr "id" as
, headClass = possibleA fromAttrToStr "class" as
, headTitle = possibleA fromAttrToStr "title" as
, headXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (headId v)
, maybeToAttr toAttrFrStr "class" (headClass v)
, maybeToAttr toAttrFrStr "title" (headTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (headXml'lang v)
]
instance XmlContent Body where
fromElem (CElem (Elem "body" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "body" (toAttrs as) [])]
instance XmlAttributes Body where
fromAttrs as =
Body
{ bodyId = possibleA fromAttrToStr "id" as
, bodyClass = possibleA fromAttrToStr "class" as
, bodyTitle = possibleA fromAttrToStr "title" as
, bodyXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (bodyId v)
, maybeToAttr toAttrFrStr "class" (bodyClass v)
, maybeToAttr toAttrFrStr "title" (bodyTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (bodyXml'lang v)
]
instance XmlContent Animate where
fromElem (CElem (Elem "animate" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "animate" (toAttrs as) [])]
instance XmlAttributes Animate where
fromAttrs as =
Animate
{ animateId = possibleA fromAttrToStr "id" as
, animateClass = possibleA fromAttrToStr "class" as
, animateTitle = possibleA fromAttrToStr "title" as
, animateXml'lang = possibleA fromAttrToStr "xml:lang" as
, animateCustomTest = possibleA fromAttrToStr "customTest" as
, animateSystemBitrate = possibleA fromAttrToStr "systemBitrate" as
, animateSystemCaptions = possibleA fromAttrToTyp "systemCaptions" as
, animateSystemLanguage = possibleA fromAttrToStr "systemLanguage" as
, animateSystemOverdubOrSubtitle = possibleA fromAttrToTyp "systemOverdubOrSubtitle" as
, animateSystemRequired = possibleA fromAttrToStr "systemRequired" as
, animateSystemScreenSize = possibleA fromAttrToStr "systemScreenSize" as
, animateSystemScreenDepth = possibleA fromAttrToStr "systemScreenDepth" as
, animateSystemAudioDesc = possibleA fromAttrToTyp "systemAudioDesc" as
, animateSystemOperatingSystem = possibleA fromAttrToStr "systemOperatingSystem" as
, animateSystemCPU = possibleA fromAttrToStr "systemCPU" as
, animateSystemComponent = possibleA fromAttrToStr "systemComponent" as
, animateSystem_bitrate = possibleA fromAttrToStr "system-bitrate" as
, animateSystem_captions = possibleA fromAttrToTyp "system-captions" as
, animateSystem_language = possibleA fromAttrToStr "system-language" as
, animateSystem_overdub_or_caption = possibleA fromAttrToTyp "system-overdub-or-caption" as
, animateSystem_required = possibleA fromAttrToStr "system-required" as
, animateSystem_screen_size = possibleA fromAttrToStr "system-screen-size" as
, animateSystem_screen_depth = possibleA fromAttrToStr "system-screen-depth" as
, animateDur = possibleA fromAttrToStr "dur" as
, animateRepeatCount = possibleA fromAttrToStr "repeatCount" as
, animateRepeatDur = possibleA fromAttrToStr "repeatDur" as
, animateBegin = possibleA fromAttrToStr "begin" as
, animateEnd = possibleA fromAttrToStr "end" as
, animateAttributeName = definiteA fromAttrToStr "animate" "attributeName" as
, animateAttributeType = possibleA fromAttrToStr "attributeType" as
, animateValues = possibleA fromAttrToStr "values" as
, animateFrom = possibleA fromAttrToStr "from" as
, animateTo = possibleA fromAttrToStr "to" as
, animateBy = possibleA fromAttrToStr "by" as
, animateCalcMode = defaultA fromAttrToTyp Animate_CalcMode_Linear "calcMode" as
, animateAdditive = defaultA fromAttrToTyp Animate_Additive_Replace "additive" as
, animateAccumulate = defaultA fromAttrToTyp Animate_Accumulate_None "accumulate" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (animateId v)
, maybeToAttr toAttrFrStr "class" (animateClass v)
, maybeToAttr toAttrFrStr "title" (animateTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (animateXml'lang v)
, maybeToAttr toAttrFrStr "customTest" (animateCustomTest v)
, maybeToAttr toAttrFrStr "systemBitrate" (animateSystemBitrate v)
, maybeToAttr toAttrFrTyp "systemCaptions" (animateSystemCaptions v)
, maybeToAttr toAttrFrStr "systemLanguage" (animateSystemLanguage v)
, maybeToAttr toAttrFrTyp "systemOverdubOrSubtitle" (animateSystemOverdubOrSubtitle v)
, maybeToAttr toAttrFrStr "systemRequired" (animateSystemRequired v)
, maybeToAttr toAttrFrStr "systemScreenSize" (animateSystemScreenSize v)
, maybeToAttr toAttrFrStr "systemScreenDepth" (animateSystemScreenDepth v)
, maybeToAttr toAttrFrTyp "systemAudioDesc" (animateSystemAudioDesc v)
, maybeToAttr toAttrFrStr "systemOperatingSystem" (animateSystemOperatingSystem v)
, maybeToAttr toAttrFrStr "systemCPU" (animateSystemCPU v)
, maybeToAttr toAttrFrStr "systemComponent" (animateSystemComponent v)
, maybeToAttr toAttrFrStr "system-bitrate" (animateSystem_bitrate v)
, maybeToAttr toAttrFrTyp "system-captions" (animateSystem_captions v)
, maybeToAttr toAttrFrStr "system-language" (animateSystem_language v)
, maybeToAttr toAttrFrTyp "system-overdub-or-caption" (animateSystem_overdub_or_caption v)
, maybeToAttr toAttrFrStr "system-required" (animateSystem_required v)
, maybeToAttr toAttrFrStr "system-screen-size" (animateSystem_screen_size v)
, maybeToAttr toAttrFrStr "system-screen-depth" (animateSystem_screen_depth v)
, maybeToAttr toAttrFrStr "dur" (animateDur v)
, maybeToAttr toAttrFrStr "repeatCount" (animateRepeatCount v)
, maybeToAttr toAttrFrStr "repeatDur" (animateRepeatDur v)
, maybeToAttr toAttrFrStr "begin" (animateBegin v)
, maybeToAttr toAttrFrStr "end" (animateEnd v)
, toAttrFrStr "attributeName" (animateAttributeName v)
, maybeToAttr toAttrFrStr "attributeType" (animateAttributeType v)
, maybeToAttr toAttrFrStr "values" (animateValues v)
, maybeToAttr toAttrFrStr "from" (animateFrom v)
, maybeToAttr toAttrFrStr "to" (animateTo v)
, maybeToAttr toAttrFrStr "by" (animateBy v)
, defaultToAttr toAttrFrTyp "calcMode" (animateCalcMode v)
, defaultToAttr toAttrFrTyp "additive" (animateAdditive v)
, defaultToAttr toAttrFrTyp "accumulate" (animateAccumulate v)
]
instance XmlAttrType Animate_SystemCaptions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just Animate_SystemCaptions_On
translate "off" = Just Animate_SystemCaptions_Off
translate _ = Nothing
toAttrFrTyp n Animate_SystemCaptions_On = Just (n, str2attr "on")
toAttrFrTyp n Animate_SystemCaptions_Off = Just (n, str2attr "off")
instance XmlAttrType Animate_SystemOverdubOrSubtitle where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just Animate_SystemOverdubOrSubtitle_Overdub
translate "subtitle" = Just Animate_SystemOverdubOrSubtitle_Subtitle
translate _ = Nothing
toAttrFrTyp n Animate_SystemOverdubOrSubtitle_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n Animate_SystemOverdubOrSubtitle_Subtitle = Just (n, str2attr "subtitle")
instance XmlAttrType Animate_SystemAudioDesc where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just Animate_SystemAudioDesc_On
translate "off" = Just Animate_SystemAudioDesc_Off
translate _ = Nothing
toAttrFrTyp n Animate_SystemAudioDesc_On = Just (n, str2attr "on")
toAttrFrTyp n Animate_SystemAudioDesc_Off = Just (n, str2attr "off")
instance XmlAttrType Animate_System_captions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just Animate_System_captions_On
translate "off" = Just Animate_System_captions_Off
translate _ = Nothing
toAttrFrTyp n Animate_System_captions_On = Just (n, str2attr "on")
toAttrFrTyp n Animate_System_captions_Off = Just (n, str2attr "off")
instance XmlAttrType Animate_System_overdub_or_caption where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just Animate_System_overdub_or_caption_Overdub
translate "caption" = Just Animate_System_overdub_or_caption_Caption
translate _ = Nothing
toAttrFrTyp n Animate_System_overdub_or_caption_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n Animate_System_overdub_or_caption_Caption = Just (n, str2attr "caption")
instance XmlAttrType Animate_CalcMode where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "discrete" = Just Animate_CalcMode_Discrete
translate "linear" = Just Animate_CalcMode_Linear
translate "paced" = Just Animate_CalcMode_Paced
translate _ = Nothing
toAttrFrTyp n Animate_CalcMode_Discrete = Just (n, str2attr "discrete")
toAttrFrTyp n Animate_CalcMode_Linear = Just (n, str2attr "linear")
toAttrFrTyp n Animate_CalcMode_Paced = Just (n, str2attr "paced")
instance XmlAttrType Animate_Additive where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "replace" = Just Animate_Additive_Replace
translate "sum" = Just Animate_Additive_Sum
translate _ = Nothing
toAttrFrTyp n Animate_Additive_Replace = Just (n, str2attr "replace")
toAttrFrTyp n Animate_Additive_Sum = Just (n, str2attr "sum")
instance XmlAttrType Animate_Accumulate where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "none" = Just Animate_Accumulate_None
translate "sum" = Just Animate_Accumulate_Sum
translate _ = Nothing
toAttrFrTyp n Animate_Accumulate_None = Just (n, str2attr "none")
toAttrFrTyp n Animate_Accumulate_Sum = Just (n, str2attr "sum")
instance XmlContent Set where
fromElem (CElem (Elem "set" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "set" (toAttrs as) [])]
instance XmlAttributes Set where
fromAttrs as =
Set
{ setId = possibleA fromAttrToStr "id" as
, setClass = possibleA fromAttrToStr "class" as
, setTitle = possibleA fromAttrToStr "title" as
, setXml'lang = possibleA fromAttrToStr "xml:lang" as
, setCustomTest = possibleA fromAttrToStr "customTest" as
, setSystemBitrate = possibleA fromAttrToStr "systemBitrate" as
, setSystemCaptions = possibleA fromAttrToTyp "systemCaptions" as
, setSystemLanguage = possibleA fromAttrToStr "systemLanguage" as
, setSystemOverdubOrSubtitle = possibleA fromAttrToTyp "systemOverdubOrSubtitle" as
, setSystemRequired = possibleA fromAttrToStr "systemRequired" as
, setSystemScreenSize = possibleA fromAttrToStr "systemScreenSize" as
, setSystemScreenDepth = possibleA fromAttrToStr "systemScreenDepth" as
, setSystemAudioDesc = possibleA fromAttrToTyp "systemAudioDesc" as
, setSystemOperatingSystem = possibleA fromAttrToStr "systemOperatingSystem" as
, setSystemCPU = possibleA fromAttrToStr "systemCPU" as
, setSystemComponent = possibleA fromAttrToStr "systemComponent" as
, setSystem_bitrate = possibleA fromAttrToStr "system-bitrate" as
, setSystem_captions = possibleA fromAttrToTyp "system-captions" as
, setSystem_language = possibleA fromAttrToStr "system-language" as
, setSystem_overdub_or_caption = possibleA fromAttrToTyp "system-overdub-or-caption" as
, setSystem_required = possibleA fromAttrToStr "system-required" as
, setSystem_screen_size = possibleA fromAttrToStr "system-screen-size" as
, setSystem_screen_depth = possibleA fromAttrToStr "system-screen-depth" as
, setDur = possibleA fromAttrToStr "dur" as
, setRepeatCount = possibleA fromAttrToStr "repeatCount" as
, setRepeatDur = possibleA fromAttrToStr "repeatDur" as
, setBegin = possibleA fromAttrToStr "begin" as
, setEnd = possibleA fromAttrToStr "end" as
, setAttributeName = definiteA fromAttrToStr "set" "attributeName" as
, setAttributeType = possibleA fromAttrToStr "attributeType" as
, setTo = possibleA fromAttrToStr "to" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (setId v)
, maybeToAttr toAttrFrStr "class" (setClass v)
, maybeToAttr toAttrFrStr "title" (setTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (setXml'lang v)
, maybeToAttr toAttrFrStr "customTest" (setCustomTest v)
, maybeToAttr toAttrFrStr "systemBitrate" (setSystemBitrate v)
, maybeToAttr toAttrFrTyp "systemCaptions" (setSystemCaptions v)
, maybeToAttr toAttrFrStr "systemLanguage" (setSystemLanguage v)
, maybeToAttr toAttrFrTyp "systemOverdubOrSubtitle" (setSystemOverdubOrSubtitle v)
, maybeToAttr toAttrFrStr "systemRequired" (setSystemRequired v)
, maybeToAttr toAttrFrStr "systemScreenSize" (setSystemScreenSize v)
, maybeToAttr toAttrFrStr "systemScreenDepth" (setSystemScreenDepth v)
, maybeToAttr toAttrFrTyp "systemAudioDesc" (setSystemAudioDesc v)
, maybeToAttr toAttrFrStr "systemOperatingSystem" (setSystemOperatingSystem v)
, maybeToAttr toAttrFrStr "systemCPU" (setSystemCPU v)
, maybeToAttr toAttrFrStr "systemComponent" (setSystemComponent v)
, maybeToAttr toAttrFrStr "system-bitrate" (setSystem_bitrate v)
, maybeToAttr toAttrFrTyp "system-captions" (setSystem_captions v)
, maybeToAttr toAttrFrStr "system-language" (setSystem_language v)
, maybeToAttr toAttrFrTyp "system-overdub-or-caption" (setSystem_overdub_or_caption v)
, maybeToAttr toAttrFrStr "system-required" (setSystem_required v)
, maybeToAttr toAttrFrStr "system-screen-size" (setSystem_screen_size v)
, maybeToAttr toAttrFrStr "system-screen-depth" (setSystem_screen_depth v)
, maybeToAttr toAttrFrStr "dur" (setDur v)
, maybeToAttr toAttrFrStr "repeatCount" (setRepeatCount v)
, maybeToAttr toAttrFrStr "repeatDur" (setRepeatDur v)
, maybeToAttr toAttrFrStr "begin" (setBegin v)
, maybeToAttr toAttrFrStr "end" (setEnd v)
, toAttrFrStr "attributeName" (setAttributeName v)
, maybeToAttr toAttrFrStr "attributeType" (setAttributeType v)
, maybeToAttr toAttrFrStr "to" (setTo v)
]
instance XmlAttrType Set_SystemCaptions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just Set_SystemCaptions_On
translate "off" = Just Set_SystemCaptions_Off
translate _ = Nothing
toAttrFrTyp n Set_SystemCaptions_On = Just (n, str2attr "on")
toAttrFrTyp n Set_SystemCaptions_Off = Just (n, str2attr "off")
instance XmlAttrType Set_SystemOverdubOrSubtitle where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just Set_SystemOverdubOrSubtitle_Overdub
translate "subtitle" = Just Set_SystemOverdubOrSubtitle_Subtitle
translate _ = Nothing
toAttrFrTyp n Set_SystemOverdubOrSubtitle_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n Set_SystemOverdubOrSubtitle_Subtitle = Just (n, str2attr "subtitle")
instance XmlAttrType Set_SystemAudioDesc where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just Set_SystemAudioDesc_On
translate "off" = Just Set_SystemAudioDesc_Off
translate _ = Nothing
toAttrFrTyp n Set_SystemAudioDesc_On = Just (n, str2attr "on")
toAttrFrTyp n Set_SystemAudioDesc_Off = Just (n, str2attr "off")
instance XmlAttrType Set_System_captions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just Set_System_captions_On
translate "off" = Just Set_System_captions_Off
translate _ = Nothing
toAttrFrTyp n Set_System_captions_On = Just (n, str2attr "on")
toAttrFrTyp n Set_System_captions_Off = Just (n, str2attr "off")
instance XmlAttrType Set_System_overdub_or_caption where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just Set_System_overdub_or_caption_Overdub
translate "caption" = Just Set_System_overdub_or_caption_Caption
translate _ = Nothing
toAttrFrTyp n Set_System_overdub_or_caption_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n Set_System_overdub_or_caption_Caption = Just (n, str2attr "caption")
instance XmlContent AnimateMotion where
fromElem (CElem (Elem "animateMotion" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "animateMotion" (toAttrs as) [])]
instance XmlAttributes AnimateMotion where
fromAttrs as =
AnimateMotion
{ animateMotionId = possibleA fromAttrToStr "id" as
, animateMotionClass = possibleA fromAttrToStr "class" as
, animateMotionTitle = possibleA fromAttrToStr "title" as
, animateMotionXml'lang = possibleA fromAttrToStr "xml:lang" as
, animateMotionCustomTest = possibleA fromAttrToStr "customTest" as
, animateMotionSystemBitrate = possibleA fromAttrToStr "systemBitrate" as
, animateMotionSystemCaptions = possibleA fromAttrToTyp "systemCaptions" as
, animateMotionSystemLanguage = possibleA fromAttrToStr "systemLanguage" as
, animateMotionSystemOverdubOrSubtitle = possibleA fromAttrToTyp "systemOverdubOrSubtitle" as
, animateMotionSystemRequired = possibleA fromAttrToStr "systemRequired" as
, animateMotionSystemScreenSize = possibleA fromAttrToStr "systemScreenSize" as
, animateMotionSystemScreenDepth = possibleA fromAttrToStr "systemScreenDepth" as
, animateMotionSystemAudioDesc = possibleA fromAttrToTyp "systemAudioDesc" as
, animateMotionSystemOperatingSystem = possibleA fromAttrToStr "systemOperatingSystem" as
, animateMotionSystemCPU = possibleA fromAttrToStr "systemCPU" as
, animateMotionSystemComponent = possibleA fromAttrToStr "systemComponent" as
, animateMotionSystem_bitrate = possibleA fromAttrToStr "system-bitrate" as
, animateMotionSystem_captions = possibleA fromAttrToTyp "system-captions" as
, animateMotionSystem_language = possibleA fromAttrToStr "system-language" as
, animateMotionSystem_overdub_or_caption = possibleA fromAttrToTyp "system-overdub-or-caption" as
, animateMotionSystem_required = possibleA fromAttrToStr "system-required" as
, animateMotionSystem_screen_size = possibleA fromAttrToStr "system-screen-size" as
, animateMotionSystem_screen_depth = possibleA fromAttrToStr "system-screen-depth" as
, animateMotionDur = possibleA fromAttrToStr "dur" as
, animateMotionRepeatCount = possibleA fromAttrToStr "repeatCount" as
, animateMotionRepeatDur = possibleA fromAttrToStr "repeatDur" as
, animateMotionBegin = possibleA fromAttrToStr "begin" as
, animateMotionEnd = possibleA fromAttrToStr "end" as
, animateMotionValues = possibleA fromAttrToStr "values" as
, animateMotionFrom = possibleA fromAttrToStr "from" as
, animateMotionTo = possibleA fromAttrToStr "to" as
, animateMotionBy = possibleA fromAttrToStr "by" as
, animateMotionCalcMode = defaultA fromAttrToTyp AnimateMotion_CalcMode_Linear "calcMode" as
, animateMotionAdditive = defaultA fromAttrToTyp AnimateMotion_Additive_Replace "additive" as
, animateMotionAccumulate = defaultA fromAttrToTyp AnimateMotion_Accumulate_None "accumulate" as
, animateMotionOrigin = defaultA fromAttrToTyp AnimateMotion_Origin_Default "origin" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (animateMotionId v)
, maybeToAttr toAttrFrStr "class" (animateMotionClass v)
, maybeToAttr toAttrFrStr "title" (animateMotionTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (animateMotionXml'lang v)
, maybeToAttr toAttrFrStr "customTest" (animateMotionCustomTest v)
, maybeToAttr toAttrFrStr "systemBitrate" (animateMotionSystemBitrate v)
, maybeToAttr toAttrFrTyp "systemCaptions" (animateMotionSystemCaptions v)
, maybeToAttr toAttrFrStr "systemLanguage" (animateMotionSystemLanguage v)
, maybeToAttr toAttrFrTyp "systemOverdubOrSubtitle" (animateMotionSystemOverdubOrSubtitle v)
, maybeToAttr toAttrFrStr "systemRequired" (animateMotionSystemRequired v)
, maybeToAttr toAttrFrStr "systemScreenSize" (animateMotionSystemScreenSize v)
, maybeToAttr toAttrFrStr "systemScreenDepth" (animateMotionSystemScreenDepth v)
, maybeToAttr toAttrFrTyp "systemAudioDesc" (animateMotionSystemAudioDesc v)
, maybeToAttr toAttrFrStr "systemOperatingSystem" (animateMotionSystemOperatingSystem v)
, maybeToAttr toAttrFrStr "systemCPU" (animateMotionSystemCPU v)
, maybeToAttr toAttrFrStr "systemComponent" (animateMotionSystemComponent v)
, maybeToAttr toAttrFrStr "system-bitrate" (animateMotionSystem_bitrate v)
, maybeToAttr toAttrFrTyp "system-captions" (animateMotionSystem_captions v)
, maybeToAttr toAttrFrStr "system-language" (animateMotionSystem_language v)
, maybeToAttr toAttrFrTyp "system-overdub-or-caption" (animateMotionSystem_overdub_or_caption v)
, maybeToAttr toAttrFrStr "system-required" (animateMotionSystem_required v)
, maybeToAttr toAttrFrStr "system-screen-size" (animateMotionSystem_screen_size v)
, maybeToAttr toAttrFrStr "system-screen-depth" (animateMotionSystem_screen_depth v)
, maybeToAttr toAttrFrStr "dur" (animateMotionDur v)
, maybeToAttr toAttrFrStr "repeatCount" (animateMotionRepeatCount v)
, maybeToAttr toAttrFrStr "repeatDur" (animateMotionRepeatDur v)
, maybeToAttr toAttrFrStr "begin" (animateMotionBegin v)
, maybeToAttr toAttrFrStr "end" (animateMotionEnd v)
, maybeToAttr toAttrFrStr "values" (animateMotionValues v)
, maybeToAttr toAttrFrStr "from" (animateMotionFrom v)
, maybeToAttr toAttrFrStr "to" (animateMotionTo v)
, maybeToAttr toAttrFrStr "by" (animateMotionBy v)
, defaultToAttr toAttrFrTyp "calcMode" (animateMotionCalcMode v)
, defaultToAttr toAttrFrTyp "additive" (animateMotionAdditive v)
, defaultToAttr toAttrFrTyp "accumulate" (animateMotionAccumulate v)
, defaultToAttr toAttrFrTyp "origin" (animateMotionOrigin v)
]
instance XmlAttrType AnimateMotion_SystemCaptions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just AnimateMotion_SystemCaptions_On
translate "off" = Just AnimateMotion_SystemCaptions_Off
translate _ = Nothing
toAttrFrTyp n AnimateMotion_SystemCaptions_On = Just (n, str2attr "on")
toAttrFrTyp n AnimateMotion_SystemCaptions_Off = Just (n, str2attr "off")
instance XmlAttrType AnimateMotion_SystemOverdubOrSubtitle where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just AnimateMotion_SystemOverdubOrSubtitle_Overdub
translate "subtitle" = Just AnimateMotion_SystemOverdubOrSubtitle_Subtitle
translate _ = Nothing
toAttrFrTyp n AnimateMotion_SystemOverdubOrSubtitle_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n AnimateMotion_SystemOverdubOrSubtitle_Subtitle = Just (n, str2attr "subtitle")
instance XmlAttrType AnimateMotion_SystemAudioDesc where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just AnimateMotion_SystemAudioDesc_On
translate "off" = Just AnimateMotion_SystemAudioDesc_Off
translate _ = Nothing
toAttrFrTyp n AnimateMotion_SystemAudioDesc_On = Just (n, str2attr "on")
toAttrFrTyp n AnimateMotion_SystemAudioDesc_Off = Just (n, str2attr "off")
instance XmlAttrType AnimateMotion_System_captions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just AnimateMotion_System_captions_On
translate "off" = Just AnimateMotion_System_captions_Off
translate _ = Nothing
toAttrFrTyp n AnimateMotion_System_captions_On = Just (n, str2attr "on")
toAttrFrTyp n AnimateMotion_System_captions_Off = Just (n, str2attr "off")
instance XmlAttrType AnimateMotion_System_overdub_or_caption where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just AnimateMotion_System_overdub_or_caption_Overdub
translate "caption" = Just AnimateMotion_System_overdub_or_caption_Caption
translate _ = Nothing
toAttrFrTyp n AnimateMotion_System_overdub_or_caption_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n AnimateMotion_System_overdub_or_caption_Caption = Just (n, str2attr "caption")
instance XmlAttrType AnimateMotion_CalcMode where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "discrete" = Just AnimateMotion_CalcMode_Discrete
translate "linear" = Just AnimateMotion_CalcMode_Linear
translate "paced" = Just AnimateMotion_CalcMode_Paced
translate _ = Nothing
toAttrFrTyp n AnimateMotion_CalcMode_Discrete = Just (n, str2attr "discrete")
toAttrFrTyp n AnimateMotion_CalcMode_Linear = Just (n, str2attr "linear")
toAttrFrTyp n AnimateMotion_CalcMode_Paced = Just (n, str2attr "paced")
instance XmlAttrType AnimateMotion_Additive where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "replace" = Just AnimateMotion_Additive_Replace
translate "sum" = Just AnimateMotion_Additive_Sum
translate _ = Nothing
toAttrFrTyp n AnimateMotion_Additive_Replace = Just (n, str2attr "replace")
toAttrFrTyp n AnimateMotion_Additive_Sum = Just (n, str2attr "sum")
instance XmlAttrType AnimateMotion_Accumulate where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "none" = Just AnimateMotion_Accumulate_None
translate "sum" = Just AnimateMotion_Accumulate_Sum
translate _ = Nothing
toAttrFrTyp n AnimateMotion_Accumulate_None = Just (n, str2attr "none")
toAttrFrTyp n AnimateMotion_Accumulate_Sum = Just (n, str2attr "sum")
instance XmlAttrType AnimateMotion_Origin where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "default" = Just AnimateMotion_Origin_Default
translate _ = Nothing
toAttrFrTyp n AnimateMotion_Origin_Default = Just (n, str2attr "default")
instance XmlContent AnimateColor where
fromElem (CElem (Elem "animateColor" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "animateColor" (toAttrs as) [])]
instance XmlAttributes AnimateColor where
fromAttrs as =
AnimateColor
{ animateColorId = possibleA fromAttrToStr "id" as
, animateColorClass = possibleA fromAttrToStr "class" as
, animateColorTitle = possibleA fromAttrToStr "title" as
, animateColorXml'lang = possibleA fromAttrToStr "xml:lang" as
, animateColorCustomTest = possibleA fromAttrToStr "customTest" as
, animateColorSystemBitrate = possibleA fromAttrToStr "systemBitrate" as
, animateColorSystemCaptions = possibleA fromAttrToTyp "systemCaptions" as
, animateColorSystemLanguage = possibleA fromAttrToStr "systemLanguage" as
, animateColorSystemOverdubOrSubtitle = possibleA fromAttrToTyp "systemOverdubOrSubtitle" as
, animateColorSystemRequired = possibleA fromAttrToStr "systemRequired" as
, animateColorSystemScreenSize = possibleA fromAttrToStr "systemScreenSize" as
, animateColorSystemScreenDepth = possibleA fromAttrToStr "systemScreenDepth" as
, animateColorSystemAudioDesc = possibleA fromAttrToTyp "systemAudioDesc" as
, animateColorSystemOperatingSystem = possibleA fromAttrToStr "systemOperatingSystem" as
, animateColorSystemCPU = possibleA fromAttrToStr "systemCPU" as
, animateColorSystemComponent = possibleA fromAttrToStr "systemComponent" as
, animateColorSystem_bitrate = possibleA fromAttrToStr "system-bitrate" as
, animateColorSystem_captions = possibleA fromAttrToTyp "system-captions" as
, animateColorSystem_language = possibleA fromAttrToStr "system-language" as
, animateColorSystem_overdub_or_caption = possibleA fromAttrToTyp "system-overdub-or-caption" as
, animateColorSystem_required = possibleA fromAttrToStr "system-required" as
, animateColorSystem_screen_size = possibleA fromAttrToStr "system-screen-size" as
, animateColorSystem_screen_depth = possibleA fromAttrToStr "system-screen-depth" as
, animateColorDur = possibleA fromAttrToStr "dur" as
, animateColorRepeatCount = possibleA fromAttrToStr "repeatCount" as
, animateColorRepeatDur = possibleA fromAttrToStr "repeatDur" as
, animateColorBegin = possibleA fromAttrToStr "begin" as
, animateColorEnd = possibleA fromAttrToStr "end" as
, animateColorAttributeName = definiteA fromAttrToStr "animateColor" "attributeName" as
, animateColorAttributeType = possibleA fromAttrToStr "attributeType" as
, animateColorValues = possibleA fromAttrToStr "values" as
, animateColorFrom = possibleA fromAttrToStr "from" as
, animateColorTo = possibleA fromAttrToStr "to" as
, animateColorBy = possibleA fromAttrToStr "by" as
, animateColorCalcMode = defaultA fromAttrToTyp AnimateColor_CalcMode_Linear "calcMode" as
, animateColorAdditive = defaultA fromAttrToTyp AnimateColor_Additive_Replace "additive" as
, animateColorAccumulate = defaultA fromAttrToTyp AnimateColor_Accumulate_None "accumulate" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (animateColorId v)
, maybeToAttr toAttrFrStr "class" (animateColorClass v)
, maybeToAttr toAttrFrStr "title" (animateColorTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (animateColorXml'lang v)
, maybeToAttr toAttrFrStr "customTest" (animateColorCustomTest v)
, maybeToAttr toAttrFrStr "systemBitrate" (animateColorSystemBitrate v)
, maybeToAttr toAttrFrTyp "systemCaptions" (animateColorSystemCaptions v)
, maybeToAttr toAttrFrStr "systemLanguage" (animateColorSystemLanguage v)
, maybeToAttr toAttrFrTyp "systemOverdubOrSubtitle" (animateColorSystemOverdubOrSubtitle v)
, maybeToAttr toAttrFrStr "systemRequired" (animateColorSystemRequired v)
, maybeToAttr toAttrFrStr "systemScreenSize" (animateColorSystemScreenSize v)
, maybeToAttr toAttrFrStr "systemScreenDepth" (animateColorSystemScreenDepth v)
, maybeToAttr toAttrFrTyp "systemAudioDesc" (animateColorSystemAudioDesc v)
, maybeToAttr toAttrFrStr "systemOperatingSystem" (animateColorSystemOperatingSystem v)
, maybeToAttr toAttrFrStr "systemCPU" (animateColorSystemCPU v)
, maybeToAttr toAttrFrStr "systemComponent" (animateColorSystemComponent v)
, maybeToAttr toAttrFrStr "system-bitrate" (animateColorSystem_bitrate v)
, maybeToAttr toAttrFrTyp "system-captions" (animateColorSystem_captions v)
, maybeToAttr toAttrFrStr "system-language" (animateColorSystem_language v)
, maybeToAttr toAttrFrTyp "system-overdub-or-caption" (animateColorSystem_overdub_or_caption v)
, maybeToAttr toAttrFrStr "system-required" (animateColorSystem_required v)
, maybeToAttr toAttrFrStr "system-screen-size" (animateColorSystem_screen_size v)
, maybeToAttr toAttrFrStr "system-screen-depth" (animateColorSystem_screen_depth v)
, maybeToAttr toAttrFrStr "dur" (animateColorDur v)
, maybeToAttr toAttrFrStr "repeatCount" (animateColorRepeatCount v)
, maybeToAttr toAttrFrStr "repeatDur" (animateColorRepeatDur v)
, maybeToAttr toAttrFrStr "begin" (animateColorBegin v)
, maybeToAttr toAttrFrStr "end" (animateColorEnd v)
, toAttrFrStr "attributeName" (animateColorAttributeName v)
, maybeToAttr toAttrFrStr "attributeType" (animateColorAttributeType v)
, maybeToAttr toAttrFrStr "values" (animateColorValues v)
, maybeToAttr toAttrFrStr "from" (animateColorFrom v)
, maybeToAttr toAttrFrStr "to" (animateColorTo v)
, maybeToAttr toAttrFrStr "by" (animateColorBy v)
, defaultToAttr toAttrFrTyp "calcMode" (animateColorCalcMode v)
, defaultToAttr toAttrFrTyp "additive" (animateColorAdditive v)
, defaultToAttr toAttrFrTyp "accumulate" (animateColorAccumulate v)
]
instance XmlAttrType AnimateColor_SystemCaptions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just AnimateColor_SystemCaptions_On
translate "off" = Just AnimateColor_SystemCaptions_Off
translate _ = Nothing
toAttrFrTyp n AnimateColor_SystemCaptions_On = Just (n, str2attr "on")
toAttrFrTyp n AnimateColor_SystemCaptions_Off = Just (n, str2attr "off")
instance XmlAttrType AnimateColor_SystemOverdubOrSubtitle where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just AnimateColor_SystemOverdubOrSubtitle_Overdub
translate "subtitle" = Just AnimateColor_SystemOverdubOrSubtitle_Subtitle
translate _ = Nothing
toAttrFrTyp n AnimateColor_SystemOverdubOrSubtitle_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n AnimateColor_SystemOverdubOrSubtitle_Subtitle = Just (n, str2attr "subtitle")
instance XmlAttrType AnimateColor_SystemAudioDesc where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just AnimateColor_SystemAudioDesc_On
translate "off" = Just AnimateColor_SystemAudioDesc_Off
translate _ = Nothing
toAttrFrTyp n AnimateColor_SystemAudioDesc_On = Just (n, str2attr "on")
toAttrFrTyp n AnimateColor_SystemAudioDesc_Off = Just (n, str2attr "off")
instance XmlAttrType AnimateColor_System_captions where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "on" = Just AnimateColor_System_captions_On
translate "off" = Just AnimateColor_System_captions_Off
translate _ = Nothing
toAttrFrTyp n AnimateColor_System_captions_On = Just (n, str2attr "on")
toAttrFrTyp n AnimateColor_System_captions_Off = Just (n, str2attr "off")
instance XmlAttrType AnimateColor_System_overdub_or_caption where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "overdub" = Just AnimateColor_System_overdub_or_caption_Overdub
translate "caption" = Just AnimateColor_System_overdub_or_caption_Caption
translate _ = Nothing
toAttrFrTyp n AnimateColor_System_overdub_or_caption_Overdub = Just (n, str2attr "overdub")
toAttrFrTyp n AnimateColor_System_overdub_or_caption_Caption = Just (n, str2attr "caption")
instance XmlAttrType AnimateColor_CalcMode where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "discrete" = Just AnimateColor_CalcMode_Discrete
translate "linear" = Just AnimateColor_CalcMode_Linear
translate "paced" = Just AnimateColor_CalcMode_Paced
translate _ = Nothing
toAttrFrTyp n AnimateColor_CalcMode_Discrete = Just (n, str2attr "discrete")
toAttrFrTyp n AnimateColor_CalcMode_Linear = Just (n, str2attr "linear")
toAttrFrTyp n AnimateColor_CalcMode_Paced = Just (n, str2attr "paced")
instance XmlAttrType AnimateColor_Additive where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "replace" = Just AnimateColor_Additive_Replace
translate "sum" = Just AnimateColor_Additive_Sum
translate _ = Nothing
toAttrFrTyp n AnimateColor_Additive_Replace = Just (n, str2attr "replace")
toAttrFrTyp n AnimateColor_Additive_Sum = Just (n, str2attr "sum")
instance XmlAttrType AnimateColor_Accumulate where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "none" = Just AnimateColor_Accumulate_None
translate "sum" = Just AnimateColor_Accumulate_Sum
translate _ = Nothing
toAttrFrTyp n AnimateColor_Accumulate_None = Just (n, str2attr "none")
toAttrFrTyp n AnimateColor_Accumulate_Sum = Just (n, str2attr "sum")
instance XmlContent Switch where
fromElem (CElem (Elem "switch" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "switch" (toAttrs as) [])]
instance XmlAttributes Switch where
fromAttrs as =
Switch
{ switchId = possibleA fromAttrToStr "id" as
, switchClass = possibleA fromAttrToStr "class" as
, switchTitle = possibleA fromAttrToStr "title" as
, switchXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (switchId v)
, maybeToAttr toAttrFrStr "class" (switchClass v)
, maybeToAttr toAttrFrStr "title" (switchTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (switchXml'lang v)
]
instance XmlContent Meta where
fromElem (CElem (Elem "meta" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "meta" (toAttrs as) [])]
instance XmlAttributes Meta where
fromAttrs as =
Meta
{ metaContent = possibleA fromAttrToStr "content" as
, metaName = definiteA fromAttrToStr "meta" "name" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "content" (metaContent v)
, toAttrFrStr "name" (metaName v)
]
instance XmlContent Metadata where
fromElem (CElem (Elem "metadata" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "metadata" (toAttrs as) [])]
instance XmlAttributes Metadata where
fromAttrs as =
Metadata
{ metadataId = possibleA fromAttrToStr "id" as
, metadataClass = possibleA fromAttrToStr "class" as
, metadataTitle = possibleA fromAttrToStr "title" as
, metadataXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (metadataId v)
, maybeToAttr toAttrFrStr "class" (metadataClass v)
, maybeToAttr toAttrFrStr "title" (metadataTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (metadataXml'lang v)
]
instance XmlContent Layout where
fromElem (CElem (Elem "layout" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "layout" (toAttrs as) [])]
instance XmlAttributes Layout where
fromAttrs as =
Layout
{ layoutId = possibleA fromAttrToStr "id" as
, layoutClass = possibleA fromAttrToStr "class" as
, layoutTitle = possibleA fromAttrToStr "title" as
, layoutXml'lang = possibleA fromAttrToStr "xml:lang" as
, layoutType = defaultA fromAttrToStr "text/smil-basic-layout" "type" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (layoutId v)
, maybeToAttr toAttrFrStr "class" (layoutClass v)
, maybeToAttr toAttrFrStr "title" (layoutTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (layoutXml'lang v)
, defaultToAttr toAttrFrStr "type" (layoutType v)
]
instance XmlContent Region where
fromElem (CElem (Elem "region" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "region" (toAttrs as) [])]
instance XmlAttributes Region where
fromAttrs as =
Region
{ regionId = possibleA fromAttrToStr "id" as
, regionClass = possibleA fromAttrToStr "class" as
, regionTitle = possibleA fromAttrToStr "title" as
, regionXml'lang = possibleA fromAttrToStr "xml:lang" as
, regionHeight = defaultA fromAttrToStr "auto" "height" as
, regionWidth = defaultA fromAttrToStr "auto" "width" as
, regionClose = defaultA fromAttrToTyp Region_Close_Never "close" as
, regionOpen = defaultA fromAttrToTyp Region_Open_Always "open" as
, regionBackgroundColor = possibleA fromAttrToStr "backgroundColor" as
, regionBackground_color = possibleA fromAttrToStr "background-color" as
, regionBottom = defaultA fromAttrToStr "auto" "bottom" as
, regionLeft = defaultA fromAttrToStr "auto" "left" as
, regionRight = defaultA fromAttrToStr "auto" "right" as
, regionTop = defaultA fromAttrToStr "auto" "top" as
, regionZ_index = possibleA fromAttrToStr "z-index" as
, regionShowBackground = defaultA fromAttrToTyp Region_ShowBackground_Always "showBackground" as
, regionFit = defaultA fromAttrToTyp Region_Fit_Hidden "fit" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (regionId v)
, maybeToAttr toAttrFrStr "class" (regionClass v)
, maybeToAttr toAttrFrStr "title" (regionTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (regionXml'lang v)
, defaultToAttr toAttrFrStr "height" (regionHeight v)
, defaultToAttr toAttrFrStr "width" (regionWidth v)
, defaultToAttr toAttrFrTyp "close" (regionClose v)
, defaultToAttr toAttrFrTyp "open" (regionOpen v)
, maybeToAttr toAttrFrStr "backgroundColor" (regionBackgroundColor v)
, maybeToAttr toAttrFrStr "background-color" (regionBackground_color v)
, defaultToAttr toAttrFrStr "bottom" (regionBottom v)
, defaultToAttr toAttrFrStr "left" (regionLeft v)
, defaultToAttr toAttrFrStr "right" (regionRight v)
, defaultToAttr toAttrFrStr "top" (regionTop v)
, maybeToAttr toAttrFrStr "z-index" (regionZ_index v)
, defaultToAttr toAttrFrTyp "showBackground" (regionShowBackground v)
, defaultToAttr toAttrFrTyp "fit" (regionFit v)
]
instance XmlAttrType Region_Close where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "never" = Just Region_Close_Never
translate "whenNotActive" = Just Region_Close_WhenNotActive
translate _ = Nothing
toAttrFrTyp n Region_Close_Never = Just (n, str2attr "never")
toAttrFrTyp n Region_Close_WhenNotActive = Just (n, str2attr "whenNotActive")
instance XmlAttrType Region_Open where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "always" = Just Region_Open_Always
translate "whenActive" = Just Region_Open_WhenActive
translate _ = Nothing
toAttrFrTyp n Region_Open_Always = Just (n, str2attr "always")
toAttrFrTyp n Region_Open_WhenActive = Just (n, str2attr "whenActive")
instance XmlAttrType Region_ShowBackground where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "always" = Just Region_ShowBackground_Always
translate "whenActive" = Just Region_ShowBackground_WhenActive
translate _ = Nothing
toAttrFrTyp n Region_ShowBackground_Always = Just (n, str2attr "always")
toAttrFrTyp n Region_ShowBackground_WhenActive = Just (n, str2attr "whenActive")
instance XmlAttrType Region_Fit where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "hidden" = Just Region_Fit_Hidden
translate "fill" = Just Region_Fit_Fill
translate "meet" = Just Region_Fit_Meet
translate "scroll" = Just Region_Fit_Scroll
translate "slice" = Just Region_Fit_Slice
translate _ = Nothing
toAttrFrTyp n Region_Fit_Hidden = Just (n, str2attr "hidden")
toAttrFrTyp n Region_Fit_Fill = Just (n, str2attr "fill")
toAttrFrTyp n Region_Fit_Meet = Just (n, str2attr "meet")
toAttrFrTyp n Region_Fit_Scroll = Just (n, str2attr "scroll")
toAttrFrTyp n Region_Fit_Slice = Just (n, str2attr "slice")
instance XmlContent Root_layout where
fromElem (CElem (Elem "root-layout" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "root-layout" (toAttrs as) [])]
instance XmlAttributes Root_layout where
fromAttrs as =
Root_layout
{ root_layoutId = possibleA fromAttrToStr "id" as
, root_layoutClass = possibleA fromAttrToStr "class" as
, root_layoutTitle = possibleA fromAttrToStr "title" as
, root_layoutXml'lang = possibleA fromAttrToStr "xml:lang" as
, root_layoutHeight = defaultA fromAttrToStr "auto" "height" as
, root_layoutWidth = defaultA fromAttrToStr "auto" "width" as
, root_layoutClose = defaultA fromAttrToTyp Root_layout_Close_Never "close" as
, root_layoutOpen = defaultA fromAttrToTyp Root_layout_Open_Always "open" as
, root_layoutBackgroundColor = possibleA fromAttrToStr "backgroundColor" as
, root_layoutBackground_color = possibleA fromAttrToStr "background-color" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (root_layoutId v)
, maybeToAttr toAttrFrStr "class" (root_layoutClass v)
, maybeToAttr toAttrFrStr "title" (root_layoutTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (root_layoutXml'lang v)
, defaultToAttr toAttrFrStr "height" (root_layoutHeight v)
, defaultToAttr toAttrFrStr "width" (root_layoutWidth v)
, defaultToAttr toAttrFrTyp "close" (root_layoutClose v)
, defaultToAttr toAttrFrTyp "open" (root_layoutOpen v)
, maybeToAttr toAttrFrStr "backgroundColor" (root_layoutBackgroundColor v)
, maybeToAttr toAttrFrStr "background-color" (root_layoutBackground_color v)
]
instance XmlAttrType Root_layout_Close where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "never" = Just Root_layout_Close_Never
translate "whenNotActive" = Just Root_layout_Close_WhenNotActive
translate _ = Nothing
toAttrFrTyp n Root_layout_Close_Never = Just (n, str2attr "never")
toAttrFrTyp n Root_layout_Close_WhenNotActive = Just (n, str2attr "whenNotActive")
instance XmlAttrType Root_layout_Open where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "always" = Just Root_layout_Open_Always
translate "whenActive" = Just Root_layout_Open_WhenActive
translate _ = Nothing
toAttrFrTyp n Root_layout_Open_Always = Just (n, str2attr "always")
toAttrFrTyp n Root_layout_Open_WhenActive = Just (n, str2attr "whenActive")
instance XmlContent Ref where
fromElem (CElem (Elem "ref" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "ref" (toAttrs as) [])]
instance XmlAttributes Ref where
fromAttrs as =
Ref
{ refId = possibleA fromAttrToStr "id" as
, refClass = possibleA fromAttrToStr "class" as
, refTitle = possibleA fromAttrToStr "title" as
, refXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (refId v)
, maybeToAttr toAttrFrStr "class" (refClass v)
, maybeToAttr toAttrFrStr "title" (refTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (refXml'lang v)
]
instance XmlContent Audio where
fromElem (CElem (Elem "audio" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "audio" (toAttrs as) [])]
instance XmlAttributes Audio where
fromAttrs as =
Audio
{ audioId = possibleA fromAttrToStr "id" as
, audioClass = possibleA fromAttrToStr "class" as
, audioTitle = possibleA fromAttrToStr "title" as
, audioXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (audioId v)
, maybeToAttr toAttrFrStr "class" (audioClass v)
, maybeToAttr toAttrFrStr "title" (audioTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (audioXml'lang v)
]
instance XmlContent Img where
fromElem (CElem (Elem "img" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "img" (toAttrs as) [])]
instance XmlAttributes Img where
fromAttrs as =
Img
{ imgId = possibleA fromAttrToStr "id" as
, imgClass = possibleA fromAttrToStr "class" as
, imgTitle = possibleA fromAttrToStr "title" as
, imgXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (imgId v)
, maybeToAttr toAttrFrStr "class" (imgClass v)
, maybeToAttr toAttrFrStr "title" (imgTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (imgXml'lang v)
]
instance XmlContent Video where
fromElem (CElem (Elem "video" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "video" (toAttrs as) [])]
instance XmlAttributes Video where
fromAttrs as =
Video
{ videoId = possibleA fromAttrToStr "id" as
, videoClass = possibleA fromAttrToStr "class" as
, videoTitle = possibleA fromAttrToStr "title" as
, videoXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (videoId v)
, maybeToAttr toAttrFrStr "class" (videoClass v)
, maybeToAttr toAttrFrStr "title" (videoTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (videoXml'lang v)
]
instance XmlContent Text where
fromElem (CElem (Elem "text" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "text" (toAttrs as) [])]
instance XmlAttributes Text where
fromAttrs as =
Text
{ textId = possibleA fromAttrToStr "id" as
, textClass = possibleA fromAttrToStr "class" as
, textTitle = possibleA fromAttrToStr "title" as
, textXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (textId v)
, maybeToAttr toAttrFrStr "class" (textClass v)
, maybeToAttr toAttrFrStr "title" (textTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (textXml'lang v)
]
instance XmlContent Textstream where
fromElem (CElem (Elem "textstream" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "textstream" (toAttrs as) [])]
instance XmlAttributes Textstream where
fromAttrs as =
Textstream
{ textstreamId = possibleA fromAttrToStr "id" as
, textstreamClass = possibleA fromAttrToStr "class" as
, textstreamTitle = possibleA fromAttrToStr "title" as
, textstreamXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (textstreamId v)
, maybeToAttr toAttrFrStr "class" (textstreamClass v)
, maybeToAttr toAttrFrStr "title" (textstreamTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (textstreamXml'lang v)
]
instance XmlContent Animation where
fromElem (CElem (Elem "animation" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "animation" (toAttrs as) [])]
instance XmlAttributes Animation where
fromAttrs as =
Animation
{ animationId = possibleA fromAttrToStr "id" as
, animationClass = possibleA fromAttrToStr "class" as
, animationTitle = possibleA fromAttrToStr "title" as
, animationXml'lang = possibleA fromAttrToStr "xml:lang" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (animationId v)
, maybeToAttr toAttrFrStr "class" (animationClass v)
, maybeToAttr toAttrFrStr "title" (animationTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (animationXml'lang v)
]
instance XmlContent Transition where
fromElem (CElem (Elem "transition" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "transition" (toAttrs as) [])]
instance XmlAttributes Transition where
fromAttrs as =
Transition
{ transitionId = possibleA fromAttrToStr "id" as
, transitionClass = possibleA fromAttrToStr "class" as
, transitionTitle = possibleA fromAttrToStr "title" as
, transitionXml'lang = possibleA fromAttrToStr "xml:lang" as
, transitionType = possibleA fromAttrToTyp "type" as
, transitionSubtype = possibleA fromAttrToTyp "subtype" as
, transitionHorzRepeat = defaultA fromAttrToStr "0" "horzRepeat" as
, transitionVertRepeat = defaultA fromAttrToStr "0" "vertRepeat" as
, transitionBorderWidth = defaultA fromAttrToStr "0" "borderWidth" as
, transitionBorderColor = defaultA fromAttrToStr "black" "borderColor" as
, transitionFadeColor = defaultA fromAttrToStr "black" "fadeColor" as
, transitionCoordinated = defaultA fromAttrToTyp Transition_Coordinated_False "coordinated" as
, transitionClibBoundary = defaultA fromAttrToTyp Transition_ClibBoundary_Children "clibBoundary" as
, transitionDur = possibleA fromAttrToStr "dur" as
, transitionStartProgress = defaultA fromAttrToStr "0.0" "startProgress" as
, transitionEndProgress = defaultA fromAttrToStr "1.0" "endProgress" as
, transitionDirection = defaultA fromAttrToTyp Transition_Direction_Forward "direction" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (transitionId v)
, maybeToAttr toAttrFrStr "class" (transitionClass v)
, maybeToAttr toAttrFrStr "title" (transitionTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (transitionXml'lang v)
, maybeToAttr toAttrFrTyp "type" (transitionType v)
, maybeToAttr toAttrFrTyp "subtype" (transitionSubtype v)
, defaultToAttr toAttrFrStr "horzRepeat" (transitionHorzRepeat v)
, defaultToAttr toAttrFrStr "vertRepeat" (transitionVertRepeat v)
, defaultToAttr toAttrFrStr "borderWidth" (transitionBorderWidth v)
, defaultToAttr toAttrFrStr "borderColor" (transitionBorderColor v)
, defaultToAttr toAttrFrStr "fadeColor" (transitionFadeColor v)
, defaultToAttr toAttrFrTyp "coordinated" (transitionCoordinated v)
, defaultToAttr toAttrFrTyp "clibBoundary" (transitionClibBoundary v)
, maybeToAttr toAttrFrStr "dur" (transitionDur v)
, defaultToAttr toAttrFrStr "startProgress" (transitionStartProgress v)
, defaultToAttr toAttrFrStr "endProgress" (transitionEndProgress v)
, defaultToAttr toAttrFrTyp "direction" (transitionDirection v)
]
instance XmlAttrType Transition_Type where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "barWipe" = Just Transition_Type_BarWipe
translate "boxWipe" = Just Transition_Type_BoxWipe
translate "fourBoxWipe" = Just Transition_Type_FourBoxWipe
translate "barnDoorWipe" = Just Transition_Type_BarnDoorWipe
translate "diagonalWipe" = Just Transition_Type_DiagonalWipe
translate "bowTieWipe" = Just Transition_Type_BowTieWipe
translate "miscDiagonalWipe" = Just Transition_Type_MiscDiagonalWipe
translate "veeWipe" = Just Transition_Type_VeeWipe
translate "barnVeeWipe" = Just Transition_Type_BarnVeeWipe
translate "zigZagWipe" = Just Transition_Type_ZigZagWipe
translate "barnZigZagWipe" = Just Transition_Type_BarnZigZagWipe
translate "miscShapeWipe" = Just Transition_Type_MiscShapeWipe
translate "triangleWipe" = Just Transition_Type_TriangleWipe
translate "arrowHeadWipe" = Just Transition_Type_ArrowHeadWipe
translate "pentagonWipe" = Just Transition_Type_PentagonWipe
translate "hexagonWipe" = Just Transition_Type_HexagonWipe
translate "ellipseWipe" = Just Transition_Type_EllipseWipe
translate "eyeWipe" = Just Transition_Type_EyeWipe
translate "roundRectWipe" = Just Transition_Type_RoundRectWipe
translate "starWipe" = Just Transition_Type_StarWipe
translate "clockWipe" = Just Transition_Type_ClockWipe
translate "pinWheelWipe" = Just Transition_Type_PinWheelWipe
translate "singleSweepWipe" = Just Transition_Type_SingleSweepWipe
translate "fanWipe" = Just Transition_Type_FanWipe
translate "doubleFanWipe" = Just Transition_Type_DoubleFanWipe
translate "doubleSweepWipe" = Just Transition_Type_DoubleSweepWipe
translate "saloonDoorWipe" = Just Transition_Type_SaloonDoorWipe
translate "windshieldWipe" = Just Transition_Type_WindshieldWipe
translate "snakeWipe" = Just Transition_Type_SnakeWipe
translate "spiralWipe" = Just Transition_Type_SpiralWipe
translate "parallelSnakesWipe" = Just Transition_Type_ParallelSnakesWipe
translate "boxSnakesWipe" = Just Transition_Type_BoxSnakesWipe
translate "waterfallWipe" = Just Transition_Type_WaterfallWipe
translate "pushWipe" = Just Transition_Type_PushWipe
translate "slideWipe" = Just Transition_Type_SlideWipe
translate "fade" = Just Transition_Type_Fade
translate _ = Nothing
toAttrFrTyp n Transition_Type_BarWipe = Just (n, str2attr "barWipe")
toAttrFrTyp n Transition_Type_BoxWipe = Just (n, str2attr "boxWipe")
toAttrFrTyp n Transition_Type_FourBoxWipe = Just (n, str2attr "fourBoxWipe")
toAttrFrTyp n Transition_Type_BarnDoorWipe = Just (n, str2attr "barnDoorWipe")
toAttrFrTyp n Transition_Type_DiagonalWipe = Just (n, str2attr "diagonalWipe")
toAttrFrTyp n Transition_Type_BowTieWipe = Just (n, str2attr "bowTieWipe")
toAttrFrTyp n Transition_Type_MiscDiagonalWipe = Just (n, str2attr "miscDiagonalWipe")
toAttrFrTyp n Transition_Type_VeeWipe = Just (n, str2attr "veeWipe")
toAttrFrTyp n Transition_Type_BarnVeeWipe = Just (n, str2attr "barnVeeWipe")
toAttrFrTyp n Transition_Type_ZigZagWipe = Just (n, str2attr "zigZagWipe")
toAttrFrTyp n Transition_Type_BarnZigZagWipe = Just (n, str2attr "barnZigZagWipe")
toAttrFrTyp n Transition_Type_MiscShapeWipe = Just (n, str2attr "miscShapeWipe")
toAttrFrTyp n Transition_Type_TriangleWipe = Just (n, str2attr "triangleWipe")
toAttrFrTyp n Transition_Type_ArrowHeadWipe = Just (n, str2attr "arrowHeadWipe")
toAttrFrTyp n Transition_Type_PentagonWipe = Just (n, str2attr "pentagonWipe")
toAttrFrTyp n Transition_Type_HexagonWipe = Just (n, str2attr "hexagonWipe")
toAttrFrTyp n Transition_Type_EllipseWipe = Just (n, str2attr "ellipseWipe")
toAttrFrTyp n Transition_Type_EyeWipe = Just (n, str2attr "eyeWipe")
toAttrFrTyp n Transition_Type_RoundRectWipe = Just (n, str2attr "roundRectWipe")
toAttrFrTyp n Transition_Type_StarWipe = Just (n, str2attr "starWipe")
toAttrFrTyp n Transition_Type_ClockWipe = Just (n, str2attr "clockWipe")
toAttrFrTyp n Transition_Type_PinWheelWipe = Just (n, str2attr "pinWheelWipe")
toAttrFrTyp n Transition_Type_SingleSweepWipe = Just (n, str2attr "singleSweepWipe")
toAttrFrTyp n Transition_Type_FanWipe = Just (n, str2attr "fanWipe")
toAttrFrTyp n Transition_Type_DoubleFanWipe = Just (n, str2attr "doubleFanWipe")
toAttrFrTyp n Transition_Type_DoubleSweepWipe = Just (n, str2attr "doubleSweepWipe")
toAttrFrTyp n Transition_Type_SaloonDoorWipe = Just (n, str2attr "saloonDoorWipe")
toAttrFrTyp n Transition_Type_WindshieldWipe = Just (n, str2attr "windshieldWipe")
toAttrFrTyp n Transition_Type_SnakeWipe = Just (n, str2attr "snakeWipe")
toAttrFrTyp n Transition_Type_SpiralWipe = Just (n, str2attr "spiralWipe")
toAttrFrTyp n Transition_Type_ParallelSnakesWipe = Just (n, str2attr "parallelSnakesWipe")
toAttrFrTyp n Transition_Type_BoxSnakesWipe = Just (n, str2attr "boxSnakesWipe")
toAttrFrTyp n Transition_Type_WaterfallWipe = Just (n, str2attr "waterfallWipe")
toAttrFrTyp n Transition_Type_PushWipe = Just (n, str2attr "pushWipe")
toAttrFrTyp n Transition_Type_SlideWipe = Just (n, str2attr "slideWipe")
toAttrFrTyp n Transition_Type_Fade = Just (n, str2attr "fade")
instance XmlAttrType Transition_Subtype where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "bottom" = Just Transition_Subtype_Bottom
translate "bottomCenter" = Just Transition_Subtype_BottomCenter
translate "bottomLeft" = Just Transition_Subtype_BottomLeft
translate "bottomLeftClockwise" = Just Transition_Subtype_BottomLeftClockwise
translate "bottomLeftCounterClockwise" = Just Transition_Subtype_BottomLeftCounterClockwise
translate "bottomLeftDiagonal" = Just Transition_Subtype_BottomLeftDiagonal
translate "bottomRight" = Just Transition_Subtype_BottomRight
translate "bottomRightClockwise" = Just Transition_Subtype_BottomRightClockwise
translate "bottomRightCounterClockwise" = Just Transition_Subtype_BottomRightCounterClockwise
translate "bottomRightDiagonal" = Just Transition_Subtype_BottomRightDiagonal
translate "centerRight" = Just Transition_Subtype_CenterRight
translate "centerTop" = Just Transition_Subtype_CenterTop
translate "circle" = Just Transition_Subtype_Circle
translate "clockwiseBottom" = Just Transition_Subtype_ClockwiseBottom
translate "clockwiseBottomRight" = Just Transition_Subtype_ClockwiseBottomRight
translate "clockwiseLeft" = Just Transition_Subtype_ClockwiseLeft
translate "clockwiseNine" = Just Transition_Subtype_ClockwiseNine
translate "clockwiseRight" = Just Transition_Subtype_ClockwiseRight
translate "clockwiseSix" = Just Transition_Subtype_ClockwiseSix
translate "clockwiseThree" = Just Transition_Subtype_ClockwiseThree
translate "clockwiseTop" = Just Transition_Subtype_ClockwiseTop
translate "clockwiseTopLeft" = Just Transition_Subtype_ClockwiseTopLeft
translate "clockwiseTwelve" = Just Transition_Subtype_ClockwiseTwelve
translate "cornersIn" = Just Transition_Subtype_CornersIn
translate "cornersOut" = Just Transition_Subtype_CornersOut
translate "counterClockwiseBottomLeft" = Just Transition_Subtype_CounterClockwiseBottomLeft
translate "counterClockwiseTopRight" = Just Transition_Subtype_CounterClockwiseTopRight
translate "crossfade" = Just Transition_Subtype_Crossfade
translate "diagonalBottomLeft" = Just Transition_Subtype_DiagonalBottomLeft
translate "diagonalBottomLeftOpposite" = Just Transition_Subtype_DiagonalBottomLeftOpposite
translate "diagonalTopLeft" = Just Transition_Subtype_DiagonalTopLeft
translate "diagonalTopLeftOpposite" = Just Transition_Subtype_DiagonalTopLeftOpposite
translate "diamond" = Just Transition_Subtype_Diamond
translate "doubleBarnDoor" = Just Transition_Subtype_DoubleBarnDoor
translate "doubleDiamond" = Just Transition_Subtype_DoubleDiamond
translate "down" = Just Transition_Subtype_Down
translate "fadeFromColor" = Just Transition_Subtype_FadeFromColor
translate "fadeToColor" = Just Transition_Subtype_FadeToColor
translate "fanInHorizontal" = Just Transition_Subtype_FanInHorizontal
translate "fanInVertical" = Just Transition_Subtype_FanInVertical
translate "fanOutHorizontal" = Just Transition_Subtype_FanOutHorizontal
translate "fanOutVertical" = Just Transition_Subtype_FanOutVertical
translate "fivePoint" = Just Transition_Subtype_FivePoint
translate "fourBlade" = Just Transition_Subtype_FourBlade
translate "fourBoxHorizontal" = Just Transition_Subtype_FourBoxHorizontal
translate "fourBoxVertical" = Just Transition_Subtype_FourBoxVertical
translate "fourPoint" = Just Transition_Subtype_FourPoint
translate "fromBottom" = Just Transition_Subtype_FromBottom
translate "fromLeft" = Just Transition_Subtype_FromLeft
translate "fromRight" = Just Transition_Subtype_FromRight
translate "fromTop" = Just Transition_Subtype_FromTop
translate "heart" = Just Transition_Subtype_Heart
translate "horizontal" = Just Transition_Subtype_Horizontal
translate "horizontalLeft" = Just Transition_Subtype_HorizontalLeft
translate "horizontalLeftSame" = Just Transition_Subtype_HorizontalLeftSame
translate "horizontalRight" = Just Transition_Subtype_HorizontalRight
translate "horizontalRightSame" = Just Transition_Subtype_HorizontalRightSame
translate "horizontalTopLeftOpposite" = Just Transition_Subtype_HorizontalTopLeftOpposite
translate "horizontalTopRightOpposite" = Just Transition_Subtype_HorizontalTopRightOpposite
translate "keyhole" = Just Transition_Subtype_Keyhole
translate "left" = Just Transition_Subtype_Left
translate "leftCenter" = Just Transition_Subtype_LeftCenter
translate "leftToRight" = Just Transition_Subtype_LeftToRight
translate "oppositeHorizontal" = Just Transition_Subtype_OppositeHorizontal
translate "oppositeVertical" = Just Transition_Subtype_OppositeVertical
translate "parallelDiagonal" = Just Transition_Subtype_ParallelDiagonal
translate "parallelDiagonalBottomLeft" = Just Transition_Subtype_ParallelDiagonalBottomLeft
translate "parallelDiagonalTopLeft" = Just Transition_Subtype_ParallelDiagonalTopLeft
translate "parallelVertical" = Just Transition_Subtype_ParallelVertical
translate "rectangle" = Just Transition_Subtype_Rectangle
translate "right" = Just Transition_Subtype_Right
translate "rightCenter" = Just Transition_Subtype_RightCenter
translate "sixPoint" = Just Transition_Subtype_SixPoint
translate "top" = Just Transition_Subtype_Top
translate "topCenter" = Just Transition_Subtype_TopCenter
translate "topLeft" = Just Transition_Subtype_TopLeft
translate "topLeftClockwise" = Just Transition_Subtype_TopLeftClockwise
translate "topLeftCounterClockwise" = Just Transition_Subtype_TopLeftCounterClockwise
translate "topLeftDiagonal" = Just Transition_Subtype_TopLeftDiagonal
translate "topLeftHorizontal" = Just Transition_Subtype_TopLeftHorizontal
translate "topLeftVertical" = Just Transition_Subtype_TopLeftVertical
translate "topRight" = Just Transition_Subtype_TopRight
translate "topRightClockwise" = Just Transition_Subtype_TopRightClockwise
translate "topRightCounterClockwise" = Just Transition_Subtype_TopRightCounterClockwise
translate "topRightDiagonal" = Just Transition_Subtype_TopRightDiagonal
translate "topToBottom" = Just Transition_Subtype_TopToBottom
translate "twoBladeHorizontal" = Just Transition_Subtype_TwoBladeHorizontal
translate "twoBladeVertical" = Just Transition_Subtype_TwoBladeVertical
translate "twoBoxBottom" = Just Transition_Subtype_TwoBoxBottom
translate "twoBoxLeft" = Just Transition_Subtype_TwoBoxLeft
translate "twoBoxRight" = Just Transition_Subtype_TwoBoxRight
translate "twoBoxTop" = Just Transition_Subtype_TwoBoxTop
translate "up" = Just Transition_Subtype_Up
translate "vertical" = Just Transition_Subtype_Vertical
translate "verticalBottomLeftOpposite" = Just Transition_Subtype_VerticalBottomLeftOpposite
translate "verticalBottomSame" = Just Transition_Subtype_VerticalBottomSame
translate "verticalLeft" = Just Transition_Subtype_VerticalLeft
translate "verticalRight" = Just Transition_Subtype_VerticalRight
translate "verticalTopLeftOpposite" = Just Transition_Subtype_VerticalTopLeftOpposite
translate "verticalTopSame" = Just Transition_Subtype_VerticalTopSame
translate _ = Nothing
toAttrFrTyp n Transition_Subtype_Bottom = Just (n, str2attr "bottom")
toAttrFrTyp n Transition_Subtype_BottomCenter = Just (n, str2attr "bottomCenter")
toAttrFrTyp n Transition_Subtype_BottomLeft = Just (n, str2attr "bottomLeft")
toAttrFrTyp n Transition_Subtype_BottomLeftClockwise = Just (n, str2attr "bottomLeftClockwise")
toAttrFrTyp n Transition_Subtype_BottomLeftCounterClockwise = Just (n, str2attr "bottomLeftCounterClockwise")
toAttrFrTyp n Transition_Subtype_BottomLeftDiagonal = Just (n, str2attr "bottomLeftDiagonal")
toAttrFrTyp n Transition_Subtype_BottomRight = Just (n, str2attr "bottomRight")
toAttrFrTyp n Transition_Subtype_BottomRightClockwise = Just (n, str2attr "bottomRightClockwise")
toAttrFrTyp n Transition_Subtype_BottomRightCounterClockwise = Just (n, str2attr "bottomRightCounterClockwise")
toAttrFrTyp n Transition_Subtype_BottomRightDiagonal = Just (n, str2attr "bottomRightDiagonal")
toAttrFrTyp n Transition_Subtype_CenterRight = Just (n, str2attr "centerRight")
toAttrFrTyp n Transition_Subtype_CenterTop = Just (n, str2attr "centerTop")
toAttrFrTyp n Transition_Subtype_Circle = Just (n, str2attr "circle")
toAttrFrTyp n Transition_Subtype_ClockwiseBottom = Just (n, str2attr "clockwiseBottom")
toAttrFrTyp n Transition_Subtype_ClockwiseBottomRight = Just (n, str2attr "clockwiseBottomRight")
toAttrFrTyp n Transition_Subtype_ClockwiseLeft = Just (n, str2attr "clockwiseLeft")
toAttrFrTyp n Transition_Subtype_ClockwiseNine = Just (n, str2attr "clockwiseNine")
toAttrFrTyp n Transition_Subtype_ClockwiseRight = Just (n, str2attr "clockwiseRight")
toAttrFrTyp n Transition_Subtype_ClockwiseSix = Just (n, str2attr "clockwiseSix")
toAttrFrTyp n Transition_Subtype_ClockwiseThree = Just (n, str2attr "clockwiseThree")
toAttrFrTyp n Transition_Subtype_ClockwiseTop = Just (n, str2attr "clockwiseTop")
toAttrFrTyp n Transition_Subtype_ClockwiseTopLeft = Just (n, str2attr "clockwiseTopLeft")
toAttrFrTyp n Transition_Subtype_ClockwiseTwelve = Just (n, str2attr "clockwiseTwelve")
toAttrFrTyp n Transition_Subtype_CornersIn = Just (n, str2attr "cornersIn")
toAttrFrTyp n Transition_Subtype_CornersOut = Just (n, str2attr "cornersOut")
toAttrFrTyp n Transition_Subtype_CounterClockwiseBottomLeft = Just (n, str2attr "counterClockwiseBottomLeft")
toAttrFrTyp n Transition_Subtype_CounterClockwiseTopRight = Just (n, str2attr "counterClockwiseTopRight")
toAttrFrTyp n Transition_Subtype_Crossfade = Just (n, str2attr "crossfade")
toAttrFrTyp n Transition_Subtype_DiagonalBottomLeft = Just (n, str2attr "diagonalBottomLeft")
toAttrFrTyp n Transition_Subtype_DiagonalBottomLeftOpposite = Just (n, str2attr "diagonalBottomLeftOpposite")
toAttrFrTyp n Transition_Subtype_DiagonalTopLeft = Just (n, str2attr "diagonalTopLeft")
toAttrFrTyp n Transition_Subtype_DiagonalTopLeftOpposite = Just (n, str2attr "diagonalTopLeftOpposite")
toAttrFrTyp n Transition_Subtype_Diamond = Just (n, str2attr "diamond")
toAttrFrTyp n Transition_Subtype_DoubleBarnDoor = Just (n, str2attr "doubleBarnDoor")
toAttrFrTyp n Transition_Subtype_DoubleDiamond = Just (n, str2attr "doubleDiamond")
toAttrFrTyp n Transition_Subtype_Down = Just (n, str2attr "down")
toAttrFrTyp n Transition_Subtype_FadeFromColor = Just (n, str2attr "fadeFromColor")
toAttrFrTyp n Transition_Subtype_FadeToColor = Just (n, str2attr "fadeToColor")
toAttrFrTyp n Transition_Subtype_FanInHorizontal = Just (n, str2attr "fanInHorizontal")
toAttrFrTyp n Transition_Subtype_FanInVertical = Just (n, str2attr "fanInVertical")
toAttrFrTyp n Transition_Subtype_FanOutHorizontal = Just (n, str2attr "fanOutHorizontal")
toAttrFrTyp n Transition_Subtype_FanOutVertical = Just (n, str2attr "fanOutVertical")
toAttrFrTyp n Transition_Subtype_FivePoint = Just (n, str2attr "fivePoint")
toAttrFrTyp n Transition_Subtype_FourBlade = Just (n, str2attr "fourBlade")
toAttrFrTyp n Transition_Subtype_FourBoxHorizontal = Just (n, str2attr "fourBoxHorizontal")
toAttrFrTyp n Transition_Subtype_FourBoxVertical = Just (n, str2attr "fourBoxVertical")
toAttrFrTyp n Transition_Subtype_FourPoint = Just (n, str2attr "fourPoint")
toAttrFrTyp n Transition_Subtype_FromBottom = Just (n, str2attr "fromBottom")
toAttrFrTyp n Transition_Subtype_FromLeft = Just (n, str2attr "fromLeft")
toAttrFrTyp n Transition_Subtype_FromRight = Just (n, str2attr "fromRight")
toAttrFrTyp n Transition_Subtype_FromTop = Just (n, str2attr "fromTop")
toAttrFrTyp n Transition_Subtype_Heart = Just (n, str2attr "heart")
toAttrFrTyp n Transition_Subtype_Horizontal = Just (n, str2attr "horizontal")
toAttrFrTyp n Transition_Subtype_HorizontalLeft = Just (n, str2attr "horizontalLeft")
toAttrFrTyp n Transition_Subtype_HorizontalLeftSame = Just (n, str2attr "horizontalLeftSame")
toAttrFrTyp n Transition_Subtype_HorizontalRight = Just (n, str2attr "horizontalRight")
toAttrFrTyp n Transition_Subtype_HorizontalRightSame = Just (n, str2attr "horizontalRightSame")
toAttrFrTyp n Transition_Subtype_HorizontalTopLeftOpposite = Just (n, str2attr "horizontalTopLeftOpposite")
toAttrFrTyp n Transition_Subtype_HorizontalTopRightOpposite = Just (n, str2attr "horizontalTopRightOpposite")
toAttrFrTyp n Transition_Subtype_Keyhole = Just (n, str2attr "keyhole")
toAttrFrTyp n Transition_Subtype_Left = Just (n, str2attr "left")
toAttrFrTyp n Transition_Subtype_LeftCenter = Just (n, str2attr "leftCenter")
toAttrFrTyp n Transition_Subtype_LeftToRight = Just (n, str2attr "leftToRight")
toAttrFrTyp n Transition_Subtype_OppositeHorizontal = Just (n, str2attr "oppositeHorizontal")
toAttrFrTyp n Transition_Subtype_OppositeVertical = Just (n, str2attr "oppositeVertical")
toAttrFrTyp n Transition_Subtype_ParallelDiagonal = Just (n, str2attr "parallelDiagonal")
toAttrFrTyp n Transition_Subtype_ParallelDiagonalBottomLeft = Just (n, str2attr "parallelDiagonalBottomLeft")
toAttrFrTyp n Transition_Subtype_ParallelDiagonalTopLeft = Just (n, str2attr "parallelDiagonalTopLeft")
toAttrFrTyp n Transition_Subtype_ParallelVertical = Just (n, str2attr "parallelVertical")
toAttrFrTyp n Transition_Subtype_Rectangle = Just (n, str2attr "rectangle")
toAttrFrTyp n Transition_Subtype_Right = Just (n, str2attr "right")
toAttrFrTyp n Transition_Subtype_RightCenter = Just (n, str2attr "rightCenter")
toAttrFrTyp n Transition_Subtype_SixPoint = Just (n, str2attr "sixPoint")
toAttrFrTyp n Transition_Subtype_Top = Just (n, str2attr "top")
toAttrFrTyp n Transition_Subtype_TopCenter = Just (n, str2attr "topCenter")
toAttrFrTyp n Transition_Subtype_TopLeft = Just (n, str2attr "topLeft")
toAttrFrTyp n Transition_Subtype_TopLeftClockwise = Just (n, str2attr "topLeftClockwise")
toAttrFrTyp n Transition_Subtype_TopLeftCounterClockwise = Just (n, str2attr "topLeftCounterClockwise")
toAttrFrTyp n Transition_Subtype_TopLeftDiagonal = Just (n, str2attr "topLeftDiagonal")
toAttrFrTyp n Transition_Subtype_TopLeftHorizontal = Just (n, str2attr "topLeftHorizontal")
toAttrFrTyp n Transition_Subtype_TopLeftVertical = Just (n, str2attr "topLeftVertical")
toAttrFrTyp n Transition_Subtype_TopRight = Just (n, str2attr "topRight")
toAttrFrTyp n Transition_Subtype_TopRightClockwise = Just (n, str2attr "topRightClockwise")
toAttrFrTyp n Transition_Subtype_TopRightCounterClockwise = Just (n, str2attr "topRightCounterClockwise")
toAttrFrTyp n Transition_Subtype_TopRightDiagonal = Just (n, str2attr "topRightDiagonal")
toAttrFrTyp n Transition_Subtype_TopToBottom = Just (n, str2attr "topToBottom")
toAttrFrTyp n Transition_Subtype_TwoBladeHorizontal = Just (n, str2attr "twoBladeHorizontal")
toAttrFrTyp n Transition_Subtype_TwoBladeVertical = Just (n, str2attr "twoBladeVertical")
toAttrFrTyp n Transition_Subtype_TwoBoxBottom = Just (n, str2attr "twoBoxBottom")
toAttrFrTyp n Transition_Subtype_TwoBoxLeft = Just (n, str2attr "twoBoxLeft")
toAttrFrTyp n Transition_Subtype_TwoBoxRight = Just (n, str2attr "twoBoxRight")
toAttrFrTyp n Transition_Subtype_TwoBoxTop = Just (n, str2attr "twoBoxTop")
toAttrFrTyp n Transition_Subtype_Up = Just (n, str2attr "up")
toAttrFrTyp n Transition_Subtype_Vertical = Just (n, str2attr "vertical")
toAttrFrTyp n Transition_Subtype_VerticalBottomLeftOpposite = Just (n, str2attr "verticalBottomLeftOpposite")
toAttrFrTyp n Transition_Subtype_VerticalBottomSame = Just (n, str2attr "verticalBottomSame")
toAttrFrTyp n Transition_Subtype_VerticalLeft = Just (n, str2attr "verticalLeft")
toAttrFrTyp n Transition_Subtype_VerticalRight = Just (n, str2attr "verticalRight")
toAttrFrTyp n Transition_Subtype_VerticalTopLeftOpposite = Just (n, str2attr "verticalTopLeftOpposite")
toAttrFrTyp n Transition_Subtype_VerticalTopSame = Just (n, str2attr "verticalTopSame")
instance XmlAttrType Transition_Coordinated where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "true" = Just Transition_Coordinated_True
translate "false" = Just Transition_Coordinated_False
translate _ = Nothing
toAttrFrTyp n Transition_Coordinated_True = Just (n, str2attr "true")
toAttrFrTyp n Transition_Coordinated_False = Just (n, str2attr "false")
instance XmlAttrType Transition_ClibBoundary where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "parent" = Just Transition_ClibBoundary_Parent
translate "children" = Just Transition_ClibBoundary_Children
translate _ = Nothing
toAttrFrTyp n Transition_ClibBoundary_Parent = Just (n, str2attr "parent")
toAttrFrTyp n Transition_ClibBoundary_Children = Just (n, str2attr "children")
instance XmlAttrType Transition_Direction where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "forward" = Just Transition_Direction_Forward
translate "reverse" = Just Transition_Direction_Reverse
translate _ = Nothing
toAttrFrTyp n Transition_Direction_Forward = Just (n, str2attr "forward")
toAttrFrTyp n Transition_Direction_Reverse = Just (n, str2attr "reverse")
instance XmlContent TransitionFilter where
fromElem (CElem (Elem "transitionFilter" as []):rest) =
(Just (fromAttrs as), rest)
fromElem (CMisc _:rest) = fromElem rest
fromElem rest = (Nothing, rest)
toElem as =
[CElem (Elem "transitionFilter" (toAttrs as) [])]
instance XmlAttributes TransitionFilter where
fromAttrs as =
TransitionFilter
{ transitionFilterId = possibleA fromAttrToStr "id" as
, transitionFilterClass = possibleA fromAttrToStr "class" as
, transitionFilterTitle = possibleA fromAttrToStr "title" as
, transitionFilterXml'lang = possibleA fromAttrToStr "xml:lang" as
, transitionFilterType = possibleA fromAttrToTyp "type" as
, transitionFilterSubtype = possibleA fromAttrToTyp "subtype" as
, transitionFilterHorzRepeat = defaultA fromAttrToStr "0" "horzRepeat" as
, transitionFilterVertRepeat = defaultA fromAttrToStr "0" "vertRepeat" as
, transitionFilterBorderWidth = defaultA fromAttrToStr "0" "borderWidth" as
, transitionFilterBorderColor = defaultA fromAttrToStr "black" "borderColor" as
, transitionFilterFadeColor = defaultA fromAttrToStr "black" "fadeColor" as
, transitionFilterCoordinated = defaultA fromAttrToTyp TransitionFilter_Coordinated_False "coordinated" as
, transitionFilterClibBoundary = defaultA fromAttrToTyp TransitionFilter_ClibBoundary_Children "clibBoundary" as
, transitionFilterDur = possibleA fromAttrToStr "dur" as
, transitionFilterRepeatCount = possibleA fromAttrToStr "repeatCount" as
, transitionFilterRepeatDur = possibleA fromAttrToStr "repeatDur" as
, transitionFilterBegin = possibleA fromAttrToStr "begin" as
, transitionFilterEnd = possibleA fromAttrToStr "end" as
, transitionFilterValues = possibleA fromAttrToStr "values" as
, transitionFilterFrom = possibleA fromAttrToStr "from" as
, transitionFilterTo = possibleA fromAttrToStr "to" as
, transitionFilterBy = possibleA fromAttrToStr "by" as
, transitionFilterCalcMode = defaultA fromAttrToTyp TransitionFilter_CalcMode_Linear "calcMode" as
}
toAttrs v = catMaybes
[ maybeToAttr toAttrFrStr "id" (transitionFilterId v)
, maybeToAttr toAttrFrStr "class" (transitionFilterClass v)
, maybeToAttr toAttrFrStr "title" (transitionFilterTitle v)
, maybeToAttr toAttrFrStr "xml:lang" (transitionFilterXml'lang v)
, maybeToAttr toAttrFrTyp "type" (transitionFilterType v)
, maybeToAttr toAttrFrTyp "subtype" (transitionFilterSubtype v)
, defaultToAttr toAttrFrStr "horzRepeat" (transitionFilterHorzRepeat v)
, defaultToAttr toAttrFrStr "vertRepeat" (transitionFilterVertRepeat v)
, defaultToAttr toAttrFrStr "borderWidth" (transitionFilterBorderWidth v)
, defaultToAttr toAttrFrStr "borderColor" (transitionFilterBorderColor v)
, defaultToAttr toAttrFrStr "fadeColor" (transitionFilterFadeColor v)
, defaultToAttr toAttrFrTyp "coordinated" (transitionFilterCoordinated v)
, defaultToAttr toAttrFrTyp "clibBoundary" (transitionFilterClibBoundary v)
, maybeToAttr toAttrFrStr "dur" (transitionFilterDur v)
, maybeToAttr toAttrFrStr "repeatCount" (transitionFilterRepeatCount v)
, maybeToAttr toAttrFrStr "repeatDur" (transitionFilterRepeatDur v)
, maybeToAttr toAttrFrStr "begin" (transitionFilterBegin v)
, maybeToAttr toAttrFrStr "end" (transitionFilterEnd v)
, maybeToAttr toAttrFrStr "values" (transitionFilterValues v)
, maybeToAttr toAttrFrStr "from" (transitionFilterFrom v)
, maybeToAttr toAttrFrStr "to" (transitionFilterTo v)
, maybeToAttr toAttrFrStr "by" (transitionFilterBy v)
, defaultToAttr toAttrFrTyp "calcMode" (transitionFilterCalcMode v)
]
instance XmlAttrType TransitionFilter_Type where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "barWipe" = Just TransitionFilter_Type_BarWipe
translate "boxWipe" = Just TransitionFilter_Type_BoxWipe
translate "fourBoxWipe" = Just TransitionFilter_Type_FourBoxWipe
translate "barnDoorWipe" = Just TransitionFilter_Type_BarnDoorWipe
translate "diagonalWipe" = Just TransitionFilter_Type_DiagonalWipe
translate "bowTieWipe" = Just TransitionFilter_Type_BowTieWipe
translate "miscDiagonalWipe" = Just TransitionFilter_Type_MiscDiagonalWipe
translate "veeWipe" = Just TransitionFilter_Type_VeeWipe
translate "barnVeeWipe" = Just TransitionFilter_Type_BarnVeeWipe
translate "zigZagWipe" = Just TransitionFilter_Type_ZigZagWipe
translate "barnZigZagWipe" = Just TransitionFilter_Type_BarnZigZagWipe
translate "miscShapeWipe" = Just TransitionFilter_Type_MiscShapeWipe
translate "triangleWipe" = Just TransitionFilter_Type_TriangleWipe
translate "arrowHeadWipe" = Just TransitionFilter_Type_ArrowHeadWipe
translate "pentagonWipe" = Just TransitionFilter_Type_PentagonWipe
translate "hexagonWipe" = Just TransitionFilter_Type_HexagonWipe
translate "ellipseWipe" = Just TransitionFilter_Type_EllipseWipe
translate "eyeWipe" = Just TransitionFilter_Type_EyeWipe
translate "roundRectWipe" = Just TransitionFilter_Type_RoundRectWipe
translate "starWipe" = Just TransitionFilter_Type_StarWipe
translate "clockWipe" = Just TransitionFilter_Type_ClockWipe
translate "pinWheelWipe" = Just TransitionFilter_Type_PinWheelWipe
translate "singleSweepWipe" = Just TransitionFilter_Type_SingleSweepWipe
translate "fanWipe" = Just TransitionFilter_Type_FanWipe
translate "doubleFanWipe" = Just TransitionFilter_Type_DoubleFanWipe
translate "doubleSweepWipe" = Just TransitionFilter_Type_DoubleSweepWipe
translate "saloonDoorWipe" = Just TransitionFilter_Type_SaloonDoorWipe
translate "windshieldWipe" = Just TransitionFilter_Type_WindshieldWipe
translate "snakeWipe" = Just TransitionFilter_Type_SnakeWipe
translate "spiralWipe" = Just TransitionFilter_Type_SpiralWipe
translate "parallelSnakesWipe" = Just TransitionFilter_Type_ParallelSnakesWipe
translate "boxSnakesWipe" = Just TransitionFilter_Type_BoxSnakesWipe
translate "waterfallWipe" = Just TransitionFilter_Type_WaterfallWipe
translate "pushWipe" = Just TransitionFilter_Type_PushWipe
translate "slideWipe" = Just TransitionFilter_Type_SlideWipe
translate "fade" = Just TransitionFilter_Type_Fade
translate _ = Nothing
toAttrFrTyp n TransitionFilter_Type_BarWipe = Just (n, str2attr "barWipe")
toAttrFrTyp n TransitionFilter_Type_BoxWipe = Just (n, str2attr "boxWipe")
toAttrFrTyp n TransitionFilter_Type_FourBoxWipe = Just (n, str2attr "fourBoxWipe")
toAttrFrTyp n TransitionFilter_Type_BarnDoorWipe = Just (n, str2attr "barnDoorWipe")
toAttrFrTyp n TransitionFilter_Type_DiagonalWipe = Just (n, str2attr "diagonalWipe")
toAttrFrTyp n TransitionFilter_Type_BowTieWipe = Just (n, str2attr "bowTieWipe")
toAttrFrTyp n TransitionFilter_Type_MiscDiagonalWipe = Just (n, str2attr "miscDiagonalWipe")
toAttrFrTyp n TransitionFilter_Type_VeeWipe = Just (n, str2attr "veeWipe")
toAttrFrTyp n TransitionFilter_Type_BarnVeeWipe = Just (n, str2attr "barnVeeWipe")
toAttrFrTyp n TransitionFilter_Type_ZigZagWipe = Just (n, str2attr "zigZagWipe")
toAttrFrTyp n TransitionFilter_Type_BarnZigZagWipe = Just (n, str2attr "barnZigZagWipe")
toAttrFrTyp n TransitionFilter_Type_MiscShapeWipe = Just (n, str2attr "miscShapeWipe")
toAttrFrTyp n TransitionFilter_Type_TriangleWipe = Just (n, str2attr "triangleWipe")
toAttrFrTyp n TransitionFilter_Type_ArrowHeadWipe = Just (n, str2attr "arrowHeadWipe")
toAttrFrTyp n TransitionFilter_Type_PentagonWipe = Just (n, str2attr "pentagonWipe")
toAttrFrTyp n TransitionFilter_Type_HexagonWipe = Just (n, str2attr "hexagonWipe")
toAttrFrTyp n TransitionFilter_Type_EllipseWipe = Just (n, str2attr "ellipseWipe")
toAttrFrTyp n TransitionFilter_Type_EyeWipe = Just (n, str2attr "eyeWipe")
toAttrFrTyp n TransitionFilter_Type_RoundRectWipe = Just (n, str2attr "roundRectWipe")
toAttrFrTyp n TransitionFilter_Type_StarWipe = Just (n, str2attr "starWipe")
toAttrFrTyp n TransitionFilter_Type_ClockWipe = Just (n, str2attr "clockWipe")
toAttrFrTyp n TransitionFilter_Type_PinWheelWipe = Just (n, str2attr "pinWheelWipe")
toAttrFrTyp n TransitionFilter_Type_SingleSweepWipe = Just (n, str2attr "singleSweepWipe")
toAttrFrTyp n TransitionFilter_Type_FanWipe = Just (n, str2attr "fanWipe")
toAttrFrTyp n TransitionFilter_Type_DoubleFanWipe = Just (n, str2attr "doubleFanWipe")
toAttrFrTyp n TransitionFilter_Type_DoubleSweepWipe = Just (n, str2attr "doubleSweepWipe")
toAttrFrTyp n TransitionFilter_Type_SaloonDoorWipe = Just (n, str2attr "saloonDoorWipe")
toAttrFrTyp n TransitionFilter_Type_WindshieldWipe = Just (n, str2attr "windshieldWipe")
toAttrFrTyp n TransitionFilter_Type_SnakeWipe = Just (n, str2attr "snakeWipe")
toAttrFrTyp n TransitionFilter_Type_SpiralWipe = Just (n, str2attr "spiralWipe")
toAttrFrTyp n TransitionFilter_Type_ParallelSnakesWipe = Just (n, str2attr "parallelSnakesWipe")
toAttrFrTyp n TransitionFilter_Type_BoxSnakesWipe = Just (n, str2attr "boxSnakesWipe")
toAttrFrTyp n TransitionFilter_Type_WaterfallWipe = Just (n, str2attr "waterfallWipe")
toAttrFrTyp n TransitionFilter_Type_PushWipe = Just (n, str2attr "pushWipe")
toAttrFrTyp n TransitionFilter_Type_SlideWipe = Just (n, str2attr "slideWipe")
toAttrFrTyp n TransitionFilter_Type_Fade = Just (n, str2attr "fade")
instance XmlAttrType TransitionFilter_Subtype where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "bottom" = Just TransitionFilter_Subtype_Bottom
translate "bottomCenter" = Just TransitionFilter_Subtype_BottomCenter
translate "bottomLeft" = Just TransitionFilter_Subtype_BottomLeft
translate "bottomLeftClockwise" = Just TransitionFilter_Subtype_BottomLeftClockwise
translate "bottomLeftCounterClockwise" = Just TransitionFilter_Subtype_BottomLeftCounterClockwise
translate "bottomLeftDiagonal" = Just TransitionFilter_Subtype_BottomLeftDiagonal
translate "bottomRight" = Just TransitionFilter_Subtype_BottomRight
translate "bottomRightClockwise" = Just TransitionFilter_Subtype_BottomRightClockwise
translate "bottomRightCounterClockwise" = Just TransitionFilter_Subtype_BottomRightCounterClockwise
translate "bottomRightDiagonal" = Just TransitionFilter_Subtype_BottomRightDiagonal
translate "centerRight" = Just TransitionFilter_Subtype_CenterRight
translate "centerTop" = Just TransitionFilter_Subtype_CenterTop
translate "circle" = Just TransitionFilter_Subtype_Circle
translate "clockwiseBottom" = Just TransitionFilter_Subtype_ClockwiseBottom
translate "clockwiseBottomRight" = Just TransitionFilter_Subtype_ClockwiseBottomRight
translate "clockwiseLeft" = Just TransitionFilter_Subtype_ClockwiseLeft
translate "clockwiseNine" = Just TransitionFilter_Subtype_ClockwiseNine
translate "clockwiseRight" = Just TransitionFilter_Subtype_ClockwiseRight
translate "clockwiseSix" = Just TransitionFilter_Subtype_ClockwiseSix
translate "clockwiseThree" = Just TransitionFilter_Subtype_ClockwiseThree
translate "clockwiseTop" = Just TransitionFilter_Subtype_ClockwiseTop
translate "clockwiseTopLeft" = Just TransitionFilter_Subtype_ClockwiseTopLeft
translate "clockwiseTwelve" = Just TransitionFilter_Subtype_ClockwiseTwelve
translate "cornersIn" = Just TransitionFilter_Subtype_CornersIn
translate "cornersOut" = Just TransitionFilter_Subtype_CornersOut
translate "counterClockwiseBottomLeft" = Just TransitionFilter_Subtype_CounterClockwiseBottomLeft
translate "counterClockwiseTopRight" = Just TransitionFilter_Subtype_CounterClockwiseTopRight
translate "crossfade" = Just TransitionFilter_Subtype_Crossfade
translate "diagonalBottomLeft" = Just TransitionFilter_Subtype_DiagonalBottomLeft
translate "diagonalBottomLeftOpposite" = Just TransitionFilter_Subtype_DiagonalBottomLeftOpposite
translate "diagonalTopLeft" = Just TransitionFilter_Subtype_DiagonalTopLeft
translate "diagonalTopLeftOpposite" = Just TransitionFilter_Subtype_DiagonalTopLeftOpposite
translate "diamond" = Just TransitionFilter_Subtype_Diamond
translate "doubleBarnDoor" = Just TransitionFilter_Subtype_DoubleBarnDoor
translate "doubleDiamond" = Just TransitionFilter_Subtype_DoubleDiamond
translate "down" = Just TransitionFilter_Subtype_Down
translate "fadeFromColor" = Just TransitionFilter_Subtype_FadeFromColor
translate "fadeToColor" = Just TransitionFilter_Subtype_FadeToColor
translate "fanInHorizontal" = Just TransitionFilter_Subtype_FanInHorizontal
translate "fanInVertical" = Just TransitionFilter_Subtype_FanInVertical
translate "fanOutHorizontal" = Just TransitionFilter_Subtype_FanOutHorizontal
translate "fanOutVertical" = Just TransitionFilter_Subtype_FanOutVertical
translate "fivePoint" = Just TransitionFilter_Subtype_FivePoint
translate "fourBlade" = Just TransitionFilter_Subtype_FourBlade
translate "fourBoxHorizontal" = Just TransitionFilter_Subtype_FourBoxHorizontal
translate "fourBoxVertical" = Just TransitionFilter_Subtype_FourBoxVertical
translate "fourPoint" = Just TransitionFilter_Subtype_FourPoint
translate "fromBottom" = Just TransitionFilter_Subtype_FromBottom
translate "fromLeft" = Just TransitionFilter_Subtype_FromLeft
translate "fromRight" = Just TransitionFilter_Subtype_FromRight
translate "fromTop" = Just TransitionFilter_Subtype_FromTop
translate "heart" = Just TransitionFilter_Subtype_Heart
translate "horizontal" = Just TransitionFilter_Subtype_Horizontal
translate "horizontalLeft" = Just TransitionFilter_Subtype_HorizontalLeft
translate "horizontalLeftSame" = Just TransitionFilter_Subtype_HorizontalLeftSame
translate "horizontalRight" = Just TransitionFilter_Subtype_HorizontalRight
translate "horizontalRightSame" = Just TransitionFilter_Subtype_HorizontalRightSame
translate "horizontalTopLeftOpposite" = Just TransitionFilter_Subtype_HorizontalTopLeftOpposite
translate "horizontalTopRightOpposite" = Just TransitionFilter_Subtype_HorizontalTopRightOpposite
translate "keyhole" = Just TransitionFilter_Subtype_Keyhole
translate "left" = Just TransitionFilter_Subtype_Left
translate "leftCenter" = Just TransitionFilter_Subtype_LeftCenter
translate "leftToRight" = Just TransitionFilter_Subtype_LeftToRight
translate "oppositeHorizontal" = Just TransitionFilter_Subtype_OppositeHorizontal
translate "oppositeVertical" = Just TransitionFilter_Subtype_OppositeVertical
translate "parallelDiagonal" = Just TransitionFilter_Subtype_ParallelDiagonal
translate "parallelDiagonalBottomLeft" = Just TransitionFilter_Subtype_ParallelDiagonalBottomLeft
translate "parallelDiagonalTopLeft" = Just TransitionFilter_Subtype_ParallelDiagonalTopLeft
translate "parallelVertical" = Just TransitionFilter_Subtype_ParallelVertical
translate "rectangle" = Just TransitionFilter_Subtype_Rectangle
translate "right" = Just TransitionFilter_Subtype_Right
translate "rightCenter" = Just TransitionFilter_Subtype_RightCenter
translate "sixPoint" = Just TransitionFilter_Subtype_SixPoint
translate "top" = Just TransitionFilter_Subtype_Top
translate "topCenter" = Just TransitionFilter_Subtype_TopCenter
translate "topLeft" = Just TransitionFilter_Subtype_TopLeft
translate "topLeftClockwise" = Just TransitionFilter_Subtype_TopLeftClockwise
translate "topLeftCounterClockwise" = Just TransitionFilter_Subtype_TopLeftCounterClockwise
translate "topLeftDiagonal" = Just TransitionFilter_Subtype_TopLeftDiagonal
translate "topLeftHorizontal" = Just TransitionFilter_Subtype_TopLeftHorizontal
translate "topLeftVertical" = Just TransitionFilter_Subtype_TopLeftVertical
translate "topRight" = Just TransitionFilter_Subtype_TopRight
translate "topRightClockwise" = Just TransitionFilter_Subtype_TopRightClockwise
translate "topRightCounterClockwise" = Just TransitionFilter_Subtype_TopRightCounterClockwise
translate "topRightDiagonal" = Just TransitionFilter_Subtype_TopRightDiagonal
translate "topToBottom" = Just TransitionFilter_Subtype_TopToBottom
translate "twoBladeHorizontal" = Just TransitionFilter_Subtype_TwoBladeHorizontal
translate "twoBladeVertical" = Just TransitionFilter_Subtype_TwoBladeVertical
translate "twoBoxBottom" = Just TransitionFilter_Subtype_TwoBoxBottom
translate "twoBoxLeft" = Just TransitionFilter_Subtype_TwoBoxLeft
translate "twoBoxRight" = Just TransitionFilter_Subtype_TwoBoxRight
translate "twoBoxTop" = Just TransitionFilter_Subtype_TwoBoxTop
translate "up" = Just TransitionFilter_Subtype_Up
translate "vertical" = Just TransitionFilter_Subtype_Vertical
translate "verticalBottomLeftOpposite" = Just TransitionFilter_Subtype_VerticalBottomLeftOpposite
translate "verticalBottomSame" = Just TransitionFilter_Subtype_VerticalBottomSame
translate "verticalLeft" = Just TransitionFilter_Subtype_VerticalLeft
translate "verticalRight" = Just TransitionFilter_Subtype_VerticalRight
translate "verticalTopLeftOpposite" = Just TransitionFilter_Subtype_VerticalTopLeftOpposite
translate "verticalTopSame" = Just TransitionFilter_Subtype_VerticalTopSame
translate _ = Nothing
toAttrFrTyp n TransitionFilter_Subtype_Bottom = Just (n, str2attr "bottom")
toAttrFrTyp n TransitionFilter_Subtype_BottomCenter = Just (n, str2attr "bottomCenter")
toAttrFrTyp n TransitionFilter_Subtype_BottomLeft = Just (n, str2attr "bottomLeft")
toAttrFrTyp n TransitionFilter_Subtype_BottomLeftClockwise = Just (n, str2attr "bottomLeftClockwise")
toAttrFrTyp n TransitionFilter_Subtype_BottomLeftCounterClockwise = Just (n, str2attr "bottomLeftCounterClockwise")
toAttrFrTyp n TransitionFilter_Subtype_BottomLeftDiagonal = Just (n, str2attr "bottomLeftDiagonal")
toAttrFrTyp n TransitionFilter_Subtype_BottomRight = Just (n, str2attr "bottomRight")
toAttrFrTyp n TransitionFilter_Subtype_BottomRightClockwise = Just (n, str2attr "bottomRightClockwise")
toAttrFrTyp n TransitionFilter_Subtype_BottomRightCounterClockwise = Just (n, str2attr "bottomRightCounterClockwise")
toAttrFrTyp n TransitionFilter_Subtype_BottomRightDiagonal = Just (n, str2attr "bottomRightDiagonal")
toAttrFrTyp n TransitionFilter_Subtype_CenterRight = Just (n, str2attr "centerRight")
toAttrFrTyp n TransitionFilter_Subtype_CenterTop = Just (n, str2attr "centerTop")
toAttrFrTyp n TransitionFilter_Subtype_Circle = Just (n, str2attr "circle")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseBottom = Just (n, str2attr "clockwiseBottom")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseBottomRight = Just (n, str2attr "clockwiseBottomRight")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseLeft = Just (n, str2attr "clockwiseLeft")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseNine = Just (n, str2attr "clockwiseNine")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseRight = Just (n, str2attr "clockwiseRight")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseSix = Just (n, str2attr "clockwiseSix")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseThree = Just (n, str2attr "clockwiseThree")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseTop = Just (n, str2attr "clockwiseTop")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseTopLeft = Just (n, str2attr "clockwiseTopLeft")
toAttrFrTyp n TransitionFilter_Subtype_ClockwiseTwelve = Just (n, str2attr "clockwiseTwelve")
toAttrFrTyp n TransitionFilter_Subtype_CornersIn = Just (n, str2attr "cornersIn")
toAttrFrTyp n TransitionFilter_Subtype_CornersOut = Just (n, str2attr "cornersOut")
toAttrFrTyp n TransitionFilter_Subtype_CounterClockwiseBottomLeft = Just (n, str2attr "counterClockwiseBottomLeft")
toAttrFrTyp n TransitionFilter_Subtype_CounterClockwiseTopRight = Just (n, str2attr "counterClockwiseTopRight")
toAttrFrTyp n TransitionFilter_Subtype_Crossfade = Just (n, str2attr "crossfade")
toAttrFrTyp n TransitionFilter_Subtype_DiagonalBottomLeft = Just (n, str2attr "diagonalBottomLeft")
toAttrFrTyp n TransitionFilter_Subtype_DiagonalBottomLeftOpposite = Just (n, str2attr "diagonalBottomLeftOpposite")
toAttrFrTyp n TransitionFilter_Subtype_DiagonalTopLeft = Just (n, str2attr "diagonalTopLeft")
toAttrFrTyp n TransitionFilter_Subtype_DiagonalTopLeftOpposite = Just (n, str2attr "diagonalTopLeftOpposite")
toAttrFrTyp n TransitionFilter_Subtype_Diamond = Just (n, str2attr "diamond")
toAttrFrTyp n TransitionFilter_Subtype_DoubleBarnDoor = Just (n, str2attr "doubleBarnDoor")
toAttrFrTyp n TransitionFilter_Subtype_DoubleDiamond = Just (n, str2attr "doubleDiamond")
toAttrFrTyp n TransitionFilter_Subtype_Down = Just (n, str2attr "down")
toAttrFrTyp n TransitionFilter_Subtype_FadeFromColor = Just (n, str2attr "fadeFromColor")
toAttrFrTyp n TransitionFilter_Subtype_FadeToColor = Just (n, str2attr "fadeToColor")
toAttrFrTyp n TransitionFilter_Subtype_FanInHorizontal = Just (n, str2attr "fanInHorizontal")
toAttrFrTyp n TransitionFilter_Subtype_FanInVertical = Just (n, str2attr "fanInVertical")
toAttrFrTyp n TransitionFilter_Subtype_FanOutHorizontal = Just (n, str2attr "fanOutHorizontal")
toAttrFrTyp n TransitionFilter_Subtype_FanOutVertical = Just (n, str2attr "fanOutVertical")
toAttrFrTyp n TransitionFilter_Subtype_FivePoint = Just (n, str2attr "fivePoint")
toAttrFrTyp n TransitionFilter_Subtype_FourBlade = Just (n, str2attr "fourBlade")
toAttrFrTyp n TransitionFilter_Subtype_FourBoxHorizontal = Just (n, str2attr "fourBoxHorizontal")
toAttrFrTyp n TransitionFilter_Subtype_FourBoxVertical = Just (n, str2attr "fourBoxVertical")
toAttrFrTyp n TransitionFilter_Subtype_FourPoint = Just (n, str2attr "fourPoint")
toAttrFrTyp n TransitionFilter_Subtype_FromBottom = Just (n, str2attr "fromBottom")
toAttrFrTyp n TransitionFilter_Subtype_FromLeft = Just (n, str2attr "fromLeft")
toAttrFrTyp n TransitionFilter_Subtype_FromRight = Just (n, str2attr "fromRight")
toAttrFrTyp n TransitionFilter_Subtype_FromTop = Just (n, str2attr "fromTop")
toAttrFrTyp n TransitionFilter_Subtype_Heart = Just (n, str2attr "heart")
toAttrFrTyp n TransitionFilter_Subtype_Horizontal = Just (n, str2attr "horizontal")
toAttrFrTyp n TransitionFilter_Subtype_HorizontalLeft = Just (n, str2attr "horizontalLeft")
toAttrFrTyp n TransitionFilter_Subtype_HorizontalLeftSame = Just (n, str2attr "horizontalLeftSame")
toAttrFrTyp n TransitionFilter_Subtype_HorizontalRight = Just (n, str2attr "horizontalRight")
toAttrFrTyp n TransitionFilter_Subtype_HorizontalRightSame = Just (n, str2attr "horizontalRightSame")
toAttrFrTyp n TransitionFilter_Subtype_HorizontalTopLeftOpposite = Just (n, str2attr "horizontalTopLeftOpposite")
toAttrFrTyp n TransitionFilter_Subtype_HorizontalTopRightOpposite = Just (n, str2attr "horizontalTopRightOpposite")
toAttrFrTyp n TransitionFilter_Subtype_Keyhole = Just (n, str2attr "keyhole")
toAttrFrTyp n TransitionFilter_Subtype_Left = Just (n, str2attr "left")
toAttrFrTyp n TransitionFilter_Subtype_LeftCenter = Just (n, str2attr "leftCenter")
toAttrFrTyp n TransitionFilter_Subtype_LeftToRight = Just (n, str2attr "leftToRight")
toAttrFrTyp n TransitionFilter_Subtype_OppositeHorizontal = Just (n, str2attr "oppositeHorizontal")
toAttrFrTyp n TransitionFilter_Subtype_OppositeVertical = Just (n, str2attr "oppositeVertical")
toAttrFrTyp n TransitionFilter_Subtype_ParallelDiagonal = Just (n, str2attr "parallelDiagonal")
toAttrFrTyp n TransitionFilter_Subtype_ParallelDiagonalBottomLeft = Just (n, str2attr "parallelDiagonalBottomLeft")
toAttrFrTyp n TransitionFilter_Subtype_ParallelDiagonalTopLeft = Just (n, str2attr "parallelDiagonalTopLeft")
toAttrFrTyp n TransitionFilter_Subtype_ParallelVertical = Just (n, str2attr "parallelVertical")
toAttrFrTyp n TransitionFilter_Subtype_Rectangle = Just (n, str2attr "rectangle")
toAttrFrTyp n TransitionFilter_Subtype_Right = Just (n, str2attr "right")
toAttrFrTyp n TransitionFilter_Subtype_RightCenter = Just (n, str2attr "rightCenter")
toAttrFrTyp n TransitionFilter_Subtype_SixPoint = Just (n, str2attr "sixPoint")
toAttrFrTyp n TransitionFilter_Subtype_Top = Just (n, str2attr "top")
toAttrFrTyp n TransitionFilter_Subtype_TopCenter = Just (n, str2attr "topCenter")
toAttrFrTyp n TransitionFilter_Subtype_TopLeft = Just (n, str2attr "topLeft")
toAttrFrTyp n TransitionFilter_Subtype_TopLeftClockwise = Just (n, str2attr "topLeftClockwise")
toAttrFrTyp n TransitionFilter_Subtype_TopLeftCounterClockwise = Just (n, str2attr "topLeftCounterClockwise")
toAttrFrTyp n TransitionFilter_Subtype_TopLeftDiagonal = Just (n, str2attr "topLeftDiagonal")
toAttrFrTyp n TransitionFilter_Subtype_TopLeftHorizontal = Just (n, str2attr "topLeftHorizontal")
toAttrFrTyp n TransitionFilter_Subtype_TopLeftVertical = Just (n, str2attr "topLeftVertical")
toAttrFrTyp n TransitionFilter_Subtype_TopRight = Just (n, str2attr "topRight")
toAttrFrTyp n TransitionFilter_Subtype_TopRightClockwise = Just (n, str2attr "topRightClockwise")
toAttrFrTyp n TransitionFilter_Subtype_TopRightCounterClockwise = Just (n, str2attr "topRightCounterClockwise")
toAttrFrTyp n TransitionFilter_Subtype_TopRightDiagonal = Just (n, str2attr "topRightDiagonal")
toAttrFrTyp n TransitionFilter_Subtype_TopToBottom = Just (n, str2attr "topToBottom")
toAttrFrTyp n TransitionFilter_Subtype_TwoBladeHorizontal = Just (n, str2attr "twoBladeHorizontal")
toAttrFrTyp n TransitionFilter_Subtype_TwoBladeVertical = Just (n, str2attr "twoBladeVertical")
toAttrFrTyp n TransitionFilter_Subtype_TwoBoxBottom = Just (n, str2attr "twoBoxBottom")
toAttrFrTyp n TransitionFilter_Subtype_TwoBoxLeft = Just (n, str2attr "twoBoxLeft")
toAttrFrTyp n TransitionFilter_Subtype_TwoBoxRight = Just (n, str2attr "twoBoxRight")
toAttrFrTyp n TransitionFilter_Subtype_TwoBoxTop = Just (n, str2attr "twoBoxTop")
toAttrFrTyp n TransitionFilter_Subtype_Up = Just (n, str2attr "up")
toAttrFrTyp n TransitionFilter_Subtype_Vertical = Just (n, str2attr "vertical")
toAttrFrTyp n TransitionFilter_Subtype_VerticalBottomLeftOpposite = Just (n, str2attr "verticalBottomLeftOpposite")
toAttrFrTyp n TransitionFilter_Subtype_VerticalBottomSame = Just (n, str2attr "verticalBottomSame")
toAttrFrTyp n TransitionFilter_Subtype_VerticalLeft = Just (n, str2attr "verticalLeft")
toAttrFrTyp n TransitionFilter_Subtype_VerticalRight = Just (n, str2attr "verticalRight")
toAttrFrTyp n TransitionFilter_Subtype_VerticalTopLeftOpposite = Just (n, str2attr "verticalTopLeftOpposite")
toAttrFrTyp n TransitionFilter_Subtype_VerticalTopSame = Just (n, str2attr "verticalTopSame")
instance XmlAttrType TransitionFilter_Coordinated where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "true" = Just TransitionFilter_Coordinated_True
translate "false" = Just TransitionFilter_Coordinated_False
translate _ = Nothing
toAttrFrTyp n TransitionFilter_Coordinated_True = Just (n, str2attr "true")
toAttrFrTyp n TransitionFilter_Coordinated_False = Just (n, str2attr "false")
instance XmlAttrType TransitionFilter_ClibBoundary where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "parent" = Just TransitionFilter_ClibBoundary_Parent
translate "children" = Just TransitionFilter_ClibBoundary_Children
translate _ = Nothing
toAttrFrTyp n TransitionFilter_ClibBoundary_Parent = Just (n, str2attr "parent")
toAttrFrTyp n TransitionFilter_ClibBoundary_Children = Just (n, str2attr "children")
instance XmlAttrType TransitionFilter_CalcMode where
fromAttrToTyp n (n',v)
| n==n' = translate (attr2str v)
| otherwise = Nothing
where translate "discrete" = Just TransitionFilter_CalcMode_Discrete
translate "linear" = Just TransitionFilter_CalcMode_Linear
translate "paced" = Just TransitionFilter_CalcMode_Paced
translate _ = Nothing
toAttrFrTyp n TransitionFilter_CalcMode_Discrete = Just (n, str2attr "discrete")
toAttrFrTyp n TransitionFilter_CalcMode_Linear = Just (n, str2attr "linear")
toAttrFrTyp n TransitionFilter_CalcMode_Paced = Just (n, str2attr "paced")
{-Done-}
|
