#!perl #
# # Perl script to convert PostScript snapshots into PCX # # Version: 5.20 # Date: 1998, October 30 # # Usage: # perl fdpcx.pl SEP # Parameters: # SEP... Name of the history file. # Parameters read from the history file: # N1=integer... Number of gridpoints (pixels) in horizotal direction. # Default: N1=1 # N3=integer... Number of gridpoints (pixels) in vertical direction. # Default: N3=1 # SNAPS=string... Mask for the names of PostScript snapshot files. # Default: SNAPS='fd00*.ps' # Include files required: # sep.pl # Programs required: # gs # # ====================================================================== # Main program 'fdpcx.pl': # ~~~~~~~~~~~~~~~~~~~~~~~~ require 'sep.pl'; $SEP="$ARGV[0]"; # &RSEP1($SEP); &RSEP3('N1',$N1,1); &RSEP3('N3',$N3,1); &RSEP3('SNAPS',$SNAPS,'fd00*.ps'); # foreach $SNAP (<${SNAPS}>) { $SNAP=~s/.ps//; print "FDPCX: converting $SNAP\n"; open(LU,"|gs -sDEVICE=pcx24b -r72 -g${N1}x${N3} -dNOPAUSE". " -sOutputFile=$SNAP.pcx $SNAP.ps -c quit"); close(LU) || die "Error"; } print "FDPCX: Done.\n"; # ====================================================================== 1; #