Commit d80426a3 authored by Daniel Firth's avatar Daniel Firth
Browse files

Support both Abs and Rel

No related merge requests found
Pipeline #128 failed with stages
in 1 second
# Changelog for polysemy-video
## v0.0.1.0
## v0.1.1.0
* Support both `Abs` and `Rel`.
## v0.1.0.0
* Experimental DSL and interpreter.
name: polysemy-video
version: 0.1.0.1
version: 0.1.1.0
git: "https://gitlab.com/homotopic-tech/polysemy-video"
license: MIT
author: "Daniel Firth"
......
......@@ -5,7 +5,7 @@ cabal-version: 1.12
-- see: https://github.com/sol/hpack
name: polysemy-video
version: 0.1.0.0
version: 0.1.0.1
description: Experimental video processing DSL for polysemy.
category: video polysemy
author: Daniel Firth
......
......@@ -41,9 +41,9 @@ data Range = Range
-- |
data ClipProcess m a where
ExtractAudio :: Path Rel File -> [(Range, Path Rel File)] -> ClipProcess m ()
ExtractClips :: Path Rel File -> [(Range, Path Rel File)] -> ClipProcess m ()
ExtractFrames :: Path Rel File -> [(Time, Path Rel File)] -> ClipProcess m ()
ExtractAudio :: Path b File -> [(Range, Path b' File)] -> ClipProcess m ()
ExtractClips :: Path b File -> [(Range, Path b' File)] -> ClipProcess m ()
ExtractFrames :: Path b File -> [(Time, Path b' File)] -> ClipProcess m ()
makeSem ''ClipProcess
......@@ -56,15 +56,15 @@ seekFF :: Time -> [Text]
seekFF t = ["-ss", timeFF t]
-- | "-ss <x> -to <y> <output>".
rangeFF :: Range -> Path Rel File -> [Text]
rangeFF :: Range -> Path b File -> [Text]
rangeFF (Range f t) x = seekFF f ++ ["-to", timeFF t, toFilePathText x]
-- | "-ss <x> -vframes 1 <output>"
frameFF :: Time -> Path Rel File -> [Text]
frameFF :: Time -> Path b File -> [Text]
frameFF t x = seekFF t ++ ["-vframes", "1", toFilePathText x]
-- | "-i <output>"
inputFF :: Path Rel File -> [Text]
inputFF :: Path b File -> [Text]
inputFF x = ["-i", toFilePathText x]
-- | "ffmpeg -y" followed by some arguments.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment