#!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;                                                               #