nb0yjxtr/ffmpeg-mythtv
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

change the default to #t for scale?

Browse Source 
in ffmpeg-split+scale+transcode-recording
This commit is contained in:
Leo Butler 2022-05-12 11:40:23 -05:00
parent 19205b6847
commit 292714e85f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ffmpeg-myth.scm
View File

@ -281,7 +281,7 @@
(concat (simple-format #f "concat=n=~a:v=1:a=~a [out0]" n (length aidx))) (concat (simple-format #f "concat=n=~a:v=1:a=~a [out0]" n (length aidx)))
(mappings (lambda (i) (simple-format #f "-map '[out~a]'" i)))) (mappings (lambda (i) (simple-format #f "-map '[out~a]'" i))))
(string-join (append (list "'") (iter scale-flt rtn 0 '()) (iter av-ptr rtn 0 '()) (list concat) (iter out-ptr aidx 1 '()) (list "' ") (iter mappings (cons 0 aidx) 0 '()))))) (string-join (append (list "'") (iter scale-flt rtn 0 '()) (iter av-ptr rtn 0 '()) (list concat) (iter out-ptr aidx 1 '()) (list "' ") (iter mappings (cons 0 aidx) 0 '())))))
(define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #f)) (define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #t))
(let* ((basename (recording-basename rec)) (let* ((basename (recording-basename rec))
(rootname+ext (string-split basename #\.)) (rootname+ext (string-split basename #\.))
(rootname (car rootname+ext)) (rootname (car rootname+ext))