Go to the list of seismic processes.      Go to SIOSEIS introduction.
     Script to moveout, stack and plot the whole survey.



sioseis << eof
procs diskin weight filter nmo shift stack agc plot end
 diskin
   set 0 .12
    ipath gathers.segy end
 end
mute
    ttp 1 .001 end
end
 nmo
    fno 111 vtp 6000 0  end
 end
 weight
    fno 0 lno 99999 xwp 45 0 50 0 55 0 60 0 65 0 70 0 75 0 80 0
      85 0 90 0 95 0 100 0 105 0 110 0 115 0 120 0 end
 end
avenor
    sets 0.01 0.12 end
end
 prout
    fno 0 lno 9999 ftr 0 ltr 999 end
 end
 filter
    ftype 0 pass 100 800 dbdrop 48 end
 end
 shift
    datume 600 datumv 60000 end # elevation is in mm
 end
 diskoa
    opath stk end
 end
 agc
    winlen .01 end
 end
 plot
  wiggle 0
    nsecs .12 tlines .01 .05 .1 stime 0
    nibs 300 trpin 20 vscale 26.6666 def .04 clip .05
!    ftag 1 taginc 10 ann rpno
    ftag 25 taginc 40 ann fanno fanno -4 anninc 1
   srpath sunfil end
 end
 end
eof
xloadimage -r 90 sunfil &
suntops -w 8 -h 10.5 < sunfil > psfil

Go to the list of seismic processes.      Go to SIOSEIS introduction.