X-Git-Url: https://code.delx.au/transcoding/blobdiff_plain/ef14618c34c9e025a97b374db7324763f77f0817..0e73df4a0a1266c75f2a83b5b5262d7823d4e28e:/fix-pal-speedup diff --git a/fix-pal-speedup b/fix-pal-speedup index 3ac096e..74681c1 100755 --- a/fix-pal-speedup +++ b/fix-pal-speedup @@ -3,11 +3,11 @@ # Many DVDs released in Australia are sped up from 24fps to 25fps. # This script reverses the procedure, correcting the audio pitch. # The video framerate is adjusted without re-encoding. The audio is slowed and -# normalised then re-encoded as mp3. +# volume normalised then re-encoded as mp3. if [ -z "$1" -o -z "$2" ]; then - echo "Usage: $0 destdir infile [infile ...]" - exit 1 + echo "Usage: $0 destdir infile [infile ...]" + exit 1 fi FORCEFPS="24" @@ -17,22 +17,20 @@ destdir="$1" shift for infile in "$@"; do - outfile="$destdir/$(basename "$infile")" - tmpdir="$(tempfile -p 'pal-')" - rm "$tmpdir" - - if [ -f "$outfile" ]; then - echo "Not overwriting $outfile" - continue - fi - - set -x - mkdir "$tmpdir" - mplayer -novideo -ao pcm:file="${tmpdir}/audio.wav" -vo null "$infile" - sox "${tmpdir}/audio.wav" "${tmpdir}/audio-fixed.wav" speed "${SLOWDOWN}" gain -n - lame --preset standard "${tmpdir}/audio-fixed.wav" "${tmpdir}/audio.mp3" - mkvmerge -o "${outfile}" --default-duration "1:${FORCEFPS}fps" --no-audio "$infile" "${tmpdir}/audio.mp3" - - rm -rf "$tmpdir" + outfile="$destdir/$(basename "$infile")" + + if [ -f "$outfile" ]; then + echo "Not overwriting $outfile" + continue + fi + + set -x + tmpdir="$(mktemp -d "${TMPDIR:-/var/tmp}/pal-XXXXXXXX")" + mplayer -novideo -ao pcm:file="${tmpdir}/audio.wav" -vo null "$infile" + sox "${tmpdir}/audio.wav" "${tmpdir}/audio-fixed.wav" speed "${SLOWDOWN}" gain -n + lame --preset standard "${tmpdir}/audio-fixed.wav" "${tmpdir}/audio.mp3" + mkvmerge -o "${outfile}" --default-duration "1:${FORCEFPS}fps" --no-audio "$infile" "${tmpdir}/audio.mp3" + + rm -rf "$tmpdir" done