Return to Edgetech example          Return to SIOSEIS examples

SIOSEIS script used to pick the water bottom, mute to the water
bottom, apply a gain, and generate and display a gray scale plot.

sioseis << eof
procs diskin header wbt tredit mute gains plot end
diskin
  fno 253000 lno 255000 allno no
    ipath yr2001day203-1643z.filtered end
end
tredit
   ses -.011 -.001 addwb yes sel 0 .02 kill yes fac .5 end
end
header
   # force the rp number to be the shot number
   fno 0 lno 999999 l6 = l3  end
end
gains
   addwb yes
   tgp 0 .5 .15 .5 .4 8 .8 16
   end
end
mute
   fno 1 lno 999999 ttp 1 -.002 addwb yes end
end
prout
   fno 0 lno 999999 ftr 0 ltr 999 end
end
wbt
   thres .11e-08
   track .0025
    end
end
plot
  scalar 2.0E+07
   stime .24
   nibs 200 vscale 75 nsecs .1 tlines .01 .05 .1
   colors gray opath siofil
    wiggle 0
   anninc 5 ann gmtint
   trpin 200 def .02 clip .03 end
end
end
eof
sio2sun siofil sunfil
xloadimage -r 270 sunfil