#!perl #
# # Perl script to convert PCX snapshots into GIF (just for Linux!) # # Version: 5.20 # Date: 1998, October 30 # # Usage: # perl fdgiflux.pl SEP # Parameters: # SEP... Name of the history file. # Parameters read from the history file: # SNAPS=string... Mask for the names of PostScript snapshot files. # Default: SNAPS='fd00*.ps' # MOVIE=string... Names of the animated GIF file. # Default: MOVIE='fd.gif' # Include files required: # sep.pl # Programs required: # convert # gifmerge # # ====================================================================== # Main program 'fdgiflux.pl': # ~~~~~~~~~~~~~~~~~~~~~~~~~~~ require 'sep.pl'; $SEP="$ARGV[0]"; # &RSEP1($SEP); &RSEP3('SNAPS',$SNAPS,'fd00*.ps'); &RSEP3('MOVIE',$MOVIE,'fd.gif'); # foreach $SNAP (<${SNAPS}>) { $SNAP=~s/.ps//; open(LU,"|convert -verbose $SNAP.pcx $SNAP.gif"); close(LU) || die "Error"; } # # Merging GIF files into one animated GIF file: $SNAPS=~s/.ps//; open(LU,"|gifmerge -20 -l0 $SNAPS.gif>$MOVIE"); close(LU) || die "Error"; print "\nFDGIFLUX: Done.\n"; # ====================================================================== 1; #