#! /bin/csh -f
if( $#argv < 1 ) then
     echo "need the start and end shot numbers"
     exit 1
endif
set NO = $1
set LNO = $2
while ( $NO <= $LNO )
sioseis << eof
procs diskin weight filter agc plot end
diskin
   set 0 .11 allno no
   ipath little.segy fno $NO lno $NO end
end
gains
   alpha 2.5 end
end
filter 
  ftype 0 pass 100 800 end
end
agc
   winlen .01 end
end
weight
    fno 6 lno 6 twp 24 0  end
    fno 7 lno 7 twp 24 0 26 0 end
    fno 8 lno 9 twp 24 0  end
    fno 10 lno 10 twp 24 0  end
    fno 11 lno 11 twp 24 0 26 0  end
    fno 12 lno 12 twp 24 0  end
    fno 13 lno 13 twp 24 0  end
    fno 14 lno 14 twp 24 0  end
    fno 15 lno 15 twp 12 0 26 0  end
    fno 16 lno 16 twp 12 0  end
    fno 17 lno 17 twp 20 -1 end
    fno 18 lno 18 twp 24 0 35 0 end
    fno 19 lno 19 twp 35 0  end
    fno 21 lno 21 twp 24 0 35 0 end
    fno 23 lno 23 twp 12 0 19 0 35 0  end
    fno 24 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 2 0 3 0 4 0 9 0 18 0 27 0 33 0 34 0 48 0 end
    fno 31 lno 31 twp 4 0 7 0 8 0 13 0 16 0 20 0 21 0 41 0  end
    fno 32 lno 32 twp 2 0 5 0 9 0 11 0 14 0 15 0 16 0 17 0 18 0 
       21 0 22 0 25 0 26 0 29 0 34 0 40 0  end
    fno 33 lno 33 twp 11 0 16 0 17 0 18 0 19 0 21 0 25 0 26 0 31 0 
       32 0  end
    fno 34 lno 34 twp 7 0 19 0 27 0 39 0 43 0  end
    fno 35 lno 35 twp 3 0 8 0 20 0 21 0 32 0 36 0 48 0  end
    fno 36 lno 36 twp 1 0 12 0 24 0 25 0 29 0 41 0  end
    fno 37 lno 37 twp 5 0 7 0 16 0 17 0 26 0 28 0 32 0 37 0 38 0 
       39 0 42 0 43 0  end
    fno 38 lno 38 twp 14 0 19 0 22 0 27 0 30 0 34 0 38 0 43 0  end
    fno 39 lno 39 twp 35 0  end
    fno 40 lno 40 twp 34 0  end
    fno 42 lno 42 twp 26 0 35 0  end
    fno 43 lno 43 twp 22 0  end
end
plot
   scalar 0
   nsecs .07 tlines .002 .01 .05 stime 0
   nibs 75 trpin 3 vscale 150 def .08 clip 1
!   nsecs .07 nibs 75 trpin 3 vscale 150 def .1 clip 1
   ftag 1 taginc 1 ann sh&tr fspace 24 nspace 1
  srpath sunfil
  hpath headers
  opath siofil
   end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof
#xloadimage -r 90 sunfil &
sioplt -if siofil -hf headers -tsets tsets
@ NO = $NO + 1
end