Heave Removal Using User Picked Water Bottom Times

     Smaller header mix and more compressed horizontal plot scale.

    The previous examples were plotted at 150 traces per inch on
a plotter capable of 300 dots per inch.  This example plots at
300 traces per inch.  The only way sioseis can plot more densely
at the present time is by dropping traces (use noinc 2 in process
diskin).  It might be possible for sioseis to go to a 600 or 1000
dpi plotter so that trpin 600 or trpin 1000 is possible.
    Let me know if you want such capability.
 
sioseis << eof1
procs diskin filter wbt header diskoa end
diskin
   fno 469 lno 1475 allno no set .190 .240
   ipath L001_001.anal end
end
filter
   fno 1 lno 99999 pass 500 2000 ftype 0 end
end
diskoa
   opath L001_001.heave end
end
wbt
   thres 5000 end
end
header
   fno 0 lno 99999 r59 = r50 end
end
end
eof1

sioseis << eof2
procs diskin mix header shift agc plot end
diskin
   ipath L001_001.heave end
end
agc
   winlen .01 end
end
mix
   type 4 hdr 59 weight  1 1 1 1 1 1 1 1 1 1
   1 1 1 1 1 1 1 1 1 1
   1 1 1 1 1 1 1 1 end
end
header
   fno 0 lno 99999 ftr 0 ltr 99 r60 = r59 - r50 end
end
shift
   fno 0 lno 99999 indices r60 end
end
plot
   wiggle 0  ann gmtint anninc 5
   trpin 300 def .006  tlines .002
   srpath sunfil
  nibs 2859 nsecs .04 vscale 75  !  75.75758
   end
end
end
eof2
xloadimage -r 90 sunfil &