#! /bin/sh
# Best results starting with suspecfx and using some indicated sufilters
WIDTH=600
HEIGHT=450
WIDTHOFF1=0
WIDTHOFF2=640
HEIGHTOFF1=50
HEIGHTOFF2=530


perc=90   # accept value in book
tpow=3.2  # accept value in oz25.H

f=0,10,15,20
amps=0.,0.,1.,1.
sufilter <data.su f=$f amps=$amps |
sugain tpow=$tpow |
suxmovie  perc=$perc \
	title="f=$f + gain" windowtitle="f=$f" \
	label1="Time (sec)" label2="Offset (km)" \
	-geometry ${WIDTH}x${HEIGHT}+${WIDTHOFF1}+${HEIGHTOFF1} &

f=0,10,20,25
amps=0.,0.,1.,1.
sufilter <data.su f=$f amps=$amps |
sugain tpow=$tpow |
suxmovie  perc=$perc \
	title="f=$f + gain" windowtitle="f=$f" \
	label1="Time (sec)" label2="Offset (km)" \
	-geometry ${WIDTH}x${HEIGHT}+${WIDTHOFF2}+${HEIGHTOFF1} &


f=0,15,20,25
amps=0.,0.,1.,1.
sufilter <data.su f=$f amps=$amps |
sugain tpow=$tpow |
suxmovie  perc=$perc \
	title="f=$f + gain" windowtitle="f=$f" \
	label1="Time (sec)" label2="Offset (km)" \
	-geometry ${WIDTH}x${HEIGHT}+${WIDTHOFF1}+${HEIGHTOFF2} &

f=0,15,25,30
amps=0.,0.,1.,1.
sufilter <data.su f=$f amps=$amps |
sugain tpow=$tpow |
suxmovie  perc=$perc \
	title="f=$f + gain" windowtitle="f=$f" \
	label1="Time (sec)" label2="Offset (km)" \
	-geometry ${WIDTH}x${HEIGHT}+${WIDTHOFF2}+${HEIGHTOFF2} &

exit 0
