{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.MediaConvert.Types.BurninDestinationSettings where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaConvert.Types.BurnInSubtitleStylePassthrough
import Amazonka.MediaConvert.Types.BurninSubtitleAlignment
import Amazonka.MediaConvert.Types.BurninSubtitleApplyFontColor
import Amazonka.MediaConvert.Types.BurninSubtitleBackgroundColor
import Amazonka.MediaConvert.Types.BurninSubtitleFallbackFont
import Amazonka.MediaConvert.Types.BurninSubtitleFontColor
import Amazonka.MediaConvert.Types.BurninSubtitleOutlineColor
import Amazonka.MediaConvert.Types.BurninSubtitleShadowColor
import Amazonka.MediaConvert.Types.BurninSubtitleTeletextSpacing
import Amazonka.MediaConvert.Types.FontScript
import qualified Amazonka.Prelude as Prelude
data BurninDestinationSettings = BurninDestinationSettings'
{
BurninDestinationSettings -> Maybe BurninSubtitleAlignment
alignment :: Prelude.Maybe BurninSubtitleAlignment,
BurninDestinationSettings -> Maybe BurninSubtitleApplyFontColor
applyFontColor :: Prelude.Maybe BurninSubtitleApplyFontColor,
BurninDestinationSettings -> Maybe BurninSubtitleBackgroundColor
backgroundColor :: Prelude.Maybe BurninSubtitleBackgroundColor,
BurninDestinationSettings -> Maybe Natural
backgroundOpacity :: Prelude.Maybe Prelude.Natural,
BurninDestinationSettings -> Maybe BurninSubtitleFallbackFont
fallbackFont :: Prelude.Maybe BurninSubtitleFallbackFont,
BurninDestinationSettings -> Maybe BurninSubtitleFontColor
fontColor :: Prelude.Maybe BurninSubtitleFontColor,
BurninDestinationSettings -> Maybe Natural
fontOpacity :: Prelude.Maybe Prelude.Natural,
BurninDestinationSettings -> Maybe Natural
fontResolution :: Prelude.Maybe Prelude.Natural,
BurninDestinationSettings -> Maybe FontScript
fontScript :: Prelude.Maybe FontScript,
BurninDestinationSettings -> Maybe Natural
fontSize :: Prelude.Maybe Prelude.Natural,
BurninDestinationSettings -> Maybe Text
hexFontColor :: Prelude.Maybe Prelude.Text,
BurninDestinationSettings -> Maybe BurninSubtitleOutlineColor
outlineColor :: Prelude.Maybe BurninSubtitleOutlineColor,
BurninDestinationSettings -> Maybe Natural
outlineSize :: Prelude.Maybe Prelude.Natural,
BurninDestinationSettings -> Maybe BurninSubtitleShadowColor
shadowColor :: Prelude.Maybe BurninSubtitleShadowColor,
BurninDestinationSettings -> Maybe Natural
shadowOpacity :: Prelude.Maybe Prelude.Natural,
BurninDestinationSettings -> Maybe Int
shadowXOffset :: Prelude.Maybe Prelude.Int,
BurninDestinationSettings -> Maybe Int
shadowYOffset :: Prelude.Maybe Prelude.Int,
BurninDestinationSettings -> Maybe BurnInSubtitleStylePassthrough
stylePassthrough :: Prelude.Maybe BurnInSubtitleStylePassthrough,
BurninDestinationSettings -> Maybe BurninSubtitleTeletextSpacing
teletextSpacing :: Prelude.Maybe BurninSubtitleTeletextSpacing,
BurninDestinationSettings -> Maybe Natural
xPosition :: Prelude.Maybe Prelude.Natural,
BurninDestinationSettings -> Maybe Natural
yPosition :: Prelude.Maybe Prelude.Natural
}
deriving (BurninDestinationSettings -> BurninDestinationSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BurninDestinationSettings -> BurninDestinationSettings -> Bool
$c/= :: BurninDestinationSettings -> BurninDestinationSettings -> Bool
== :: BurninDestinationSettings -> BurninDestinationSettings -> Bool
$c== :: BurninDestinationSettings -> BurninDestinationSettings -> Bool
Prelude.Eq, ReadPrec [BurninDestinationSettings]
ReadPrec BurninDestinationSettings
Int -> ReadS BurninDestinationSettings
ReadS [BurninDestinationSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BurninDestinationSettings]
$creadListPrec :: ReadPrec [BurninDestinationSettings]
readPrec :: ReadPrec BurninDestinationSettings
$creadPrec :: ReadPrec BurninDestinationSettings
readList :: ReadS [BurninDestinationSettings]
$creadList :: ReadS [BurninDestinationSettings]
readsPrec :: Int -> ReadS BurninDestinationSettings
$creadsPrec :: Int -> ReadS BurninDestinationSettings
Prelude.Read, Int -> BurninDestinationSettings -> ShowS
[BurninDestinationSettings] -> ShowS
BurninDestinationSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BurninDestinationSettings] -> ShowS
$cshowList :: [BurninDestinationSettings] -> ShowS
show :: BurninDestinationSettings -> String
$cshow :: BurninDestinationSettings -> String
showsPrec :: Int -> BurninDestinationSettings -> ShowS
$cshowsPrec :: Int -> BurninDestinationSettings -> ShowS
Prelude.Show, forall x.
Rep BurninDestinationSettings x -> BurninDestinationSettings
forall x.
BurninDestinationSettings -> Rep BurninDestinationSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep BurninDestinationSettings x -> BurninDestinationSettings
$cfrom :: forall x.
BurninDestinationSettings -> Rep BurninDestinationSettings x
Prelude.Generic)
newBurninDestinationSettings ::
BurninDestinationSettings
newBurninDestinationSettings :: BurninDestinationSettings
newBurninDestinationSettings =
BurninDestinationSettings'
{ $sel:alignment:BurninDestinationSettings' :: Maybe BurninSubtitleAlignment
alignment =
forall a. Maybe a
Prelude.Nothing,
$sel:applyFontColor:BurninDestinationSettings' :: Maybe BurninSubtitleApplyFontColor
applyFontColor = forall a. Maybe a
Prelude.Nothing,
$sel:backgroundColor:BurninDestinationSettings' :: Maybe BurninSubtitleBackgroundColor
backgroundColor = forall a. Maybe a
Prelude.Nothing,
$sel:backgroundOpacity:BurninDestinationSettings' :: Maybe Natural
backgroundOpacity = forall a. Maybe a
Prelude.Nothing,
$sel:fallbackFont:BurninDestinationSettings' :: Maybe BurninSubtitleFallbackFont
fallbackFont = forall a. Maybe a
Prelude.Nothing,
$sel:fontColor:BurninDestinationSettings' :: Maybe BurninSubtitleFontColor
fontColor = forall a. Maybe a
Prelude.Nothing,
$sel:fontOpacity:BurninDestinationSettings' :: Maybe Natural
fontOpacity = forall a. Maybe a
Prelude.Nothing,
$sel:fontResolution:BurninDestinationSettings' :: Maybe Natural
fontResolution = forall a. Maybe a
Prelude.Nothing,
$sel:fontScript:BurninDestinationSettings' :: Maybe FontScript
fontScript = forall a. Maybe a
Prelude.Nothing,
$sel:fontSize:BurninDestinationSettings' :: Maybe Natural
fontSize = forall a. Maybe a
Prelude.Nothing,
$sel:hexFontColor:BurninDestinationSettings' :: Maybe Text
hexFontColor = forall a. Maybe a
Prelude.Nothing,
$sel:outlineColor:BurninDestinationSettings' :: Maybe BurninSubtitleOutlineColor
outlineColor = forall a. Maybe a
Prelude.Nothing,
$sel:outlineSize:BurninDestinationSettings' :: Maybe Natural
outlineSize = forall a. Maybe a
Prelude.Nothing,
$sel:shadowColor:BurninDestinationSettings' :: Maybe BurninSubtitleShadowColor
shadowColor = forall a. Maybe a
Prelude.Nothing,
$sel:shadowOpacity:BurninDestinationSettings' :: Maybe Natural
shadowOpacity = forall a. Maybe a
Prelude.Nothing,
$sel:shadowXOffset:BurninDestinationSettings' :: Maybe Int
shadowXOffset = forall a. Maybe a
Prelude.Nothing,
$sel:shadowYOffset:BurninDestinationSettings' :: Maybe Int
shadowYOffset = forall a. Maybe a
Prelude.Nothing,
$sel:stylePassthrough:BurninDestinationSettings' :: Maybe BurnInSubtitleStylePassthrough
stylePassthrough = forall a. Maybe a
Prelude.Nothing,
$sel:teletextSpacing:BurninDestinationSettings' :: Maybe BurninSubtitleTeletextSpacing
teletextSpacing = forall a. Maybe a
Prelude.Nothing,
$sel:xPosition:BurninDestinationSettings' :: Maybe Natural
xPosition = forall a. Maybe a
Prelude.Nothing,
$sel:yPosition:BurninDestinationSettings' :: Maybe Natural
yPosition = forall a. Maybe a
Prelude.Nothing
}
burninDestinationSettings_alignment :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleAlignment)
burninDestinationSettings_alignment :: Lens' BurninDestinationSettings (Maybe BurninSubtitleAlignment)
burninDestinationSettings_alignment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleAlignment
alignment :: Maybe BurninSubtitleAlignment
$sel:alignment:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleAlignment
alignment} -> Maybe BurninSubtitleAlignment
alignment) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleAlignment
a -> BurninDestinationSettings
s {$sel:alignment:BurninDestinationSettings' :: Maybe BurninSubtitleAlignment
alignment = Maybe BurninSubtitleAlignment
a} :: BurninDestinationSettings)
burninDestinationSettings_applyFontColor :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleApplyFontColor)
burninDestinationSettings_applyFontColor :: Lens'
BurninDestinationSettings (Maybe BurninSubtitleApplyFontColor)
burninDestinationSettings_applyFontColor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleApplyFontColor
applyFontColor :: Maybe BurninSubtitleApplyFontColor
$sel:applyFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleApplyFontColor
applyFontColor} -> Maybe BurninSubtitleApplyFontColor
applyFontColor) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleApplyFontColor
a -> BurninDestinationSettings
s {$sel:applyFontColor:BurninDestinationSettings' :: Maybe BurninSubtitleApplyFontColor
applyFontColor = Maybe BurninSubtitleApplyFontColor
a} :: BurninDestinationSettings)
burninDestinationSettings_backgroundColor :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleBackgroundColor)
burninDestinationSettings_backgroundColor :: Lens'
BurninDestinationSettings (Maybe BurninSubtitleBackgroundColor)
burninDestinationSettings_backgroundColor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleBackgroundColor
backgroundColor :: Maybe BurninSubtitleBackgroundColor
$sel:backgroundColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleBackgroundColor
backgroundColor} -> Maybe BurninSubtitleBackgroundColor
backgroundColor) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleBackgroundColor
a -> BurninDestinationSettings
s {$sel:backgroundColor:BurninDestinationSettings' :: Maybe BurninSubtitleBackgroundColor
backgroundColor = Maybe BurninSubtitleBackgroundColor
a} :: BurninDestinationSettings)
burninDestinationSettings_backgroundOpacity :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_backgroundOpacity :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_backgroundOpacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
backgroundOpacity :: Maybe Natural
$sel:backgroundOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
backgroundOpacity} -> Maybe Natural
backgroundOpacity) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:backgroundOpacity:BurninDestinationSettings' :: Maybe Natural
backgroundOpacity = Maybe Natural
a} :: BurninDestinationSettings)
burninDestinationSettings_fallbackFont :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleFallbackFont)
burninDestinationSettings_fallbackFont :: Lens' BurninDestinationSettings (Maybe BurninSubtitleFallbackFont)
burninDestinationSettings_fallbackFont = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleFallbackFont
fallbackFont :: Maybe BurninSubtitleFallbackFont
$sel:fallbackFont:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFallbackFont
fallbackFont} -> Maybe BurninSubtitleFallbackFont
fallbackFont) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleFallbackFont
a -> BurninDestinationSettings
s {$sel:fallbackFont:BurninDestinationSettings' :: Maybe BurninSubtitleFallbackFont
fallbackFont = Maybe BurninSubtitleFallbackFont
a} :: BurninDestinationSettings)
burninDestinationSettings_fontColor :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleFontColor)
burninDestinationSettings_fontColor :: Lens' BurninDestinationSettings (Maybe BurninSubtitleFontColor)
burninDestinationSettings_fontColor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleFontColor
fontColor :: Maybe BurninSubtitleFontColor
$sel:fontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFontColor
fontColor} -> Maybe BurninSubtitleFontColor
fontColor) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleFontColor
a -> BurninDestinationSettings
s {$sel:fontColor:BurninDestinationSettings' :: Maybe BurninSubtitleFontColor
fontColor = Maybe BurninSubtitleFontColor
a} :: BurninDestinationSettings)
burninDestinationSettings_fontOpacity :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_fontOpacity :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_fontOpacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
fontOpacity :: Maybe Natural
$sel:fontOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
fontOpacity} -> Maybe Natural
fontOpacity) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:fontOpacity:BurninDestinationSettings' :: Maybe Natural
fontOpacity = Maybe Natural
a} :: BurninDestinationSettings)
burninDestinationSettings_fontResolution :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_fontResolution :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_fontResolution = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
fontResolution :: Maybe Natural
$sel:fontResolution:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
fontResolution} -> Maybe Natural
fontResolution) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:fontResolution:BurninDestinationSettings' :: Maybe Natural
fontResolution = Maybe Natural
a} :: BurninDestinationSettings)
burninDestinationSettings_fontScript :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe FontScript)
burninDestinationSettings_fontScript :: Lens' BurninDestinationSettings (Maybe FontScript)
burninDestinationSettings_fontScript = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe FontScript
fontScript :: Maybe FontScript
$sel:fontScript:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe FontScript
fontScript} -> Maybe FontScript
fontScript) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe FontScript
a -> BurninDestinationSettings
s {$sel:fontScript:BurninDestinationSettings' :: Maybe FontScript
fontScript = Maybe FontScript
a} :: BurninDestinationSettings)
burninDestinationSettings_fontSize :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_fontSize :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_fontSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
fontSize :: Maybe Natural
$sel:fontSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
fontSize} -> Maybe Natural
fontSize) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:fontSize:BurninDestinationSettings' :: Maybe Natural
fontSize = Maybe Natural
a} :: BurninDestinationSettings)
burninDestinationSettings_hexFontColor :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Text)
burninDestinationSettings_hexFontColor :: Lens' BurninDestinationSettings (Maybe Text)
burninDestinationSettings_hexFontColor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Text
hexFontColor :: Maybe Text
$sel:hexFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Text
hexFontColor} -> Maybe Text
hexFontColor) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Text
a -> BurninDestinationSettings
s {$sel:hexFontColor:BurninDestinationSettings' :: Maybe Text
hexFontColor = Maybe Text
a} :: BurninDestinationSettings)
burninDestinationSettings_outlineColor :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleOutlineColor)
burninDestinationSettings_outlineColor :: Lens' BurninDestinationSettings (Maybe BurninSubtitleOutlineColor)
burninDestinationSettings_outlineColor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleOutlineColor
outlineColor :: Maybe BurninSubtitleOutlineColor
$sel:outlineColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleOutlineColor
outlineColor} -> Maybe BurninSubtitleOutlineColor
outlineColor) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleOutlineColor
a -> BurninDestinationSettings
s {$sel:outlineColor:BurninDestinationSettings' :: Maybe BurninSubtitleOutlineColor
outlineColor = Maybe BurninSubtitleOutlineColor
a} :: BurninDestinationSettings)
burninDestinationSettings_outlineSize :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_outlineSize :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_outlineSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
outlineSize :: Maybe Natural
$sel:outlineSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
outlineSize} -> Maybe Natural
outlineSize) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:outlineSize:BurninDestinationSettings' :: Maybe Natural
outlineSize = Maybe Natural
a} :: BurninDestinationSettings)
burninDestinationSettings_shadowColor :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleShadowColor)
burninDestinationSettings_shadowColor :: Lens' BurninDestinationSettings (Maybe BurninSubtitleShadowColor)
burninDestinationSettings_shadowColor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleShadowColor
shadowColor :: Maybe BurninSubtitleShadowColor
$sel:shadowColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleShadowColor
shadowColor} -> Maybe BurninSubtitleShadowColor
shadowColor) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleShadowColor
a -> BurninDestinationSettings
s {$sel:shadowColor:BurninDestinationSettings' :: Maybe BurninSubtitleShadowColor
shadowColor = Maybe BurninSubtitleShadowColor
a} :: BurninDestinationSettings)
burninDestinationSettings_shadowOpacity :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_shadowOpacity :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_shadowOpacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
shadowOpacity :: Maybe Natural
$sel:shadowOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
shadowOpacity} -> Maybe Natural
shadowOpacity) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:shadowOpacity:BurninDestinationSettings' :: Maybe Natural
shadowOpacity = Maybe Natural
a} :: BurninDestinationSettings)
burninDestinationSettings_shadowXOffset :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Int)
burninDestinationSettings_shadowXOffset :: Lens' BurninDestinationSettings (Maybe Int)
burninDestinationSettings_shadowXOffset = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Int
shadowXOffset :: Maybe Int
$sel:shadowXOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
shadowXOffset} -> Maybe Int
shadowXOffset) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Int
a -> BurninDestinationSettings
s {$sel:shadowXOffset:BurninDestinationSettings' :: Maybe Int
shadowXOffset = Maybe Int
a} :: BurninDestinationSettings)
burninDestinationSettings_shadowYOffset :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Int)
burninDestinationSettings_shadowYOffset :: Lens' BurninDestinationSettings (Maybe Int)
burninDestinationSettings_shadowYOffset = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Int
shadowYOffset :: Maybe Int
$sel:shadowYOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
shadowYOffset} -> Maybe Int
shadowYOffset) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Int
a -> BurninDestinationSettings
s {$sel:shadowYOffset:BurninDestinationSettings' :: Maybe Int
shadowYOffset = Maybe Int
a} :: BurninDestinationSettings)
burninDestinationSettings_stylePassthrough :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurnInSubtitleStylePassthrough)
burninDestinationSettings_stylePassthrough :: Lens'
BurninDestinationSettings (Maybe BurnInSubtitleStylePassthrough)
burninDestinationSettings_stylePassthrough = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurnInSubtitleStylePassthrough
stylePassthrough :: Maybe BurnInSubtitleStylePassthrough
$sel:stylePassthrough:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurnInSubtitleStylePassthrough
stylePassthrough} -> Maybe BurnInSubtitleStylePassthrough
stylePassthrough) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurnInSubtitleStylePassthrough
a -> BurninDestinationSettings
s {$sel:stylePassthrough:BurninDestinationSettings' :: Maybe BurnInSubtitleStylePassthrough
stylePassthrough = Maybe BurnInSubtitleStylePassthrough
a} :: BurninDestinationSettings)
burninDestinationSettings_teletextSpacing :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe BurninSubtitleTeletextSpacing)
burninDestinationSettings_teletextSpacing :: Lens'
BurninDestinationSettings (Maybe BurninSubtitleTeletextSpacing)
burninDestinationSettings_teletextSpacing = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe BurninSubtitleTeletextSpacing
teletextSpacing :: Maybe BurninSubtitleTeletextSpacing
$sel:teletextSpacing:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleTeletextSpacing
teletextSpacing} -> Maybe BurninSubtitleTeletextSpacing
teletextSpacing) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe BurninSubtitleTeletextSpacing
a -> BurninDestinationSettings
s {$sel:teletextSpacing:BurninDestinationSettings' :: Maybe BurninSubtitleTeletextSpacing
teletextSpacing = Maybe BurninSubtitleTeletextSpacing
a} :: BurninDestinationSettings)
burninDestinationSettings_xPosition :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_xPosition :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_xPosition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
xPosition :: Maybe Natural
$sel:xPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
xPosition} -> Maybe Natural
xPosition) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:xPosition:BurninDestinationSettings' :: Maybe Natural
xPosition = Maybe Natural
a} :: BurninDestinationSettings)
burninDestinationSettings_yPosition :: Lens.Lens' BurninDestinationSettings (Prelude.Maybe Prelude.Natural)
burninDestinationSettings_yPosition :: Lens' BurninDestinationSettings (Maybe Natural)
burninDestinationSettings_yPosition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BurninDestinationSettings' {Maybe Natural
yPosition :: Maybe Natural
$sel:yPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
yPosition} -> Maybe Natural
yPosition) (\s :: BurninDestinationSettings
s@BurninDestinationSettings' {} Maybe Natural
a -> BurninDestinationSettings
s {$sel:yPosition:BurninDestinationSettings' :: Maybe Natural
yPosition = Maybe Natural
a} :: BurninDestinationSettings)
instance Data.FromJSON BurninDestinationSettings where
parseJSON :: Value -> Parser BurninDestinationSettings
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"BurninDestinationSettings"
( \Object
x ->
Maybe BurninSubtitleAlignment
-> Maybe BurninSubtitleApplyFontColor
-> Maybe BurninSubtitleBackgroundColor
-> Maybe Natural
-> Maybe BurninSubtitleFallbackFont
-> Maybe BurninSubtitleFontColor
-> Maybe Natural
-> Maybe Natural
-> Maybe FontScript
-> Maybe Natural
-> Maybe Text
-> Maybe BurninSubtitleOutlineColor
-> Maybe Natural
-> Maybe BurninSubtitleShadowColor
-> Maybe Natural
-> Maybe Int
-> Maybe Int
-> Maybe BurnInSubtitleStylePassthrough
-> Maybe BurninSubtitleTeletextSpacing
-> Maybe Natural
-> Maybe Natural
-> BurninDestinationSettings
BurninDestinationSettings'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"alignment")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"applyFontColor")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"backgroundColor")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"backgroundOpacity")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"fallbackFont")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"fontColor")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"fontOpacity")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"fontResolution")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"fontScript")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"fontSize")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"hexFontColor")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"outlineColor")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"outlineSize")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"shadowColor")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"shadowOpacity")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"shadowXOffset")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"shadowYOffset")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"stylePassthrough")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"teletextSpacing")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"xPosition")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"yPosition")
)
instance Prelude.Hashable BurninDestinationSettings where
hashWithSalt :: Int -> BurninDestinationSettings -> Int
hashWithSalt Int
_salt BurninDestinationSettings' {Maybe Int
Maybe Natural
Maybe Text
Maybe BurnInSubtitleStylePassthrough
Maybe BurninSubtitleAlignment
Maybe BurninSubtitleApplyFontColor
Maybe BurninSubtitleBackgroundColor
Maybe BurninSubtitleFallbackFont
Maybe BurninSubtitleFontColor
Maybe BurninSubtitleOutlineColor
Maybe BurninSubtitleShadowColor
Maybe BurninSubtitleTeletextSpacing
Maybe FontScript
yPosition :: Maybe Natural
xPosition :: Maybe Natural
teletextSpacing :: Maybe BurninSubtitleTeletextSpacing
stylePassthrough :: Maybe BurnInSubtitleStylePassthrough
shadowYOffset :: Maybe Int
shadowXOffset :: Maybe Int
shadowOpacity :: Maybe Natural
shadowColor :: Maybe BurninSubtitleShadowColor
outlineSize :: Maybe Natural
outlineColor :: Maybe BurninSubtitleOutlineColor
hexFontColor :: Maybe Text
fontSize :: Maybe Natural
fontScript :: Maybe FontScript
fontResolution :: Maybe Natural
fontOpacity :: Maybe Natural
fontColor :: Maybe BurninSubtitleFontColor
fallbackFont :: Maybe BurninSubtitleFallbackFont
backgroundOpacity :: Maybe Natural
backgroundColor :: Maybe BurninSubtitleBackgroundColor
applyFontColor :: Maybe BurninSubtitleApplyFontColor
alignment :: Maybe BurninSubtitleAlignment
$sel:yPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:xPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:teletextSpacing:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleTeletextSpacing
$sel:stylePassthrough:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurnInSubtitleStylePassthrough
$sel:shadowYOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
$sel:shadowXOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
$sel:shadowOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:shadowColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleShadowColor
$sel:outlineSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:outlineColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleOutlineColor
$sel:hexFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Text
$sel:fontSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontScript:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe FontScript
$sel:fontResolution:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFontColor
$sel:fallbackFont:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFallbackFont
$sel:backgroundOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:backgroundColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleBackgroundColor
$sel:applyFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleApplyFontColor
$sel:alignment:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleAlignment
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleAlignment
alignment
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleApplyFontColor
applyFontColor
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleBackgroundColor
backgroundColor
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
backgroundOpacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleFallbackFont
fallbackFont
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleFontColor
fontColor
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
fontOpacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
fontResolution
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FontScript
fontScript
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
fontSize
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
hexFontColor
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleOutlineColor
outlineColor
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
outlineSize
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleShadowColor
shadowColor
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
shadowOpacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
shadowXOffset
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
shadowYOffset
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurnInSubtitleStylePassthrough
stylePassthrough
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BurninSubtitleTeletextSpacing
teletextSpacing
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
xPosition
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
yPosition
instance Prelude.NFData BurninDestinationSettings where
rnf :: BurninDestinationSettings -> ()
rnf BurninDestinationSettings' {Maybe Int
Maybe Natural
Maybe Text
Maybe BurnInSubtitleStylePassthrough
Maybe BurninSubtitleAlignment
Maybe BurninSubtitleApplyFontColor
Maybe BurninSubtitleBackgroundColor
Maybe BurninSubtitleFallbackFont
Maybe BurninSubtitleFontColor
Maybe BurninSubtitleOutlineColor
Maybe BurninSubtitleShadowColor
Maybe BurninSubtitleTeletextSpacing
Maybe FontScript
yPosition :: Maybe Natural
xPosition :: Maybe Natural
teletextSpacing :: Maybe BurninSubtitleTeletextSpacing
stylePassthrough :: Maybe BurnInSubtitleStylePassthrough
shadowYOffset :: Maybe Int
shadowXOffset :: Maybe Int
shadowOpacity :: Maybe Natural
shadowColor :: Maybe BurninSubtitleShadowColor
outlineSize :: Maybe Natural
outlineColor :: Maybe BurninSubtitleOutlineColor
hexFontColor :: Maybe Text
fontSize :: Maybe Natural
fontScript :: Maybe FontScript
fontResolution :: Maybe Natural
fontOpacity :: Maybe Natural
fontColor :: Maybe BurninSubtitleFontColor
fallbackFont :: Maybe BurninSubtitleFallbackFont
backgroundOpacity :: Maybe Natural
backgroundColor :: Maybe BurninSubtitleBackgroundColor
applyFontColor :: Maybe BurninSubtitleApplyFontColor
alignment :: Maybe BurninSubtitleAlignment
$sel:yPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:xPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:teletextSpacing:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleTeletextSpacing
$sel:stylePassthrough:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurnInSubtitleStylePassthrough
$sel:shadowYOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
$sel:shadowXOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
$sel:shadowOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:shadowColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleShadowColor
$sel:outlineSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:outlineColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleOutlineColor
$sel:hexFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Text
$sel:fontSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontScript:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe FontScript
$sel:fontResolution:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFontColor
$sel:fallbackFont:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFallbackFont
$sel:backgroundOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:backgroundColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleBackgroundColor
$sel:applyFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleApplyFontColor
$sel:alignment:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleAlignment
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleAlignment
alignment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleApplyFontColor
applyFontColor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleBackgroundColor
backgroundColor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
backgroundOpacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleFallbackFont
fallbackFont
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleFontColor
fontColor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
fontOpacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
fontResolution
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FontScript
fontScript
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
fontSize
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
hexFontColor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleOutlineColor
outlineColor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
outlineSize
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleShadowColor
shadowColor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
shadowOpacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
shadowXOffset
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
shadowYOffset
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurnInSubtitleStylePassthrough
stylePassthrough
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BurninSubtitleTeletextSpacing
teletextSpacing
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
xPosition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
yPosition
instance Data.ToJSON BurninDestinationSettings where
toJSON :: BurninDestinationSettings -> Value
toJSON BurninDestinationSettings' {Maybe Int
Maybe Natural
Maybe Text
Maybe BurnInSubtitleStylePassthrough
Maybe BurninSubtitleAlignment
Maybe BurninSubtitleApplyFontColor
Maybe BurninSubtitleBackgroundColor
Maybe BurninSubtitleFallbackFont
Maybe BurninSubtitleFontColor
Maybe BurninSubtitleOutlineColor
Maybe BurninSubtitleShadowColor
Maybe BurninSubtitleTeletextSpacing
Maybe FontScript
yPosition :: Maybe Natural
xPosition :: Maybe Natural
teletextSpacing :: Maybe BurninSubtitleTeletextSpacing
stylePassthrough :: Maybe BurnInSubtitleStylePassthrough
shadowYOffset :: Maybe Int
shadowXOffset :: Maybe Int
shadowOpacity :: Maybe Natural
shadowColor :: Maybe BurninSubtitleShadowColor
outlineSize :: Maybe Natural
outlineColor :: Maybe BurninSubtitleOutlineColor
hexFontColor :: Maybe Text
fontSize :: Maybe Natural
fontScript :: Maybe FontScript
fontResolution :: Maybe Natural
fontOpacity :: Maybe Natural
fontColor :: Maybe BurninSubtitleFontColor
fallbackFont :: Maybe BurninSubtitleFallbackFont
backgroundOpacity :: Maybe Natural
backgroundColor :: Maybe BurninSubtitleBackgroundColor
applyFontColor :: Maybe BurninSubtitleApplyFontColor
alignment :: Maybe BurninSubtitleAlignment
$sel:yPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:xPosition:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:teletextSpacing:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleTeletextSpacing
$sel:stylePassthrough:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurnInSubtitleStylePassthrough
$sel:shadowYOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
$sel:shadowXOffset:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Int
$sel:shadowOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:shadowColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleShadowColor
$sel:outlineSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:outlineColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleOutlineColor
$sel:hexFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Text
$sel:fontSize:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontScript:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe FontScript
$sel:fontResolution:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:fontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFontColor
$sel:fallbackFont:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleFallbackFont
$sel:backgroundOpacity:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe Natural
$sel:backgroundColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleBackgroundColor
$sel:applyFontColor:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleApplyFontColor
$sel:alignment:BurninDestinationSettings' :: BurninDestinationSettings -> Maybe BurninSubtitleAlignment
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"alignment" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleAlignment
alignment,
(Key
"applyFontColor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleApplyFontColor
applyFontColor,
(Key
"backgroundColor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleBackgroundColor
backgroundColor,
(Key
"backgroundOpacity" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
backgroundOpacity,
(Key
"fallbackFont" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleFallbackFont
fallbackFont,
(Key
"fontColor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleFontColor
fontColor,
(Key
"fontOpacity" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
fontOpacity,
(Key
"fontResolution" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
fontResolution,
(Key
"fontScript" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FontScript
fontScript,
(Key
"fontSize" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
fontSize,
(Key
"hexFontColor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
hexFontColor,
(Key
"outlineColor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleOutlineColor
outlineColor,
(Key
"outlineSize" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
outlineSize,
(Key
"shadowColor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleShadowColor
shadowColor,
(Key
"shadowOpacity" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
shadowOpacity,
(Key
"shadowXOffset" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
shadowXOffset,
(Key
"shadowYOffset" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
shadowYOffset,
(Key
"stylePassthrough" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurnInSubtitleStylePassthrough
stylePassthrough,
(Key
"teletextSpacing" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BurninSubtitleTeletextSpacing
teletextSpacing,
(Key
"xPosition" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
xPosition,
(Key
"yPosition" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
yPosition
]
)