#!/bin/sh



rm -f ???.PLT ???.png
rm -f ???_dz.PLT ???_dr.PLT
rm -f ???_dz.png ???_dr.png

for GRN in ZDD RDD ZDS RDS TDS ZSS RSS TSS ZEX REX ZVF RVF ZHF RHF THF
do
for APP in 0 R H
do
        case $APP in
                0) EXT="" ;;
                R) EXT="_dr" ;;
                H) EXT="_dz" ;;
        esac
rm -f ${GRN}${EXT}.PLT
Y0=7.0
#####
#   title
#####
calplt << EOF
NEWPEN
1
CENTER
4.0 ${Y0} 0.15 "${GRN}${EXT} vs H" 0.0
PEND
EOF
cat CALPLT.PLT > ${GRN}${EXT}.PLT
for i in TWS/ALL/*.${GRN}${EXT} 
do
	Y0=`echo $Y0 | awk '{print $1 - 1.0 }'`
	B=`basename $i `
	B1=`basename $B .${GRN}${EXT}`
	pltsac -O -PCY 0.60 -K -1 -DOAMP -XLEN 6.0 -X0 0.5 -Y0 ${Y0} -ABS -YLEN 1.25 NWS/ALL/$B TWS/ALL/$B SWS/ALL/$B
	cat PLTSAC.PLT >> ${GRN}${EXT}.PLT
HT=0.10
YP=`echo ${Y0} | awk '{print $1 +0.5}' `
YR=`echo $YP $HT | awk '{print $1 - 1.5*$2}' `
YH=`echo $YP $HT | awk '{print $1 - 3.0*$2}' `
R=`saclhdr -DIST ${i}`
H=`saclhdr -EVDP ${i}`
calplt << EOF
NEWPEN
1
RIGHT
6.5 ${YP} ${HT} "${B1}" 0.0
RIGHT
6.5 ${YR} ${HT} "R=${R}" 0.0
RIGHT
6.5 ${YH} ${HT} "H=${H}" 0.0
PEND
EOF
cat CALPLT.PLT >> ${GRN}${EXT}.PLT
done

../../DOPLTPNG ${GRN}${EXT}.PLT
done
done

rm -f PLTSAC.PLT CALPLT.PLT CALPLT.cmd
