sioseis << eof1
procs diskin nmo trim gains filter plot end
diskin
   ipath /archive/mcs/1999/odp/segy-cmp/line23.g.3116.4615
   fno 3116 lno 3200 end
end
nmo
  vtrkwb 250 stretc 0.06
  fno 3300 lno 3300 vtp 1500 4.400
                        1525 4.70
                        1525 4.8
                        2100 5.2
                        3500 6.3 end
  fno 3500 lno 3500 vtp 1500 4.667
                        1525 4.967
                        1525 5.067
                        2100 5.467
                        3500 6.567 vintpl 2 end
  fno 3700 lno 3700 vtp 1500 4.9333
                        1525 5.2333
                        1525 5.3333
                        2100 5.7333
                        3500 6.8333 vintpl 2 end
  fno 3900 lno 3900 vtp 1500 5.2
                        1525 5.5
                        1525 5.6
                        2100 6.0
                        3500 7.1 vintpl 2 end
end
trim
   savein 10 end
end

gains
 type 3 alpha 1.5 subwb yes end
end
filter 
 ftype 0 pass 5 60 dbdrop 60 end
end
plot
  tlines 0.5 1 nibs 75
  def 0.06 clip .08 trpin 10
 nsecs 5 vscale 2.5 ann rpno
 srpath sunfil
  end
end
end
eof1
xloadimage -r 90 sunfil &