sioseis << eof procs diskin t2f f2t gains agc plot end diskin ipath L001_001.sgy end end agc winlen .025 center .001 end end gains type 7 end ! complex modulus end t2f end end f2t type analytic end end plot colors gray opath siofil wiggle 0 ann gmtint anninc 1 trpin 300 def .004 tlines .01 .05 nibs 2859 vscale 10 nsecs 0 end end end eof sio2sun siofil sunfil.ras xloadimage -r 90 sunfil.ras &