#! /bin/csh -f
#  Script to plot every shot on the screen with a wait
set SHOTNO = $1
while ( $SHOTNO <= $2 )
sioseis << eof
procs diskin weight smute agc plot end
agc
   winlen .02 end
end
diskin
   ipath little.segy fno $SHOTNO lno $SHOTNO end
end
weight
   fno 1 lno 9 twp 24 0 end
   fno 10 lno 10 twp 26 0 end
   fno 12 lno 12 twp 20 -1 end
   fno 13 lno 14 twp 35 0 end
   fno 16 lno 16 twp 35 0 end
   fno 18 lno 19 twp 35 0 end
   fno 24 lno 24 twp 11 0 end
   fno 25 lno 25 twp 27 0 end
   fno 26 lno 26 twp 13 0 20 0 21 0 end
   fno 27 lno 27 twp 2 0 5 0 21 0 25 0 end
   fno 28 lno 28 twp 16 0 17 0 31 0 end
   fno 29 lno 29 twp 39 0 end
   fno 31 lno 31 twp 24 0 41 0 end
   fno 32 lno 32 twp 16 0 17 0 37 0 39 0 end
   fno 33 lno 33 twp 14 0 30 0 34 0 end
   fno 34 lno 34 twp 35 0 end
   fno 37 lno 37 twp 35 0 end
end
smute
   fno 25 lno 25 ttp 2 .072 3 .076 4 .042 9 .031 18 .076 33 .05 34 .05 
48 .043 end
   fno 26 lno 26 ttp 4 .034 7 .062 8 .05 16 .067 41 .055 end
   fno 27 lno 27 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 28 lno 28 ttp 11 .05 18 .044 19 .082 21 .066 25 .049 26 .06 32 .053 end
   fno 29 lno 29 ttp 7 .075 19 .024 27 .017 43 .035 end
   fno 30 lno 30 ttp 3 .04 8 .04 20 .053 21 .058 32 .03 36 .03 48 .086 
end
   fno 31 lno 31 ttp 1 .029 12 .052 25 .048 29 .046 end
   fno 32 lno 32 ttp 5 .038 7 .042 20 .092 26 .03 28 .03 32 .02
      38 .043 42 .026 43 .052 end
   fno 33 lno 33 ttp 19 .035 22 .045 27 .035 38 .045 43 .018 end
end
plot
   scalar 3.E-06   # little hammer
   nsecs .12 tlines .01 .05 .1 stime 0
   nibs 75 trpin 3 vscale 53.3333 def .15
   ftag 1 taginc 1 ann sh&tr
  srpath sunfil end
end
prout
   fno 0 lno 99999 ftr 0 ltr 999 end
end
end
eof
xloadimage -r 90 sunfil
@ SHOTNO = $SHOTNO + 1
end