Script 1 generates a SEG-Y file with semblance values rather than
seismic amplitudes.  Script 2 plots the semblance disk file.


sioseis << eof
procs diskin geom velan end

diskin fno 40 lno 40 forgat 1
ipath data.utig end end

geom
  gxp 1 -2611. 24 -297. end
end
velan
   vels 1400 20 3000 nrp 1 type spec winlen .048
   opath v.segy end
end
end
eof

sioseis << eof1
procs diskin plot end
diskin
   ipath v.segy end
end
plot
   scalar -1 trpin 10 vscale 2.5 def 0.06
   nibs 75 stime 4 nsecs 4
   srpath sunfil ftag 1 taginc 5
   ann header ihdr 46
   end
end
end
eof1

xv -rotate -90 sunfil