|
 |
1ab173 |
diff -up netpbm-10.47.09/editor/ppmfade.ppmfadeusage netpbm-10.47.09/editor/ppmfade
|
|
|
1ab173 |
--- netpbm-10.47.09/editor/ppmfade.ppmfadeusage 2010-02-17 11:22:02.000000000 +0100
|
|
|
1ab173 |
+++ netpbm-10.47.09/editor/ppmfade 2010-02-17 11:27:29.000000000 +0100
|
|
|
1ab173 |
@@ -34,7 +34,6 @@ my $base_name = "fade"; # default base
|
|
|
1ab173 |
my $image = "ppm"; # default output storage format
|
|
|
1ab173 |
my $mode = $SPREAD; # default fading mode
|
|
|
1ab173 |
|
|
|
1ab173 |
-
|
|
|
1ab173 |
my $n; # argument number
|
|
|
1ab173 |
|
|
|
1ab173 |
for ($n = 0; $n < @ARGV; $n++) {
|
|
|
1ab173 |
@@ -44,7 +43,7 @@ for ($n = 0; $n < @ARGV; $n++) {
|
|
|
1ab173 |
if (-e $first_file) {
|
|
|
1ab173 |
} else {
|
|
|
1ab173 |
print "I can't find first file '$first_file'\n";
|
|
|
1ab173 |
- exit 20;
|
|
|
1ab173 |
+ exit 1;
|
|
|
1ab173 |
}
|
|
|
1ab173 |
} elsif ($ARGV[$n] eq "-l") {
|
|
|
1ab173 |
$n++;
|
|
|
1ab173 |
@@ -52,7 +51,7 @@ for ($n = 0; $n < @ARGV; $n++) {
|
|
|
1ab173 |
if (-e $last_file) {
|
|
|
1ab173 |
} else {
|
|
|
1ab173 |
print "I can't find last file '$last_file'\n";
|
|
|
1ab173 |
- exit 20;
|
|
|
1ab173 |
+ exit 1;
|
|
|
1ab173 |
}
|
|
|
1ab173 |
} elsif ($ARGV[$n] eq "-base") {
|
|
|
1ab173 |
$n++;
|
|
|
1ab173 |
@@ -73,11 +72,12 @@ for ($n = 0; $n < @ARGV; $n++) {
|
|
|
1ab173 |
$mode = $BLOCK;
|
|
|
1ab173 |
} elsif ("$ARGV[$n]" eq "-mix") {
|
|
|
1ab173 |
$mode = $MIX;
|
|
|
1ab173 |
- } elsif ($ARGV[$n] eq "-help" || $ARGV[$n] eq "-h") {
|
|
|
1ab173 |
- usage();
|
|
|
1ab173 |
+ } elsif ($ARGV[$n] eq "-help" || $ARGV[$n] eq "--help" || $ARGV[$n] eq "-h") {
|
|
|
1ab173 |
+ print "ppmfade: Use 'man ppmfade' for help.\n";
|
|
|
1ab173 |
+ exit 1;
|
|
|
1ab173 |
} else {
|
|
|
1ab173 |
print "Unknown argument: $ARGV[$n]\n";
|
|
|
1ab173 |
- exit 100;
|
|
|
1ab173 |
+ exit 1;
|
|
|
1ab173 |
}
|
|
|
1ab173 |
}
|
|
|
1ab173 |
#
|
|
|
1ab173 |
@@ -96,18 +96,18 @@ if ($first_file ne "undefined") {
|
|
|
1ab173 |
$width = $1; $height = $2;
|
|
|
1ab173 |
} else {
|
|
|
1ab173 |
print("Unrecognized results from pnmfile on $first_file.\n");
|
|
|
1ab173 |
- exit(50);
|
|
|
1ab173 |
+ exit 1;
|
|
|
1ab173 |
}
|
|
|
1ab173 |
} elsif ($last_file ne "undefined") {
|
|
|
1ab173 |
if ((`pnmfile $last_file` =~ m{\b(\d+)\sby\s(\d+)} )) {
|
|
|
1ab173 |
$width = $1; $height = $2;
|
|
|
1ab173 |
} else {
|
|
|
1ab173 |
print("Unrecognized results from pnmfile on $first_file.\n");
|
|
|
1ab173 |
- exit(50);
|
|
|
1ab173 |
+ exit 1;
|
|
|
1ab173 |
}
|
|
|
1ab173 |
} else {
|
|
|
1ab173 |
print("ppmfade: You must specify -f or -l (or both)\n");
|
|
|
1ab173 |
- exit(90);
|
|
|
1ab173 |
+ exit 1;
|
|
|
1ab173 |
}
|
|
|
1ab173 |
|
|
|
1ab173 |
print("Frames are " . $width . "W x " . $height . "H\n");
|