From 4e5f07abc5cdc1f076eb8713c75823fd2097d911 Mon Sep 17 00:00:00 2001
From: giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8>
Date: Sat, 27 Jun 2009 21:05:14 +0000
Subject: Release 10.47.00: rebase to trunk

git-svn-id: http://svn.code.sf.net/p/netpbm/code/advanced@944 9d0c8265-081b-0410-96cb-a4ca84ce46f8
---
 editor/ppmfade | 22 ++--------------------
 1 file changed, 2 insertions(+), 20 deletions(-)

(limited to 'editor/ppmfade')

diff --git a/editor/ppmfade b/editor/ppmfade
index 9bd122e9..fbc62968 100755
--- a/editor/ppmfade
+++ b/editor/ppmfade
@@ -32,14 +32,7 @@ my $last_file = "undefined";
 my $base_name = "fade";		# default base name of output files
 my $image = "ppm";		# default output storage format
 my $mode = $SPREAD;		# default fading mode
-#
-#  Check those command line args.
-#
-sub usage();
 
-if (@ARGV == 0) {
-    usage();
-}
 
 my $n;  # argument number
 
@@ -49,7 +42,7 @@ for ($n = 0; $n < @ARGV; $n++) {
         $first_file = $ARGV[$n];
         if (-e $first_file) {
         } else {
-            print "I can't find $first_file\n";
+            print "I can't find first file '$first_file'\n";
             exit 20;
         }
     } elsif ($ARGV[$n] eq "-l") {
@@ -57,7 +50,7 @@ for ($n = 0; $n < @ARGV; $n++) {
         $last_file = $ARGV[$n];
         if (-e $last_file) {
         } else {
-            print "I can't find $last_file\n";
+            print "I can't find last file '$last_file'\n";
             exit 20;
         }
     } elsif ($ARGV[$n] eq "-base") {
@@ -298,14 +291,3 @@ for ($i = 1; $i <= $nframes; $i++) {
 system("rm junk*$$.ppm");
 
 exit(0);
-
-
-
-sub usage() {
-   print "Usage: ppmfade [-f first_file] [-l last_file]\n";
-   print "               [-spread|-relief|-oil|-edge|-bentley|-block]\n";
-   print "               [-base basename]\n";
-   print "Notes: Default base: fade\n";
-   print "       The resulting image files will be named fade.NNNN.ppm.\n";
-   exit(100);
-}
-- 
cgit 1.4.1