#!/bin/bash -f
rm sunfil.ras siofil
sioseis << eof
procs diskin prout filter resamp wbt mute swell agc plot end
diskin
   ipath JD238_034.sgy end
end
wbt
   track .005 peak neg sepp .05 .1 end
end
mute 
    addwb yes ttp 1 -.002 end 
 end 
agc
   winlen .02 end
end
swell
     n 31 end
end
filter
    ftype 0 pass 100 800 dbdrop 48 end
end
prout
    fno 0 lno 9999999 noinc 500 end
end
plot
   scalar 1.E-05
   dir ltr dptr 1 tlines .05 .1 nsecs .15
    colors gray opath siofil wiggle 0  ann gmtint anninc 5 ann2 shotno
    trpin 300 def .4 tlines .05 vscale 10 end
end
end
eof
sio2sun siofil sunfil.ras
display -rotate 270 sunfil.ras &