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";
|