annotate ffmpeg/tools/make_chlayout_test @ 13:844d341cf643 tip

Back up before ISMIR
author Yading Song <yading.song@eecs.qmul.ac.uk>
date Thu, 31 Oct 2013 13:17:06 +0000
parents f445c3017523
children
rev   line source
yading@11 1 #!/usr/bin/env perl
yading@11 2
yading@11 3 # Copyright (c) 2012 Nicolas George
yading@11 4 #
yading@11 5 # This file is part of FFmpeg.
yading@11 6 #
yading@11 7 # FFmpeg is free software; you can redistribute it and/or
yading@11 8 # modify it under the terms of the GNU Lesser General Public
yading@11 9 # License as published by the Free Software Foundation; either
yading@11 10 # version 2.1 of the License, or (at your option) any later version.
yading@11 11 #
yading@11 12 # FFmpeg is distributed in the hope that it will be useful,
yading@11 13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
yading@11 14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
yading@11 15 # See the GNU Lesser General Public License for more details.
yading@11 16 #
yading@11 17 # You should have received a copy of the GNU Lesser General Public License
yading@11 18 # along with FFmpeg; if not, write to the Free Software Foundation, Inc.,
yading@11 19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
yading@11 20
yading@11 21 =head1 NAME
yading@11 22
yading@11 23 make_chlayout_test - produce a multichannel test file with the channels
yading@11 24 clearly identified
yading@11 25
yading@11 26 =head1 SYNOPSIS
yading@11 27
yading@11 28 tools/make_chlayout_test I<channels> I<out_options>
yading@11 29
yading@11 30 =head1 DESCRIPTION
yading@11 31
yading@11 32 This script uses B<ffmpeg> and B<libflite> to produce a file with audio
yading@11 33 channels clearly identified by their name. The resulting file can be used to
yading@11 34 check that the layout and order of channels is correctly handled by a piece
yading@11 35 of software, either a part of B<FFmpeg> or not.
yading@11 36
yading@11 37 I<channels> is a list of channels or channel layouts, separated by '+'.
yading@11 38
yading@11 39 I<out_options> is a list of valid ffmpeg outout options, including the
yading@11 40 output file.
yading@11 41
yading@11 42 Note that some output codecs or formats can not handle arbitrary channel
yading@11 43 layout.
yading@11 44
yading@11 45 This script requires a B<ffmpeg> binary, either in the source tree or in the
yading@11 46 search path; it must have the flite audio source enabled.
yading@11 47
yading@11 48 =head1 EXAMPLES
yading@11 49
yading@11 50 Check that the speakers are correctly plugged:
yading@11 51
yading@11 52 tools/make_chlayout_test FL+FR -f alsa default
yading@11 53
yading@11 54 Produce a 5.1 FLAC file:
yading@11 55
yading@11 56 tools/make_chlayout_test 5.1 surround.flac
yading@11 57
yading@11 58 =cut
yading@11 59
yading@11 60 use strict;
yading@11 61 use warnings;
yading@11 62 use Getopt::Long ":config" => "require_order";
yading@11 63 use Pod::Usage;
yading@11 64
yading@11 65 GetOptions (
yading@11 66 "help|usage|?|h" => sub { pod2usage({ -verbose => 1, -exitval => 0 }) },
yading@11 67 "manpage|m" => sub { pod2usage({ -verbose => 2, -exitval => 0 }) },
yading@11 68 ) and @ARGV >= 2 or pod2usage({ -verbose => 1, -exitval => 1 });
yading@11 69
yading@11 70 my $channels = shift @ARGV;
yading@11 71 my @out_options = @ARGV;
yading@11 72
yading@11 73 my $ffmpeg = exists $ENV{FFMPEG} ? $ENV{FFMPEG} :
yading@11 74 $0 =~ /(.*)\// && -e "$1/../ffmpeg" ? "$1/../ffmpeg" :
yading@11 75 "ffmpeg";
yading@11 76
yading@11 77 my %channel_label_to_descr;
yading@11 78 my %layout_to_channels;
yading@11 79
yading@11 80 {
yading@11 81 open my $stderr, ">&STDERR";
yading@11 82 open STDERR, ">", "/dev/null";
yading@11 83 open my $f, "-|", $ffmpeg, "-layouts" or die "$ffmpeg: $!\n";
yading@11 84 open STDERR, ">&", $stderr;
yading@11 85 while (<$f>) {
yading@11 86 chomp;
yading@11 87 next if /^NAME/ or /:$/ or /^$/; # skip headings
yading@11 88 my ($name, $descr) = split " ", $_, 2;
yading@11 89 next unless $descr;
yading@11 90 if ($descr =~ /^[[:upper:]]+(?:\+[[:upper:]]+)*$/) {
yading@11 91 $layout_to_channels{$name} = [ split /\+/, $descr ];
yading@11 92 } else {
yading@11 93 $channel_label_to_descr{$name} = $descr;
yading@11 94 }
yading@11 95 }
yading@11 96 }
yading@11 97
yading@11 98 my @channels = map { @{$layout_to_channels{$_} // [$_]} } split /\+/, $channels;
yading@11 99
yading@11 100 my $layout = join "+", @channels;
yading@11 101 my $graph = "";
yading@11 102 my $concat_in = "";
yading@11 103 for my $i (0 .. $#channels) {
yading@11 104 my $label = $channels[$i];
yading@11 105 my $descr = $channel_label_to_descr{$label}
yading@11 106 or die "Channel $label not found\n";
yading@11 107 $graph .= "flite=text='${descr}', aformat=channel_layouts=mono, " .
yading@11 108 "pan=${layout}:${label}=c0 [ch$i] ;\n";
yading@11 109 $concat_in .= "[ch$i] ";
yading@11 110 }
yading@11 111 $graph .= "${concat_in}concat=v=0:a=1:n=" . scalar(@channels);
yading@11 112
yading@11 113 exec $ffmpeg, "-f", "lavfi", "-i", $graph, @out_options
yading@11 114 or die "$ffmpeg: $!\n";