#! /bin/sh
# file: lwcat P. Albrecht and G. Moody
# Last revised: 25 March 2009
#
# 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 left and bottom edges
# -v plot in a 7x9.5 inch window, 0.75 inches from 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
# -full plot in a 7.5x10 inch window, centered on an 8.5x11 inch sheet
# -slide plot in a 7.5x5 inch window, 0.5 inches from the left edge and 3
# inches from the bottom edge (3:2 aspect ratio, as for 35mm slides)
# -screen plot in a 7.5x5.625 inch window, 0.5 inches from the left edge and
# 2.375 inches from the bottom edge (4:3 screen aspect ratio)
# -golden plot in a 7.5x4.635 inch window, 0.5 inches from the left edge and
# 3.365 inches from the bottom edge, approx. the "golden ratio",
# (1+sqrt(5))/2 = 1.61803...
# -strip plot in a 8x0.8 inch window
# -custom plot in a custom window (see below)
# 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).
#
# The -custom option reads up to 5 arguments that follow it; in order, these
# arguments are:
# width (default: 5)
# height (default: same as width)
# left margin (default: 0)
# bottom margin (default: same as left margin)
# font scaling factor (default: 1)
# If any of these are omitted, the defaults are used instead. If one of the
# 5 arguments immediately following -custom begins with '-', lwcat assumes that
# -custom's argument list has ended, and it treats the remaining arguments as
# ordinary options. The units of width, height, and margins are inches. For
# example:
# lwcat -custom 5 7 0.5
# sets up to make a plot 5 inches wide, 7 inches high, with 0.5 inch left and
# bottom margins.
# 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-PSPDIR/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=BINDIR/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) if [ "x$SPOOLER" != "xgvcat" ]; then
SPOOLER=cat;
fi
EPSF=yes;;
-pdf) SPOOLER="EPSTOPDF --filter"; EPSF=yes;;
-png) SPOOLER=BINDIR/pltpng; EPSF=yes;;
-ps) SPOOLER=cat;;
-psv) SPOOLER=BINDIR/gvcat;;
-gv) SPOOLER=BINDIR/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 ;;
-full) WDEF="0.90 0.50 0.50 8.00 10.50"
LDEF="0.90 0.50 0.50 10.50 8.00"; H=8.5 ;;
-slide) WDEF="0.90 0.50 3.00 8.00 8.00"
LDEF="0.90 3.00 0.50 8.00 8.00"; H=8.5 ;;
-screen)WDEF="0.90 0.50 2.375 8.00 8.00"
LDEF="0.90 2.375 0.50 8.00 8.00"; H=8.5 ;;
-golden)WDEF="0.90 0.50 3.365 8.00 8.00"
LDEF="0.90 3.365 0.50 8.00 8.00"; H=8.5 ;;
-strip) WDEF="0.50 0.50 0.50 8.50 1.30"
LDEF="0.50 0.50 0.50 1.30 8.50"; H=8.5 ;;
-custom) X0=0; WIDTH=5; FSCL=1
if [ "x$1" != "x" ]; then
case $1 in
-*) ;;
*) WIDTH=$1; shift ;;
esac
fi
if [ "x$1" != "x" ]; then
case $1 in
-*) ;;
*) HEIGHT=$1; shift ;;
esac
fi
if [ "x$1" != "x" ]; then
case $1 in
-*) ;;
*) X0=$1; shift ;;
esac
fi
if [ "x$1" != "x" ]; then
case $1 in
-*) ;;
*) Y0=$1; shift ;;
esac
fi
if [ "x$1" != "x" ]; then
case $1 in
-*) ;;
*) FSCL=$1; shift ;;
esac
fi
Y0=${Y0-$X0}; HEIGHT=${HEIGHT-$WIDTH}
X1=`echo $WIDTH + $X0 | bc`
Y1=`echo $HEIGHT + $Y0 | bc`
WDEF="$FSCL $X0 $Y0 $X1 $Y1"
LDEF="$FSCL $Y0 $X0 $Y1 $X1"
H=`echo $WIDTH + $X0` ;;
# 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
export WDEF
# Generate output
(
if [ "$EPSF" != "" ]
then
# disable any multi-copy options selected
C=showpage
# Generate EPS header, including bounding box
BINDIR/makeplthead $WDEF
else
C="$C showpage"
# Write default header and bounding box
echo "%!"
echo "%%BoundingBox: 54 54 556 737"
fi
# write the prolog
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