SIOSEIS script to extract two hours of envelope data, convert water bottom depth to time, perform trace equalization, bandpass filter, decimate by four and write to disk, perform gain and plot. sioseis << eof procs diskin prout wbt avenor filter diskoa gains plot end diskin fgmt 0500 lgmt 0700 ipath env-2006_229_0400z-0945z.sgy end end avenor sets 0 .1 addwb yes end end wbt vel 1500 end end filter ftype 0 pass 2 500 dbdrop 48 end end prout info 1 end end plot dptr 1 nsecs 0 scalar 5.E-07 colors gray opath siofil wiggle 0 ann gmt ann2 range taginc 100 trpin 300 def .01 tlines .05 nibs 2859 vscale 5 end end gains subwb yes type 5 alpha 5 end end diskoa decimf 4 opath env-2006_229_0500z-0700z.sgy end end end eof sio2sun siofil sunfil.ras display -rotate 90 sunfil.ras &