mirror of https://github.com/FFmpeg/FFmpeg.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
114 lines
3.4 KiB
114 lines
3.4 KiB
#!/usr/bin/env perl |
|
|
|
# Copyright (c) 2012 Nicolas George |
|
# |
|
# This file is part of FFmpeg. |
|
# |
|
# FFmpeg is free software; you can redistribute it and/or |
|
# modify it under the terms of the GNU Lesser General Public |
|
# License as published by the Free Software Foundation; either |
|
# version 2.1 of the License, or (at your option) any later version. |
|
# |
|
# FFmpeg is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
|
# See the GNU Lesser General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU Lesser General Public License |
|
# along with FFmpeg; if not, write to the Free Software Foundation, Inc., |
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
|
|
|
=head1 NAME |
|
|
|
make_chlayout_test - produce a multichannel test file with the channels |
|
clearly identified |
|
|
|
=head1 SYNOPSIS |
|
|
|
tools/make_chlayout_test I<channels> I<out_options> |
|
|
|
=head1 DESCRIPTION |
|
|
|
This script uses B<ffmpeg> and B<libflite> to produce a file with audio |
|
channels clearly identified by their name. The resulting file can be used to |
|
check that the layout and order of channels is correctly handled by a piece |
|
of software, either a part of B<FFmpeg> or not. |
|
|
|
I<channels> is a list of channels or channel layouts, separated by '+'. |
|
|
|
I<out_options> is a list of valid ffmpeg outout options, including the |
|
output file. |
|
|
|
Note that some output codecs or formats can not handle arbitrary channel |
|
layout. |
|
|
|
This script requires a B<ffmpeg> binary, either in the source tree or in the |
|
search path; it must have the flite audio source enabled. |
|
|
|
=head1 EXAMPLES |
|
|
|
Check that the speakers are correctly plugged: |
|
|
|
tools/make_chlayout_test FL+FR -f alsa default |
|
|
|
Produce a 5.1 FLAC file: |
|
|
|
tools/make_chlayout_test 5.1 surround.flac |
|
|
|
=cut |
|
|
|
use strict; |
|
use warnings; |
|
use Getopt::Long ":config" => "require_order"; |
|
use Pod::Usage; |
|
|
|
GetOptions ( |
|
"help|usage|?|h" => sub { pod2usage({ -verbose => 1, -exitval => 0 }) }, |
|
"manpage|m" => sub { pod2usage({ -verbose => 2, -exitval => 0 }) }, |
|
) and @ARGV >= 2 or pod2usage({ -verbose => 1, -exitval => 1 }); |
|
|
|
my $channels = shift @ARGV; |
|
my @out_options = @ARGV; |
|
|
|
my $ffmpeg = exists $ENV{FFMPEG} ? $ENV{FFMPEG} : |
|
$0 =~ /(.*)\// && -e "$1/../ffmpeg" ? "$1/../ffmpeg" : |
|
"ffmpeg"; |
|
|
|
my %channel_label_to_descr; |
|
my %layout_to_channels; |
|
|
|
{ |
|
open my $stderr, ">&STDERR"; |
|
open STDERR, ">", "/dev/null"; |
|
open my $f, "-|", $ffmpeg, "-layouts" or die "$ffmpeg: $!\n"; |
|
open STDERR, ">&", $stderr; |
|
while (<$f>) { |
|
chomp; |
|
next if /^NAME/ or /:$/ or /^$/; # skip headings |
|
my ($name, $descr) = split " ", $_, 2; |
|
next unless $descr; |
|
if ($descr =~ /^[[:upper:]]+(?:\+[[:upper:]]+)*$/) { |
|
$layout_to_channels{$name} = [ split /\+/, $descr ]; |
|
} else { |
|
$channel_label_to_descr{$name} = $descr; |
|
} |
|
} |
|
} |
|
|
|
my @channels = map { @{$layout_to_channels{$_} // [$_]} } split /\+/, $channels; |
|
|
|
my $layout = join "+", @channels; |
|
my $graph = ""; |
|
my $concat_in = ""; |
|
for my $i (0 .. $#channels) { |
|
my $label = $channels[$i]; |
|
my $descr = $channel_label_to_descr{$label} |
|
or die "Channel $label not found\n"; |
|
$graph .= "flite=text='${descr}', aformat=channel_layouts=mono, " . |
|
"pan=${layout}:${label}=c0 [ch$i] ;\n"; |
|
$concat_in .= "[ch$i] "; |
|
} |
|
$graph .= "${concat_in}concat=v=0:a=1:n=" . scalar(@channels); |
|
|
|
exec $ffmpeg, "-f", "lavfi", "-i", $graph, @out_options |
|
or die "$ffmpeg: $!\n";
|
|
|