#! /bin/sh
# file: lwcat		P. Albrecht and G. Moody
#			Last revised:	17 October 2002
#
# Add prolog and epilog to lwplt output to make a complete PostScript document
#
# Usage:
#   lwcat [OPTION ...] [FILE ...]
# Use the FILE argument to specify the name(s) of the input file(s), which
# should have been created by lwplt (i.e., plt -T lw). If no FILE is specified,
# lwcat reads its standard input.  OPTIONs and FILEs may be given in any order,
# but all options are interpreted before any files are processed.
#
# By default, lwcat spools its output directly to the default printer via lpr.
# Command-line options may be given to modify this behavior:
#  -no	spool the output, but don't eject the page (use this option if you
#	wish to overlay the output with additional material produced by another
#	program, such as troff)
#  -ps  write PostScript to the standard output (do not spool)
#  -psv collect PostScript in a temporary file and view with gv (ghostscript)
#  -gv  same as -psv
#  -eps	write EPSF (encapsulated PostScript format) to the standard output
#	(do not spool)
#  -pdf write PDF (portable document format) to the standard output (do not
#       spool)
#  -png write PNG (portable network graphics) format to the standard output
#	(do not spool)
# Note that the output produced using -eps is only a close approximation to
# EPSF;  it is acceptable to LaTeX's epsfig package, at least.
#
# By default, the output appears within a 6.75x6 inch window, the lower
# left corner of which is positioned 1 inch from the left edge and 3.5 inches
# from the bottom edge of the page.  Additional command-line options may be
# used to modify the size and location of the output:
#  -landscape   use landscape mode (rotate plot 90 degrees counterclockwise)
#  -sq	plot in a 6x6 inch window, 1.25 inches from the left edge and 3.5
#	inches from the bottom edge
#  -t   plot in a 6.25x6.25 inch window, positioned as for -sq
#  -t2  plot in a 6.25x4 inch window, positioned as for -sq
#  -CinC plot in a 4.75x3.15 inch window, positioned as for -sq
#  -sq2	plot in a 4.5x5.5 inch window, 2.5 inches from the left and bottom
#	edges
#  -v   plot in a 7x9.5 inch window, 0.75 inches from the left and bottom edges
#  -v2  plot in a 7x8.5 inch window, positioned as for -v
#  -va4 plot in a 190x275 mm window, centered on an A4 sheet
# Other window options can be easily added by adding additional WDEF, LDEF,
# and H settings as shown below.  WDEF is a string containing 5 numbers
# separated by spaces.  The first number is a font scaling factor.  The next
# two numbers are the X and Y coordinates (in inches) of the lower left corner
# of the window, and the last two numbers are the X and Y coordinates of the
# upper right corner.  LDEF is defined in the same way as WDEF, but is used
# only when making landscape plots;  the X and Y coordinates are those on the
# rotated, translated page.  H is used together with LDEF;  it is the
# translation (the distance in inches) between the origins of the unrotated
# and rotated page coordinate systems (usually the length of the short edge of
# the sheet).
#
# By default, lwcat prints a single copy.  Multiple copies can be produced
# using the options -c2, -c3, -c4, -c5, or -c6;  this will almost always be
# much faster than rerunning lwcat, since the document is downloaded and
# rasterized only once when using these options.  To print more than 6 copies,
# repeat or combine these options as needed, e.g., to print ten copies, use
#  lwcat -c4 -c6 ...
# (or lwcat -c5 -c5, etc.) These options are ignored if EPSF output has been
# selected.

# `make' inserts the correct directory name in PLTPRO during installation.
PLTPRO=${PLTPRO-/usr/local/lib/ps/plt.pro}

# Send the output to 'gvcat' if running in a Cygwin terminal emulator, or to
# 'lpr' otherwise (command-line options may override this, see below).
if [ x$TERM = xcygwin ]
then SPOOLER=gvcat
else SPOOLER=lpr
fi

C=""

WDEF=""
FILES=""
EPSF=""
LANDSCAPE=""
LDEF="0.90 0.75 0.75 10.25  7.75"
H=8.5

# Interpret command-line arguments
while [ "$1" != "" ]
do
OPT="$1"
shift
case "$OPT" in
# Process spooling and format options
	-no)	C="";;
	-eps)	SPOOLER=cat; EPSF=yes;;
	-pdf)	SPOOLER="epstopdf --filter"; EPSF=yes;;
	-png)	SPOOLER=pltpng; EPSF=yes;;
	-ps)	SPOOLER=cat;;
	-psv)   SPOOLER=gvcat;;
	-gv)    SPOOLER=gvcat;;
# Process window options
	-sq)	WDEF="0.80 1.25 3.50  7.25  9.50";
		LDEF="0.80 3.50 1.25  9.50  7.25"; H=8 ;;
	-sq2)	WDEF="0.55 2.50 2.50  7.00  8.00";
		LDEF="0.55 2.50 2.50  8.00  7.00"; H=7.75 ;;
	-t)	WDEF="0.80 1.25 3.50  7.50  9.50";
		LDEF="0.80 3.50 1.25  9.50  7.50"; H=8.25 ;;
	-t2)	WDEF="0.80 1.25 3.50  7.50  7.50";
		LDEF="0.80 3.50 1.25  7.50  7.50"; H=8.25 ;;
	-v)	WDEF="0.90 0.75 0.75  7.75 10.25";
		LDEF="0.90 0.75 0.75 10.25  7.75"; H=8.5 ;;
	-v2)	WDEF="0.90 0.75 0.75  7.75  9.25";
	        LDEF="0.90 0.75 0.75  9.25  7.75"; H=8.5 ;;
	-va4)   WDEF="0.90 0.40 0.40  7.87 11.30";
	        LDEF="0.90 0.40 0.40 11.30  7.87"; H=8.22 ;;
	-CinC)	WDEF="0.60 1.25 3.50  6.00  6.65";
		LDEF="0.60 3.50 1.25  6.65  6.00"; H=6.75 ;;
# Add other window options here (see comments on WDEF above)
	-landscape)     LANDSCAPE=yes ;;
# Process multi-copy options
	-c2)	C="copypage $C ";;
	-c3)	C="copypage copypage $C " ;;
	-c4)	C="copypage copypage copypage $C" ;;
	-c5)	C="copypage copypage copypage copypage $C" ;;
	-c6)	C="copypage copypage copypage copypage copypage $C" ;;
# Complain about undefined options
	-*)	echo "Argument error: $OPT" >/dev/tty; exit ;;
# Collect input file names
	*)	FILES="$FILES $OPT";
esac
done

# Generate output
(
if [ "$EPSF" != "" ]
then
	# disable any multi-copy options selected
	C=showpage
	# Generate EPS header, including bounding box
	makeplthead $WDEF
else
        C="$C showpage"
fi
cat $PLTPRO

if [ "$LANDSCAPE" != "" ]
then
       WDEF="$LDEF"
       echo "/LS      { 90 rotate 0 $H 72 mul neg translate} def"
fi

if [ "$WDEF" != "" ]
then
	echo "/WSUBST { pop pop pop pop pop $WDEF} def"
fi

if [ "$FILES" = "" ]
then	FILES="-"
fi
for i in $FILES
do
	echo INIT
	cat $i
done

echo $C CLOSE
if [ "$EPSF" != "" ]
then
	# Append EPS trailer
	echo "%%EOF"
        echo "%%EndDocument"
fi
) | $SPOOLER