#! /bin/csh -f
if( $#argv < 1 ) then
     echo "need the shot number"
     exit 1
endif
set SHOTNO = $1
sioseis << eof
procs diskin weight smute agc plot end
diskin
   ipath little.segy fno $SHOTNO lno $SHOTNO end
end
agc
   winlen .01 end
end
weight
   fno 6 lno 14 twp 24 0 end
   fno 15 lno 15 twp 26 0 end
   fno 16 lno 16 twp 12 0 end
   fno 17 lno 17 twp 20 -1 end
   fno 18 lno 19 twp 35 0 end
   fno 21 lno 21 twp 35 0 end
   fno 23 lno 24 twp 35 0 end
   fno 26 lno 26 twp 7 0 end
   fno 29 lno 29 twp 11 0 end
   fno 30 lno 30 twp 27 0 end
   fno 31 lno 31 twp 13 0 20 0 21 0 end
   fno 32 lno 32 twp 2 0 5 0 21 0 25 0 end
   fno 33 lno 33 twp 16 0 17 0 31 0 end
   fno 34 lno 34 twp 39 0 end
   fno 36 lno 36 twp 24 0 41 0 end
   fno 37 lno 37 twp 16 0 17 0 37 0 39 0 end
   fno 38 lno 38 twp 14 0 30 0 34 0 end
   fno 39 lno 39 twp 35 0 end
   fno 42 lno 42 twp 35 0 end
   fno 43 lno 43 twp 24 0 end
end
smute
   fno 30 lno 30 ttp 2 .072 3 .076 4 .042 9 .031 18 .076 33 .05 34 .05 48 .043 end
   fno 31 lno 31 ttp 4 .034 7 .062 8 .05 16 .067 41 .055 end
   fno 32 lno 32 ttp 9 .042 11 .032 14 .043 15 .02 16 .065
    17 .043 18 .055 22 .06 26 .05 29 .06 34 .057 40 .026 end
   fno 33 lno 33 ttp 11 .05 18 .044 19 .082 21 .066 25 .049 26 .06 32 .053 end
   fno 34 lno 34 ttp 7 .075 19 .024 27 .017 43 .035 end
   fno 35 lno 35 ttp 3 .04 8 .04 20 .053 21 .058 32 .03 36 .03 48 .086 end
   fno 36 lno 36 ttp 1 .029 12 .052 25 .048 29 .046 end
   fno 37 lno 37 ttp 5 .038 7 .042 20 .092 26 .03 28 .03 32 .02
      38 .043 42 .026 43 .052 end
   fno 38 lno 38 ttp 19 .035 22 .045 27 .035 38 .045 43 .018 end end

plot
   scalar 0
   nsecs .11 tlines .01 .05 .1 stime 0
   nibs 75 trpin 5 vscale 53.3333 def .08 clip .6
   ftag 1 taginc 1 ann sh&tr fspace 24 nspace 1
  srpath sunfil end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof
xloadimage -r 90 sunfil &
suntops -w 8 -h 10.5 < sunfil > psfil
##lpr -Pmumbo psfil

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