annotate TOOLS/menc2pass @ 7017:f310b4e5c94b

Applied patch by Remi Guyomarch <rguyom at pobox com>. 1) document vb_qoffset instead of two times vb_qfactor 2) document "gray" and "mpeg_quant" 3) add 1 space to line-up with other options
author diego
date Thu, 15 Aug 2002 22:43:27 +0000
parents 7a5021d0a2de
children ee0c2391e45d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3024
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
1 #!/usr/bin/perl -w
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
2 # Helper script to ease MEncoder two pass encoding
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
3 # Copyleft 2001 by Felix Buenemann <atmosfear@users.sourceforge.net>
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
4 # This files comes udner GPL, see http://www.gnu.org/copyleft/gpl.html for more
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
5 # information on it's licensing.
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
6 use strict;
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
7 my $mencoder="mencoder"; # Path to MEncoder (including binary name)
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
8
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
9 die <<"EOF" unless @ARGV;
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
10 Menc2Pass: No arguments given!
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
11 Please give all usual encoding parameters you would give to mencoder, but leave
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
12 away the -pass switch.
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
13 EOF
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
14
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
15 for(my $i=1; $i<=2; $i++) {
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
16 system($mencoder,@ARGV," -pass $i")
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
17 and die "MEncoder pass $i failed!\n"
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
18 }
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
19