Cut.CutVideo

Extract sounded parts, and combine again

Documentation

extract :: ListenCutOptions -> FilePath -> [Interval Sound] -> IO ()

data Interval e

I think we can only detect silence with ffmpeg, so we flip the silent to sounded intervals, and : if x indicates silence: silence: xxx_xxxxxxx__xxxxxxx sounded: _xxx_xx__xxxx_xx

Constructors

Interval

Fields

• interval_start :: Double
• interval_end :: Double
• interval_duration :: Double
• interval_input_start :: Text
• interval_input_end :: Text

Instances

Show (Interval e)

Defined in Cut.Analyze

Methods

showsPrec :: Int -> Interval e -> ShowS

show :: Interval e -> String

showList :: [Interval e] -> ShowS

Generic (Interval e)

Defined in Cut.Analyze

Associated Types

type Rep (Interval e) :: Type -> Type

Methods

from :: Interval e -> Rep (Interval e) x

to :: Rep (Interval e) x -> Interval e

type Rep (Interval e)

Defined in Cut.Analyze

type Rep (Interval e) = D1 ('MetaData "Interval" "Cut.Analyze" "cut-the-crap-2.3.1-inplace" 'False) (C1 ('MetaCons "Interval" 'PrefixI 'True) ((S1 ('MetaSel ('Just "interval_start") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Double) :*: S1 ('MetaSel ('Just "interval_end") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Double)) :*: (S1 ('MetaSel ('Just "interval_duration") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Double) :*: (S1 ('MetaSel ('Just "interval_input_start") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "interval_input_end") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))

data Silent

data Sound

combine :: FilePath -> Sh ()

combineOutput :: FilePath

combineDir :: ListenCutOptions -> FilePath -> [Interval Sound] -> Sh ()