Film lauter

#!/usr/bin/env tclkit
# Film lauter
foreach in $argv {
  set out [regsub {\.[^.]*$} $in " lauter.avi"]
  puts "[list $in] -> [list $out]"
  catch {
    exec ffmpeg -i "$in" -vol 2048 -vcodec copy -acodec mp2 -ac 2 "$out"
  }
}

11.3.2022