{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.MediaConvert.Types.Vc3Settings
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.MediaConvert.Types.Vc3Settings where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import Amazonka.MediaConvert.Types.Vc3Class
import Amazonka.MediaConvert.Types.Vc3FramerateControl
import Amazonka.MediaConvert.Types.Vc3FramerateConversionAlgorithm
import Amazonka.MediaConvert.Types.Vc3InterlaceMode
import Amazonka.MediaConvert.Types.Vc3ScanTypeConversionMode
import Amazonka.MediaConvert.Types.Vc3SlowPal
import Amazonka.MediaConvert.Types.Vc3Telecine
import qualified Amazonka.Prelude as Prelude

-- | Required when you set (Codec) under (VideoDescription)>(CodecSettings)
-- to the value VC3
--
-- /See:/ 'newVc3Settings' smart constructor.
data Vc3Settings = Vc3Settings'
  { -- | Ignore this setting unless your input frame rate is 23.976 or 24 frames
    -- per second (fps). Enable slow PAL to create a 25 fps output by
    -- relabeling the video frames and resampling your audio. Note that
    -- enabling this setting will slightly reduce the duration of your video.
    -- Related settings: You must also set Framerate to 25. In your JSON job
    -- specification, set (framerateControl) to (SPECIFIED),
    -- (framerateNumerator) to 25 and (framerateDenominator) to 1.
    Vc3Settings -> Maybe Vc3SlowPal
slowPal :: Prelude.Maybe Vc3SlowPal,
    -- | When you do frame rate conversion from 23.976 frames per second (fps) to
    -- 29.97 fps, and your output scan type is interlaced, you can optionally
    -- enable hard telecine (HARD) to create a smoother picture. When you keep
    -- the default value, None (NONE), MediaConvert does a standard frame rate
    -- conversion to 29.97 without doing anything with the field polarity to
    -- create a smoother picture.
    Vc3Settings -> Maybe Vc3Telecine
telecine :: Prelude.Maybe Vc3Telecine,
    -- | Optional. Choose the scan line type for this output. If you don\'t
    -- specify a value, MediaConvert will create a progressive output.
    Vc3Settings -> Maybe Vc3InterlaceMode
interlaceMode :: Prelude.Maybe Vc3InterlaceMode,
    -- | Use this setting for interlaced outputs, when your output frame rate is
    -- half of your input frame rate. In this situation, choose Optimized
    -- interlacing (INTERLACED_OPTIMIZE) to create a better quality interlaced
    -- output. In this case, each progressive frame from the input corresponds
    -- to an interlaced field in the output. Keep the default value, Basic
    -- interlacing (INTERLACED), for all other output frame rates. With basic
    -- interlacing, MediaConvert performs any frame rate conversion first and
    -- then interlaces the frames. When you choose Optimized interlacing and
    -- you set your output frame rate to a value that isn\'t suitable for
    -- optimized interlacing, MediaConvert automatically falls back to basic
    -- interlacing. Required settings: To use optimized interlacing, you must
    -- set Telecine (telecine) to None (NONE) or Soft (SOFT). You can\'t use
    -- optimized interlacing for hard telecine outputs. You must also set
    -- Interlace mode (interlaceMode) to a value other than Progressive
    -- (PROGRESSIVE).
    Vc3Settings -> Maybe Vc3ScanTypeConversionMode
scanTypeConversionMode :: Prelude.Maybe Vc3ScanTypeConversionMode,
    -- | When you use the API for transcode jobs that use frame rate conversion,
    -- specify the frame rate as a fraction. For example, 24000 \/ 1001 =
    -- 23.976 fps. Use FramerateDenominator to specify the denominator of this
    -- fraction. In this example, use 1001 for the value of
    -- FramerateDenominator. When you use the console for transcode jobs that
    -- use frame rate conversion, provide the value as a decimal number for
    -- Framerate. In this example, specify 23.976.
    Vc3Settings -> Maybe Natural
framerateDenominator :: Prelude.Maybe Prelude.Natural,
    -- | Specify the VC3 class to choose the quality characteristics for this
    -- output. VC3 class, together with the settings Framerate
    -- (framerateNumerator and framerateDenominator) and Resolution (height and
    -- width), determine your output bitrate. For example, say that your video
    -- resolution is 1920x1080 and your framerate is 29.97. Then Class 145
    -- (CLASS_145) gives you an output with a bitrate of approximately 145 Mbps
    -- and Class 220 (CLASS_220) gives you and output with a bitrate of
    -- approximately 220 Mbps. VC3 class also specifies the color bit depth of
    -- your output.
    Vc3Settings -> Maybe Vc3Class
vc3Class :: Prelude.Maybe Vc3Class,
    -- | Choose the method that you want MediaConvert to use when increasing or
    -- decreasing the frame rate. We recommend using drop duplicate
    -- (DUPLICATE_DROP) for numerically simple conversions, such as 60 fps to
    -- 30 fps. For numerically complex conversions, you can use interpolate
    -- (INTERPOLATE) to avoid stutter. This results in a smooth picture, but
    -- might introduce undesirable video artifacts. For complex frame rate
    -- conversions, especially if your source video has already been converted
    -- from its original cadence, use FrameFormer (FRAMEFORMER) to do
    -- motion-compensated interpolation. FrameFormer chooses the best
    -- conversion method frame by frame. Note that using FrameFormer increases
    -- the transcoding time and incurs a significant add-on cost.
    Vc3Settings -> Maybe Vc3FramerateConversionAlgorithm
framerateConversionAlgorithm :: Prelude.Maybe Vc3FramerateConversionAlgorithm,
    -- | If you are using the console, use the Framerate setting to specify the
    -- frame rate for this output. If you want to keep the same frame rate as
    -- the input video, choose Follow source. If you want to do frame rate
    -- conversion, choose a frame rate from the dropdown list or choose Custom.
    -- The framerates shown in the dropdown list are decimal approximations of
    -- fractions. If you choose Custom, specify your frame rate as a fraction.
    -- If you are creating your transcoding job specification as a JSON file
    -- without the console, use FramerateControl to specify which value the
    -- service uses for the frame rate for this output. Choose
    -- INITIALIZE_FROM_SOURCE if you want the service to use the frame rate
    -- from the input. Choose SPECIFIED if you want the service to use the
    -- frame rate you specify in the settings FramerateNumerator and
    -- FramerateDenominator.
    Vc3Settings -> Maybe Vc3FramerateControl
framerateControl :: Prelude.Maybe Vc3FramerateControl,
    -- | When you use the API for transcode jobs that use frame rate conversion,
    -- specify the frame rate as a fraction. For example, 24000 \/ 1001 =
    -- 23.976 fps. Use FramerateNumerator to specify the numerator of this
    -- fraction. In this example, use 24000 for the value of
    -- FramerateNumerator. When you use the console for transcode jobs that use
    -- frame rate conversion, provide the value as a decimal number for
    -- Framerate. In this example, specify 23.976.
    Vc3Settings -> Maybe Natural
framerateNumerator :: Prelude.Maybe Prelude.Natural
  }
  deriving (Vc3Settings -> Vc3Settings -> Bool
(Vc3Settings -> Vc3Settings -> Bool)
-> (Vc3Settings -> Vc3Settings -> Bool) -> Eq Vc3Settings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Vc3Settings -> Vc3Settings -> Bool
$c/= :: Vc3Settings -> Vc3Settings -> Bool
== :: Vc3Settings -> Vc3Settings -> Bool
$c== :: Vc3Settings -> Vc3Settings -> Bool
Prelude.Eq, ReadPrec [Vc3Settings]
ReadPrec Vc3Settings
Int -> ReadS Vc3Settings
ReadS [Vc3Settings]
(Int -> ReadS Vc3Settings)
-> ReadS [Vc3Settings]
-> ReadPrec Vc3Settings
-> ReadPrec [Vc3Settings]
-> Read Vc3Settings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Vc3Settings]
$creadListPrec :: ReadPrec [Vc3Settings]
readPrec :: ReadPrec Vc3Settings
$creadPrec :: ReadPrec Vc3Settings
readList :: ReadS [Vc3Settings]
$creadList :: ReadS [Vc3Settings]
readsPrec :: Int -> ReadS Vc3Settings
$creadsPrec :: Int -> ReadS Vc3Settings
Prelude.Read, Int -> Vc3Settings -> ShowS
[Vc3Settings] -> ShowS
Vc3Settings -> String
(Int -> Vc3Settings -> ShowS)
-> (Vc3Settings -> String)
-> ([Vc3Settings] -> ShowS)
-> Show Vc3Settings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Vc3Settings] -> ShowS
$cshowList :: [Vc3Settings] -> ShowS
show :: Vc3Settings -> String
$cshow :: Vc3Settings -> String
showsPrec :: Int -> Vc3Settings -> ShowS
$cshowsPrec :: Int -> Vc3Settings -> ShowS
Prelude.Show, (forall x. Vc3Settings -> Rep Vc3Settings x)
-> (forall x. Rep Vc3Settings x -> Vc3Settings)
-> Generic Vc3Settings
forall x. Rep Vc3Settings x -> Vc3Settings
forall x. Vc3Settings -> Rep Vc3Settings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Vc3Settings x -> Vc3Settings
$cfrom :: forall x. Vc3Settings -> Rep Vc3Settings x
Prelude.Generic)

-- |
-- Create a value of 'Vc3Settings' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'slowPal', 'vc3Settings_slowPal' - Ignore this setting unless your input frame rate is 23.976 or 24 frames
-- per second (fps). Enable slow PAL to create a 25 fps output by
-- relabeling the video frames and resampling your audio. Note that
-- enabling this setting will slightly reduce the duration of your video.
-- Related settings: You must also set Framerate to 25. In your JSON job
-- specification, set (framerateControl) to (SPECIFIED),
-- (framerateNumerator) to 25 and (framerateDenominator) to 1.
--
-- 'telecine', 'vc3Settings_telecine' - When you do frame rate conversion from 23.976 frames per second (fps) to
-- 29.97 fps, and your output scan type is interlaced, you can optionally
-- enable hard telecine (HARD) to create a smoother picture. When you keep
-- the default value, None (NONE), MediaConvert does a standard frame rate
-- conversion to 29.97 without doing anything with the field polarity to
-- create a smoother picture.
--
-- 'interlaceMode', 'vc3Settings_interlaceMode' - Optional. Choose the scan line type for this output. If you don\'t
-- specify a value, MediaConvert will create a progressive output.
--
-- 'scanTypeConversionMode', 'vc3Settings_scanTypeConversionMode' - Use this setting for interlaced outputs, when your output frame rate is
-- half of your input frame rate. In this situation, choose Optimized
-- interlacing (INTERLACED_OPTIMIZE) to create a better quality interlaced
-- output. In this case, each progressive frame from the input corresponds
-- to an interlaced field in the output. Keep the default value, Basic
-- interlacing (INTERLACED), for all other output frame rates. With basic
-- interlacing, MediaConvert performs any frame rate conversion first and
-- then interlaces the frames. When you choose Optimized interlacing and
-- you set your output frame rate to a value that isn\'t suitable for
-- optimized interlacing, MediaConvert automatically falls back to basic
-- interlacing. Required settings: To use optimized interlacing, you must
-- set Telecine (telecine) to None (NONE) or Soft (SOFT). You can\'t use
-- optimized interlacing for hard telecine outputs. You must also set
-- Interlace mode (interlaceMode) to a value other than Progressive
-- (PROGRESSIVE).
--
-- 'framerateDenominator', 'vc3Settings_framerateDenominator' - When you use the API for transcode jobs that use frame rate conversion,
-- specify the frame rate as a fraction. For example, 24000 \/ 1001 =
-- 23.976 fps. Use FramerateDenominator to specify the denominator of this
-- fraction. In this example, use 1001 for the value of
-- FramerateDenominator. When you use the console for transcode jobs that
-- use frame rate conversion, provide the value as a decimal number for
-- Framerate. In this example, specify 23.976.
--
-- 'vc3Class', 'vc3Settings_vc3Class' - Specify the VC3 class to choose the quality characteristics for this
-- output. VC3 class, together with the settings Framerate
-- (framerateNumerator and framerateDenominator) and Resolution (height and
-- width), determine your output bitrate. For example, say that your video
-- resolution is 1920x1080 and your framerate is 29.97. Then Class 145
-- (CLASS_145) gives you an output with a bitrate of approximately 145 Mbps
-- and Class 220 (CLASS_220) gives you and output with a bitrate of
-- approximately 220 Mbps. VC3 class also specifies the color bit depth of
-- your output.
--
-- 'framerateConversionAlgorithm', 'vc3Settings_framerateConversionAlgorithm' - Choose the method that you want MediaConvert to use when increasing or
-- decreasing the frame rate. We recommend using drop duplicate
-- (DUPLICATE_DROP) for numerically simple conversions, such as 60 fps to
-- 30 fps. For numerically complex conversions, you can use interpolate
-- (INTERPOLATE) to avoid stutter. This results in a smooth picture, but
-- might introduce undesirable video artifacts. For complex frame rate
-- conversions, especially if your source video has already been converted
-- from its original cadence, use FrameFormer (FRAMEFORMER) to do
-- motion-compensated interpolation. FrameFormer chooses the best
-- conversion method frame by frame. Note that using FrameFormer increases
-- the transcoding time and incurs a significant add-on cost.
--
-- 'framerateControl', 'vc3Settings_framerateControl' - If you are using the console, use the Framerate setting to specify the
-- frame rate for this output. If you want to keep the same frame rate as
-- the input video, choose Follow source. If you want to do frame rate
-- conversion, choose a frame rate from the dropdown list or choose Custom.
-- The framerates shown in the dropdown list are decimal approximations of
-- fractions. If you choose Custom, specify your frame rate as a fraction.
-- If you are creating your transcoding job specification as a JSON file
-- without the console, use FramerateControl to specify which value the
-- service uses for the frame rate for this output. Choose
-- INITIALIZE_FROM_SOURCE if you want the service to use the frame rate
-- from the input. Choose SPECIFIED if you want the service to use the
-- frame rate you specify in the settings FramerateNumerator and
-- FramerateDenominator.
--
-- 'framerateNumerator', 'vc3Settings_framerateNumerator' - When you use the API for transcode jobs that use frame rate conversion,
-- specify the frame rate as a fraction. For example, 24000 \/ 1001 =
-- 23.976 fps. Use FramerateNumerator to specify the numerator of this
-- fraction. In this example, use 24000 for the value of
-- FramerateNumerator. When you use the console for transcode jobs that use
-- frame rate conversion, provide the value as a decimal number for
-- Framerate. In this example, specify 23.976.
newVc3Settings ::
  Vc3Settings
newVc3Settings :: Vc3Settings
newVc3Settings =
  Vc3Settings' :: Maybe Vc3SlowPal
-> Maybe Vc3Telecine
-> Maybe Vc3InterlaceMode
-> Maybe Vc3ScanTypeConversionMode
-> Maybe Natural
-> Maybe Vc3Class
-> Maybe Vc3FramerateConversionAlgorithm
-> Maybe Vc3FramerateControl
-> Maybe Natural
-> Vc3Settings
Vc3Settings'
    { $sel:slowPal:Vc3Settings' :: Maybe Vc3SlowPal
slowPal = Maybe Vc3SlowPal
forall a. Maybe a
Prelude.Nothing,
      $sel:telecine:Vc3Settings' :: Maybe Vc3Telecine
telecine = Maybe Vc3Telecine
forall a. Maybe a
Prelude.Nothing,
      $sel:interlaceMode:Vc3Settings' :: Maybe Vc3InterlaceMode
interlaceMode = Maybe Vc3InterlaceMode
forall a. Maybe a
Prelude.Nothing,
      $sel:scanTypeConversionMode:Vc3Settings' :: Maybe Vc3ScanTypeConversionMode
scanTypeConversionMode = Maybe Vc3ScanTypeConversionMode
forall a. Maybe a
Prelude.Nothing,
      $sel:framerateDenominator:Vc3Settings' :: Maybe Natural
framerateDenominator = Maybe Natural
forall a. Maybe a
Prelude.Nothing,
      $sel:vc3Class:Vc3Settings' :: Maybe Vc3Class
vc3Class = Maybe Vc3Class
forall a. Maybe a
Prelude.Nothing,
      $sel:framerateConversionAlgorithm:Vc3Settings' :: Maybe Vc3FramerateConversionAlgorithm
framerateConversionAlgorithm = Maybe Vc3FramerateConversionAlgorithm
forall a. Maybe a
Prelude.Nothing,
      $sel:framerateControl:Vc3Settings' :: Maybe Vc3FramerateControl
framerateControl = Maybe Vc3FramerateControl
forall a. Maybe a
Prelude.Nothing,
      $sel:framerateNumerator:Vc3Settings' :: Maybe Natural
framerateNumerator = Maybe Natural
forall a. Maybe a
Prelude.Nothing
    }

-- | Ignore this setting unless your input frame rate is 23.976 or 24 frames
-- per second (fps). Enable slow PAL to create a 25 fps output by
-- relabeling the video frames and resampling your audio. Note that
-- enabling this setting will slightly reduce the duration of your video.
-- Related settings: You must also set Framerate to 25. In your JSON job
-- specification, set (framerateControl) to (SPECIFIED),
-- (framerateNumerator) to 25 and (framerateDenominator) to 1.
vc3Settings_slowPal :: Lens.Lens' Vc3Settings (Prelude.Maybe Vc3SlowPal)
vc3Settings_slowPal :: (Maybe Vc3SlowPal -> f (Maybe Vc3SlowPal))
-> Vc3Settings -> f Vc3Settings
vc3Settings_slowPal = (Vc3Settings -> Maybe Vc3SlowPal)
-> (Vc3Settings -> Maybe Vc3SlowPal -> Vc3Settings)
-> Lens
     Vc3Settings Vc3Settings (Maybe Vc3SlowPal) (Maybe Vc3SlowPal)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Vc3SlowPal
slowPal :: Maybe Vc3SlowPal
$sel:slowPal:Vc3Settings' :: Vc3Settings -> Maybe Vc3SlowPal
slowPal} -> Maybe Vc3SlowPal
slowPal) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Vc3SlowPal
a -> Vc3Settings
s {$sel:slowPal:Vc3Settings' :: Maybe Vc3SlowPal
slowPal = Maybe Vc3SlowPal
a} :: Vc3Settings)

-- | When you do frame rate conversion from 23.976 frames per second (fps) to
-- 29.97 fps, and your output scan type is interlaced, you can optionally
-- enable hard telecine (HARD) to create a smoother picture. When you keep
-- the default value, None (NONE), MediaConvert does a standard frame rate
-- conversion to 29.97 without doing anything with the field polarity to
-- create a smoother picture.
vc3Settings_telecine :: Lens.Lens' Vc3Settings (Prelude.Maybe Vc3Telecine)
vc3Settings_telecine :: (Maybe Vc3Telecine -> f (Maybe Vc3Telecine))
-> Vc3Settings -> f Vc3Settings
vc3Settings_telecine = (Vc3Settings -> Maybe Vc3Telecine)
-> (Vc3Settings -> Maybe Vc3Telecine -> Vc3Settings)
-> Lens
     Vc3Settings Vc3Settings (Maybe Vc3Telecine) (Maybe Vc3Telecine)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Vc3Telecine
telecine :: Maybe Vc3Telecine
$sel:telecine:Vc3Settings' :: Vc3Settings -> Maybe Vc3Telecine
telecine} -> Maybe Vc3Telecine
telecine) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Vc3Telecine
a -> Vc3Settings
s {$sel:telecine:Vc3Settings' :: Maybe Vc3Telecine
telecine = Maybe Vc3Telecine
a} :: Vc3Settings)

-- | Optional. Choose the scan line type for this output. If you don\'t
-- specify a value, MediaConvert will create a progressive output.
vc3Settings_interlaceMode :: Lens.Lens' Vc3Settings (Prelude.Maybe Vc3InterlaceMode)
vc3Settings_interlaceMode :: (Maybe Vc3InterlaceMode -> f (Maybe Vc3InterlaceMode))
-> Vc3Settings -> f Vc3Settings
vc3Settings_interlaceMode = (Vc3Settings -> Maybe Vc3InterlaceMode)
-> (Vc3Settings -> Maybe Vc3InterlaceMode -> Vc3Settings)
-> Lens
     Vc3Settings
     Vc3Settings
     (Maybe Vc3InterlaceMode)
     (Maybe Vc3InterlaceMode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Vc3InterlaceMode
interlaceMode :: Maybe Vc3InterlaceMode
$sel:interlaceMode:Vc3Settings' :: Vc3Settings -> Maybe Vc3InterlaceMode
interlaceMode} -> Maybe Vc3InterlaceMode
interlaceMode) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Vc3InterlaceMode
a -> Vc3Settings
s {$sel:interlaceMode:Vc3Settings' :: Maybe Vc3InterlaceMode
interlaceMode = Maybe Vc3InterlaceMode
a} :: Vc3Settings)

-- | Use this setting for interlaced outputs, when your output frame rate is
-- half of your input frame rate. In this situation, choose Optimized
-- interlacing (INTERLACED_OPTIMIZE) to create a better quality interlaced
-- output. In this case, each progressive frame from the input corresponds
-- to an interlaced field in the output. Keep the default value, Basic
-- interlacing (INTERLACED), for all other output frame rates. With basic
-- interlacing, MediaConvert performs any frame rate conversion first and
-- then interlaces the frames. When you choose Optimized interlacing and
-- you set your output frame rate to a value that isn\'t suitable for
-- optimized interlacing, MediaConvert automatically falls back to basic
-- interlacing. Required settings: To use optimized interlacing, you must
-- set Telecine (telecine) to None (NONE) or Soft (SOFT). You can\'t use
-- optimized interlacing for hard telecine outputs. You must also set
-- Interlace mode (interlaceMode) to a value other than Progressive
-- (PROGRESSIVE).
vc3Settings_scanTypeConversionMode :: Lens.Lens' Vc3Settings (Prelude.Maybe Vc3ScanTypeConversionMode)
vc3Settings_scanTypeConversionMode :: (Maybe Vc3ScanTypeConversionMode
 -> f (Maybe Vc3ScanTypeConversionMode))
-> Vc3Settings -> f Vc3Settings
vc3Settings_scanTypeConversionMode = (Vc3Settings -> Maybe Vc3ScanTypeConversionMode)
-> (Vc3Settings -> Maybe Vc3ScanTypeConversionMode -> Vc3Settings)
-> Lens
     Vc3Settings
     Vc3Settings
     (Maybe Vc3ScanTypeConversionMode)
     (Maybe Vc3ScanTypeConversionMode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Vc3ScanTypeConversionMode
scanTypeConversionMode :: Maybe Vc3ScanTypeConversionMode
$sel:scanTypeConversionMode:Vc3Settings' :: Vc3Settings -> Maybe Vc3ScanTypeConversionMode
scanTypeConversionMode} -> Maybe Vc3ScanTypeConversionMode
scanTypeConversionMode) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Vc3ScanTypeConversionMode
a -> Vc3Settings
s {$sel:scanTypeConversionMode:Vc3Settings' :: Maybe Vc3ScanTypeConversionMode
scanTypeConversionMode = Maybe Vc3ScanTypeConversionMode
a} :: Vc3Settings)

-- | When you use the API for transcode jobs that use frame rate conversion,
-- specify the frame rate as a fraction. For example, 24000 \/ 1001 =
-- 23.976 fps. Use FramerateDenominator to specify the denominator of this
-- fraction. In this example, use 1001 for the value of
-- FramerateDenominator. When you use the console for transcode jobs that
-- use frame rate conversion, provide the value as a decimal number for
-- Framerate. In this example, specify 23.976.
vc3Settings_framerateDenominator :: Lens.Lens' Vc3Settings (Prelude.Maybe Prelude.Natural)
vc3Settings_framerateDenominator :: (Maybe Natural -> f (Maybe Natural))
-> Vc3Settings -> f Vc3Settings
vc3Settings_framerateDenominator = (Vc3Settings -> Maybe Natural)
-> (Vc3Settings -> Maybe Natural -> Vc3Settings)
-> Lens Vc3Settings Vc3Settings (Maybe Natural) (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Natural
framerateDenominator :: Maybe Natural
$sel:framerateDenominator:Vc3Settings' :: Vc3Settings -> Maybe Natural
framerateDenominator} -> Maybe Natural
framerateDenominator) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Natural
a -> Vc3Settings
s {$sel:framerateDenominator:Vc3Settings' :: Maybe Natural
framerateDenominator = Maybe Natural
a} :: Vc3Settings)

-- | Specify the VC3 class to choose the quality characteristics for this
-- output. VC3 class, together with the settings Framerate
-- (framerateNumerator and framerateDenominator) and Resolution (height and
-- width), determine your output bitrate. For example, say that your video
-- resolution is 1920x1080 and your framerate is 29.97. Then Class 145
-- (CLASS_145) gives you an output with a bitrate of approximately 145 Mbps
-- and Class 220 (CLASS_220) gives you and output with a bitrate of
-- approximately 220 Mbps. VC3 class also specifies the color bit depth of
-- your output.
vc3Settings_vc3Class :: Lens.Lens' Vc3Settings (Prelude.Maybe Vc3Class)
vc3Settings_vc3Class :: (Maybe Vc3Class -> f (Maybe Vc3Class))
-> Vc3Settings -> f Vc3Settings
vc3Settings_vc3Class = (Vc3Settings -> Maybe Vc3Class)
-> (Vc3Settings -> Maybe Vc3Class -> Vc3Settings)
-> Lens Vc3Settings Vc3Settings (Maybe Vc3Class) (Maybe Vc3Class)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Vc3Class
vc3Class :: Maybe Vc3Class
$sel:vc3Class:Vc3Settings' :: Vc3Settings -> Maybe Vc3Class
vc3Class} -> Maybe Vc3Class
vc3Class) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Vc3Class
a -> Vc3Settings
s {$sel:vc3Class:Vc3Settings' :: Maybe Vc3Class
vc3Class = Maybe Vc3Class
a} :: Vc3Settings)

-- | Choose the method that you want MediaConvert to use when increasing or
-- decreasing the frame rate. We recommend using drop duplicate
-- (DUPLICATE_DROP) for numerically simple conversions, such as 60 fps to
-- 30 fps. For numerically complex conversions, you can use interpolate
-- (INTERPOLATE) to avoid stutter. This results in a smooth picture, but
-- might introduce undesirable video artifacts. For complex frame rate
-- conversions, especially if your source video has already been converted
-- from its original cadence, use FrameFormer (FRAMEFORMER) to do
-- motion-compensated interpolation. FrameFormer chooses the best
-- conversion method frame by frame. Note that using FrameFormer increases
-- the transcoding time and incurs a significant add-on cost.
vc3Settings_framerateConversionAlgorithm :: Lens.Lens' Vc3Settings (Prelude.Maybe Vc3FramerateConversionAlgorithm)
vc3Settings_framerateConversionAlgorithm :: (Maybe Vc3FramerateConversionAlgorithm
 -> f (Maybe Vc3FramerateConversionAlgorithm))
-> Vc3Settings -> f Vc3Settings
vc3Settings_framerateConversionAlgorithm = (Vc3Settings -> Maybe Vc3FramerateConversionAlgorithm)
-> (Vc3Settings
    -> Maybe Vc3FramerateConversionAlgorithm -> Vc3Settings)
-> Lens
     Vc3Settings
     Vc3Settings
     (Maybe Vc3FramerateConversionAlgorithm)
     (Maybe Vc3FramerateConversionAlgorithm)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Vc3FramerateConversionAlgorithm
framerateConversionAlgorithm :: Maybe Vc3FramerateConversionAlgorithm
$sel:framerateConversionAlgorithm:Vc3Settings' :: Vc3Settings -> Maybe Vc3FramerateConversionAlgorithm
framerateConversionAlgorithm} -> Maybe Vc3FramerateConversionAlgorithm
framerateConversionAlgorithm) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Vc3FramerateConversionAlgorithm
a -> Vc3Settings
s {$sel:framerateConversionAlgorithm:Vc3Settings' :: Maybe Vc3FramerateConversionAlgorithm
framerateConversionAlgorithm = Maybe Vc3FramerateConversionAlgorithm
a} :: Vc3Settings)

-- | If you are using the console, use the Framerate setting to specify the
-- frame rate for this output. If you want to keep the same frame rate as
-- the input video, choose Follow source. If you want to do frame rate
-- conversion, choose a frame rate from the dropdown list or choose Custom.
-- The framerates shown in the dropdown list are decimal approximations of
-- fractions. If you choose Custom, specify your frame rate as a fraction.
-- If you are creating your transcoding job specification as a JSON file
-- without the console, use FramerateControl to specify which value the
-- service uses for the frame rate for this output. Choose
-- INITIALIZE_FROM_SOURCE if you want the service to use the frame rate
-- from the input. Choose SPECIFIED if you want the service to use the
-- frame rate you specify in the settings FramerateNumerator and
-- FramerateDenominator.
vc3Settings_framerateControl :: Lens.Lens' Vc3Settings (Prelude.Maybe Vc3FramerateControl)
vc3Settings_framerateControl :: (Maybe Vc3FramerateControl -> f (Maybe Vc3FramerateControl))
-> Vc3Settings -> f Vc3Settings
vc3Settings_framerateControl = (Vc3Settings -> Maybe Vc3FramerateControl)
-> (Vc3Settings -> Maybe Vc3FramerateControl -> Vc3Settings)
-> Lens
     Vc3Settings
     Vc3Settings
     (Maybe Vc3FramerateControl)
     (Maybe Vc3FramerateControl)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Vc3FramerateControl
framerateControl :: Maybe Vc3FramerateControl
$sel:framerateControl:Vc3Settings' :: Vc3Settings -> Maybe Vc3FramerateControl
framerateControl} -> Maybe Vc3FramerateControl
framerateControl) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Vc3FramerateControl
a -> Vc3Settings
s {$sel:framerateControl:Vc3Settings' :: Maybe Vc3FramerateControl
framerateControl = Maybe Vc3FramerateControl
a} :: Vc3Settings)

-- | When you use the API for transcode jobs that use frame rate conversion,
-- specify the frame rate as a fraction. For example, 24000 \/ 1001 =
-- 23.976 fps. Use FramerateNumerator to specify the numerator of this
-- fraction. In this example, use 24000 for the value of
-- FramerateNumerator. When you use the console for transcode jobs that use
-- frame rate conversion, provide the value as a decimal number for
-- Framerate. In this example, specify 23.976.
vc3Settings_framerateNumerator :: Lens.Lens' Vc3Settings (Prelude.Maybe Prelude.Natural)
vc3Settings_framerateNumerator :: (Maybe Natural -> f (Maybe Natural))
-> Vc3Settings -> f Vc3Settings
vc3Settings_framerateNumerator = (Vc3Settings -> Maybe Natural)
-> (Vc3Settings -> Maybe Natural -> Vc3Settings)
-> Lens Vc3Settings Vc3Settings (Maybe Natural) (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Vc3Settings' {Maybe Natural
framerateNumerator :: Maybe Natural
$sel:framerateNumerator:Vc3Settings' :: Vc3Settings -> Maybe Natural
framerateNumerator} -> Maybe Natural
framerateNumerator) (\s :: Vc3Settings
s@Vc3Settings' {} Maybe Natural
a -> Vc3Settings
s {$sel:framerateNumerator:Vc3Settings' :: Maybe Natural
framerateNumerator = Maybe Natural
a} :: Vc3Settings)

instance Core.FromJSON Vc3Settings where
  parseJSON :: Value -> Parser Vc3Settings
parseJSON =
    String
-> (Object -> Parser Vc3Settings) -> Value -> Parser Vc3Settings
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
      String
"Vc3Settings"
      ( \Object
x ->
          Maybe Vc3SlowPal
-> Maybe Vc3Telecine
-> Maybe Vc3InterlaceMode
-> Maybe Vc3ScanTypeConversionMode
-> Maybe Natural
-> Maybe Vc3Class
-> Maybe Vc3FramerateConversionAlgorithm
-> Maybe Vc3FramerateControl
-> Maybe Natural
-> Vc3Settings
Vc3Settings'
            (Maybe Vc3SlowPal
 -> Maybe Vc3Telecine
 -> Maybe Vc3InterlaceMode
 -> Maybe Vc3ScanTypeConversionMode
 -> Maybe Natural
 -> Maybe Vc3Class
 -> Maybe Vc3FramerateConversionAlgorithm
 -> Maybe Vc3FramerateControl
 -> Maybe Natural
 -> Vc3Settings)
-> Parser (Maybe Vc3SlowPal)
-> Parser
     (Maybe Vc3Telecine
      -> Maybe Vc3InterlaceMode
      -> Maybe Vc3ScanTypeConversionMode
      -> Maybe Natural
      -> Maybe Vc3Class
      -> Maybe Vc3FramerateConversionAlgorithm
      -> Maybe Vc3FramerateControl
      -> Maybe Natural
      -> Vc3Settings)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe Vc3SlowPal)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"slowPal")
            Parser
  (Maybe Vc3Telecine
   -> Maybe Vc3InterlaceMode
   -> Maybe Vc3ScanTypeConversionMode
   -> Maybe Natural
   -> Maybe Vc3Class
   -> Maybe Vc3FramerateConversionAlgorithm
   -> Maybe Vc3FramerateControl
   -> Maybe Natural
   -> Vc3Settings)
-> Parser (Maybe Vc3Telecine)
-> Parser
     (Maybe Vc3InterlaceMode
      -> Maybe Vc3ScanTypeConversionMode
      -> Maybe Natural
      -> Maybe Vc3Class
      -> Maybe Vc3FramerateConversionAlgorithm
      -> Maybe Vc3FramerateControl
      -> Maybe Natural
      -> Vc3Settings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Vc3Telecine)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"telecine")
            Parser
  (Maybe Vc3InterlaceMode
   -> Maybe Vc3ScanTypeConversionMode
   -> Maybe Natural
   -> Maybe Vc3Class
   -> Maybe Vc3FramerateConversionAlgorithm
   -> Maybe Vc3FramerateControl
   -> Maybe Natural
   -> Vc3Settings)
-> Parser (Maybe Vc3InterlaceMode)
-> Parser
     (Maybe Vc3ScanTypeConversionMode
      -> Maybe Natural
      -> Maybe Vc3Class
      -> Maybe Vc3FramerateConversionAlgorithm
      -> Maybe Vc3FramerateControl
      -> Maybe Natural
      -> Vc3Settings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Vc3InterlaceMode)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"interlaceMode")
            Parser
  (Maybe Vc3ScanTypeConversionMode
   -> Maybe Natural
   -> Maybe Vc3Class
   -> Maybe Vc3FramerateConversionAlgorithm
   -> Maybe Vc3FramerateControl
   -> Maybe Natural
   -> Vc3Settings)
-> Parser (Maybe Vc3ScanTypeConversionMode)
-> Parser
     (Maybe Natural
      -> Maybe Vc3Class
      -> Maybe Vc3FramerateConversionAlgorithm
      -> Maybe Vc3FramerateControl
      -> Maybe Natural
      -> Vc3Settings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Vc3ScanTypeConversionMode)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"scanTypeConversionMode")
            Parser
  (Maybe Natural
   -> Maybe Vc3Class
   -> Maybe Vc3FramerateConversionAlgorithm
   -> Maybe Vc3FramerateControl
   -> Maybe Natural
   -> Vc3Settings)
-> Parser (Maybe Natural)
-> Parser
     (Maybe Vc3Class
      -> Maybe Vc3FramerateConversionAlgorithm
      -> Maybe Vc3FramerateControl
      -> Maybe Natural
      -> Vc3Settings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Natural)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"framerateDenominator")
            Parser
  (Maybe Vc3Class
   -> Maybe Vc3FramerateConversionAlgorithm
   -> Maybe Vc3FramerateControl
   -> Maybe Natural
   -> Vc3Settings)
-> Parser (Maybe Vc3Class)
-> Parser
     (Maybe Vc3FramerateConversionAlgorithm
      -> Maybe Vc3FramerateControl -> Maybe Natural -> Vc3Settings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Vc3Class)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"vc3Class")
            Parser
  (Maybe Vc3FramerateConversionAlgorithm
   -> Maybe Vc3FramerateControl -> Maybe Natural -> Vc3Settings)
-> Parser (Maybe Vc3FramerateConversionAlgorithm)
-> Parser
     (Maybe Vc3FramerateControl -> Maybe Natural -> Vc3Settings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Vc3FramerateConversionAlgorithm)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"framerateConversionAlgorithm")
            Parser (Maybe Vc3FramerateControl -> Maybe Natural -> Vc3Settings)
-> Parser (Maybe Vc3FramerateControl)
-> Parser (Maybe Natural -> Vc3Settings)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Vc3FramerateControl)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"framerateControl")
            Parser (Maybe Natural -> Vc3Settings)
-> Parser (Maybe Natural) -> Parser Vc3Settings
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Natural)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"framerateNumerator")
      )

instance Prelude.Hashable Vc3Settings

instance Prelude.NFData Vc3Settings

instance Core.ToJSON Vc3Settings where
  toJSON :: Vc3Settings -> Value
toJSON Vc3Settings' {Maybe Natural
Maybe Vc3Class
Maybe Vc3FramerateControl
Maybe Vc3FramerateConversionAlgorithm
Maybe Vc3InterlaceMode
Maybe Vc3ScanTypeConversionMode
Maybe Vc3SlowPal
Maybe Vc3Telecine
framerateNumerator :: Maybe Natural
framerateControl :: Maybe Vc3FramerateControl
framerateConversionAlgorithm :: Maybe Vc3FramerateConversionAlgorithm
vc3Class :: Maybe Vc3Class
framerateDenominator :: Maybe Natural
scanTypeConversionMode :: Maybe Vc3ScanTypeConversionMode
interlaceMode :: Maybe Vc3InterlaceMode
telecine :: Maybe Vc3Telecine
slowPal :: Maybe Vc3SlowPal
$sel:framerateNumerator:Vc3Settings' :: Vc3Settings -> Maybe Natural
$sel:framerateControl:Vc3Settings' :: Vc3Settings -> Maybe Vc3FramerateControl
$sel:framerateConversionAlgorithm:Vc3Settings' :: Vc3Settings -> Maybe Vc3FramerateConversionAlgorithm
$sel:vc3Class:Vc3Settings' :: Vc3Settings -> Maybe Vc3Class
$sel:framerateDenominator:Vc3Settings' :: Vc3Settings -> Maybe Natural
$sel:scanTypeConversionMode:Vc3Settings' :: Vc3Settings -> Maybe Vc3ScanTypeConversionMode
$sel:interlaceMode:Vc3Settings' :: Vc3Settings -> Maybe Vc3InterlaceMode
$sel:telecine:Vc3Settings' :: Vc3Settings -> Maybe Vc3Telecine
$sel:slowPal:Vc3Settings' :: Vc3Settings -> Maybe Vc3SlowPal
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"slowPal" Text -> Vc3SlowPal -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Vc3SlowPal -> Pair) -> Maybe Vc3SlowPal -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Vc3SlowPal
slowPal,
            (Text
"telecine" Text -> Vc3Telecine -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Vc3Telecine -> Pair) -> Maybe Vc3Telecine -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Vc3Telecine
telecine,
            (Text
"interlaceMode" Text -> Vc3InterlaceMode -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Vc3InterlaceMode -> Pair) -> Maybe Vc3InterlaceMode -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Vc3InterlaceMode
interlaceMode,
            (Text
"scanTypeConversionMode" Text -> Vc3ScanTypeConversionMode -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Vc3ScanTypeConversionMode -> Pair)
-> Maybe Vc3ScanTypeConversionMode -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Vc3ScanTypeConversionMode
scanTypeConversionMode,
            (Text
"framerateDenominator" Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Natural -> Pair) -> Maybe Natural -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
framerateDenominator,
            (Text
"vc3Class" Text -> Vc3Class -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Vc3Class -> Pair) -> Maybe Vc3Class -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Vc3Class
vc3Class,
            (Text
"framerateConversionAlgorithm" Text -> Vc3FramerateConversionAlgorithm -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Vc3FramerateConversionAlgorithm -> Pair)
-> Maybe Vc3FramerateConversionAlgorithm -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Vc3FramerateConversionAlgorithm
framerateConversionAlgorithm,
            (Text
"framerateControl" Text -> Vc3FramerateControl -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Vc3FramerateControl -> Pair)
-> Maybe Vc3FramerateControl -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Vc3FramerateControl
framerateControl,
            (Text
"framerateNumerator" Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Natural -> Pair) -> Maybe Natural -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
framerateNumerator
          ]
      )