#! /bin/sh
# Run CSHOT with CWP X Graphics

demo=10

x1beg=0 x1end=12000 x2beg=-333 x2end=16666

cp param1.1 param1
cshot1 |
cshotplot >demo${demo}plot  outpar=demo${demo}par
xgraph <demo${demo}plot par=demo${demo}par style=seismic \
	-geometry 600x400-20+70 \
	title="Rays for demo$demo" \
	label1="Depth (ft)"  label2="Range (ft)" \
	x1beg=$x1beg x1end=$x1end x2beg=$x2beg x2end=$x2end &

cp param1.2 param1
cshot1 >/dev/null
cshot2

suaddhead <demo${demo}traces ftn=1 ns=1001 |
sushw key=dt a=4000 |
sugain gagc=1 wagc=0.5 |
suximage title="Dome Data (agc)" \
	ybox=70 \
	label1="Time in Seconds"  label2="Trace" &
