Constant Velocity Stack scripts

sioseis << eof
procs diskin prout velan stack diskoa end
diskin
  fno 312401 lno 312500 allno no set 3 6
  ipath line29.cmps.segy end
end
prout
   fno 0 lno 999999 ftr 1 ltr 1 noinc 10 end
end
velan
   vels 1500 10 1600 nrp 100 type cvel stretc .6 end
end
diskoa
  opath cv.312401 end
end
end


sioseis << eof
procs diskin filter agc plot end
diskin
  ipath  cv.312401  end
end
filter
   ftype 0 pass 20 220 dbdrop 48 end
end
agc
  winlen .5 end
end
plot
  nibs 75 nsecs 3 vscale 5
  ann fanno fanno 1500 ftag 1 taginc 100 anninc 10 fspace 100 spacei 100
   def .04 clip .02 wiggle 0 srpath sunfil end
end
end
eof
suntops -w 8 -h 10.5 < sunfil > psfil
lpr -Pxyz psfil

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