#!/bin/bash -f
rm sunfil.ras siofil
sioseis << eof
procs diskin agc wbt swell mix mute filter plot end
diskin
   fno 700 lno 5100
   ipath muted.segy end
end
swell
   n 21 end
end
mute
   addwb yes ttp 1 -0.01 end
end
agc
   center .005 winlen .025 end
end
wbt
   track .015 peak pos end
end
mix
   weight 1  1 end
end
filter
    ftype 0 pass 10 2000 dbdrop 48 end
end
plot
   dir ltr dptr 1 tlines .05 .1 ! chart 5 75
   colors .001 gray1 .002 gray2 .003 gray3 .004 gray4 .005 gray5 .006 gray6 .007 gray7
    opath siofil wiggle 0  ann gmtint anninc 5 ann2 shotno
    trpin 300 def .01 tlines .05 vscale 5 stime 0 end
end
end
eof
sio2sun siofil sunfil.ras
display -rotate 270 sunfil.ras &