#! /bin/sh
# lwcat Paul Albrecht
#
# The prolog file has been changed so that the CLOSE call no longer
# automatically does a showpage. Now the shell variable lwcat variable
# C contains the showpage, which may be supressed. This gives one the
# option of overalpping graphs with with text (e.g. from troff). The
# `-no' option will keep the generated graph from being flushed
# out onto paper.
#
# Modified 16 August 1990 (by G. Moody) so that `make' inserts the
# correct directory name in PROLOG during installation.
PROLOG=PSPDIR/pslw.pro
SPOOLER='lpr -Plw'
C=showpage
WDEF=""
FILES=""
while [ "$1" != "" ]
do
OPT="$1"
shift
case "$OPT" in
-no) C="";;
-ps) SPOOLER=cat;;
#
-sq)WDEF="0.80 1.25 3.50 7.25 9.50";;
-sq2)WDEF="0.55 2.5 2.5 7 8";;
-t) WDEF="0.80 1.25 3.50 7.50 9.50";;
-t2)WDEF="0.80 1.25 3.50 7.50 7.50";;
-v) WDEF="0.90 0.75 0.75 7.75 10.25";;
-v2) WDEF="0.90 0.75 0.75 7.75 9.25";;
-CinC) WDEF="0.60 1.25 3.50 6.0 6.65";;
#
-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";;
-*) echo "Argument error: $OPT" >/dev/tty; exit;;
*) FILES="$FILES $OPT";
esac
done
#######################################################
# WDEF takes 5 arguments: FSCL x0 y0 x1 y1
#
# FSCL is how much to scale the font size by;
# (x0,y0) and (x1,y1) are the corners of the rectangle
# into which the plot will go (specified in inches).
#
# The FSCL, x0, y0, x1, y1 override the settings that
# are specified to plt via PTERM or the -size commands.
# When specifing the LaserWrite plot window using PTERM,
# put the arguments for the -size option after the "lw".
#
#######################################################
(
cat $PROLOG
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
) | $SPOOLER