Return to Edgetech example          Return to SIOSEIS examples

sioseis << eof
procs diskin gains plot end
diskin
   fno 4901 lno 9000
    noinc 1 allno no
   ipath data_shifted end
end
gains
   tgp 0 1 .005 10 addwb yes end
end
plot
   scalar 1.5E+06
   stime .0
   nibs 2859 vscale 40 nsecs .2 tlines .01 .05 .1
   colors  gray
   opath siofil.gray
   wiggle 0
   trpin 300 ann gmtint anninc 1
   def .02 clip .02 end
end
prout
    fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
sio2sun siofil.gray sunfil
xloadimage -r 90 sunfil &