#!perl #
# # Perl script to convert PCX snapshots into GIF (just for MS-DOS!) # # Version: 5.20 # Date: 1998, October 8 # # Usage: # perl fdgifdos.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: # display # gifmerge # # ====================================================================== # Main program 'fdgifdos.pl': # ~~~~~~~~~~~~~~~~~~~~~~~~~~~ require 'sep.pl'; $SEP="$ARGV[0]"; # &RSEP1($SEP); &RSEP3('SNAPS',$SNAPS,'fd00*.ps'); &RSEP3('MOVIE',$MOVIE,'fd.gif'); # unlink(<${SNAPS}>); # $SNAPS=~s/.ps//; open(LU,"|display -b gif $SNAPS.pcx ."); close(LU) || die "Error"; # # Merging GIF files into one animated GIF file: print "creating '$MOVIE'..."; open(LU,"|gifmerge -20 -l0 $SNAPS.gif>$MOVIE"); close(LU) || die "Error"; print "\nFDGIFDOS: Done.\n"; # ====================================================================== 1; #