#! /bin/sh
#
# file: makestplots		G. Moody	1 November 1999
#				Last revised:  29 November 2000
#
# Print LTSTDB plots for one record (on North American letter paper)

WFDB=.:http://www.physionet.org/physiobank/database/ltstdb
export WFDB

P=1
case $# in
 2) P=$1; shift ;;
 1) ;;
 *) echo "Usage: $0 [first-page-number] RECORD" ;;
esac

STPOUT="-T lw"
LWCAT="lwcat -v -landscape"
TEXTPRINT="enscript -2r"

if [ ! -s stref.$1 ]; then stref -r $1 >stref.$1; fi
if [ ! -s ste.$1   ]; then stevents -r $1 | sort -n >ste.$1; fi
stplot -p $P -r $1 $STPOUT | $LWCAT
P=`expr $P + 1`
stplot -p $P -r $1 -c $STPOUT | $LWCAT
P=`expr $P + 1`
stplot -p $P -r $1 -f  0 -t  4 -i 1 $STPOUT | $LWCAT
P=`expr $P + 1`
stplot -p $P -r $1 -f  4 -t  8 -i 1 $STPOUT | $LWCAT
P=`expr $P + 1`
stplot -p $P -r $1 -f  8 -t 12 -i 1 $STPOUT | $LWCAT
P=`expr $P + 1`
stplot -p $P -r $1 -f 12 -t 16 -i 1 $STPOUT | $LWCAT
P=`expr $P + 1`
stplot -p $P -r $1 -f 16 -t 20 -i 1 $STPOUT | $LWCAT
P=`expr $P + 1`
stplot -p $P -r $1 -f 20 -t 24 -i 1 $STPOUT | $LWCAT
rm -f stref.$1 ste.$1
P=`expr $P + 1`
wfdbinfo $1 | $TEXTPRINT -b \
 "Record $1                                                             - $P -"
