1.5 hours of Knudsen echosounder data

  This example show the data quality.  The navigation, recording log,
and geology are not known.

sioseis << eof
procs diskin filter wbt header diskoa end
diskin
    ipath L002_011.anal end
end
filter
   fno 1 lno 99999 pass 500 2000 ftype 0 end
end
diskoa
   opath L002_011.heave end
end
wbt
   thres 5000 end
end
header
   fno 0 lno 99999 r59 = r50 end
end
prout
   fno 1 lno 99999 ftr 1 ltr 99999 end
end
end
eof

sioseis << eof1
procs diskin filter wbt header diskoa end 
diskin
   set .110 .160
   ipath L002_011.anal end
end
filter
   fno 1 lno 99999 pass 500 2000 ftype 0 end 
end
agc
   winlen .01 end
end
diskoa
   opath L002_011.wbt1 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
  fday 91 fgmt 0100 lday 91 lgmt 0130 
   ipath L002_011.wbt1 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 &