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 &