#! /bin/shVIEWER=imagesCHARTER=psgraphIMAGER=supsimageWIGGER=supswigpLINES=18COMMANDS=Commands_Onlyindata=data.seisoutdata1=data.fullfoldoutdata2=data.sortdownoutdata3=data.unsortoutdata4=data.recgatheroutdata5=data.stackoutdata6=data.nearoutdata7=data.far# Eventually put Model here$IMAGER <$indata perc=99 title="Original shot gathers"\	label1="Time (sec)" label2="Shot Gather" f2=1 d2=0.166667 | $VIEWER # SORTING EXAMPLES# Use surange to get overview of header values set, etc.surange <$indata# Get a stacking chartsuchart <$indata |                     $CHARTER n=72 title="Stacking Chart" label1="sx" label2="gx" \ linewidth=0 marksize=2 mark=8 | $VIEWER                     # Find region of full foldsusort <$indata | sugethw cdp offset# Window to full fold region and sort by cdp and offsetsuwind <$indata key=cdp min=1100 max=1480 |susort cdp offset >$outdata1sugethw<$outdata1 cdp offset | sed ${LINES}q$IMAGER <$outdata1 perc=99 title="Full-fold region sorted on cdp and offset"\	label1="Time (sec)" label2="CDP Gather" f2=1 d2=0.333333 | $VIEWER# sort data by decreasing cdp and within each cdp by offsetsusort <$outdata1 cdp -offset >$outdata2 sugethw <$outdata2 cdp offset | sed ${LINES}q$IMAGER <$outdata2 perc=99\	title="Full-fold region sorted on cdp and -offset"\ 	label1="Time (sec)" label2="CDP Gather" f2=1 d2=0.333333 | $VIEWER# reconstruct windowed data $outdata1 from $outdata2susort <$outdata2 cdp offset >$outdata3sudiff $outdata1 $outdata3 | sumax# make receiver gathers from shot gatherssusort <$indata gx offset >$outdata4sugethw <$outdata4 gx sx cdp offset | sed ${LINES}q$IMAGER <$outdata4 perc=99 title="Original data sorted to receiver gathers"\	label1="Time (sec)" label2="Receiver Gathers" f2=1 d2=1 | $VIEWER# application: stackingsusort <$outdata1 |sustack >$outdata5sugethw <$outdata5 cdp nhs | sed ${LINES}q$WIGGER <$outdata5 perc=99 title="Stacked Data"\	label1="Time (sec)" label2="CDP Location" f2=1100 d2=20 | $VIEWER# get near and far common offset sections (doesn't use susort, but ...)suwind <$indata key=offset min=40 max=80 >$outdata6sugethw <$outdata6 cdp offset | sed ${LINES}q$WIGGER <$outdata6 perc=99 title="Near offset section"\	label1="Time (sec)" label2="CDP Location" f2=1020 d2=20 | $VIEWERsuwind <$indata key=offset min=200 max=240 >$outdata7sugethw <$outdata7 cdp offset | sed ${LINES}q$WIGGER <$outdata7 perc=99 title="Far offset section"\	label1="Time (sec)" label2="CDP Location" f2=1100 d2=20 | $VIEWERexit