#! /bin/csh -f
if( $#argv < 2 ) then
     echo "need the start and stop rps numbers"
     exit 1
endif
set FNO = $1
set LNO = $2
sioseis << eof
procs diskin filter shift nmo plot end
diskin
   set 0 .11 allno no
   ipath little.rps.new fno $FNO lno $LNO end
end
filter 
  ftype 0 pass 100 800 dbdrop 48 end
end
 shift
    datume 600 datumv 60000 end # elevation is in mm
 end
 nmo
    fno 111 vtp 6000 0  end
 end
agc
   winlen .01 end
end
plot
   scalar 0 recsp yes
   nsecs .1 tlines .002 .01 .05 stime 0
   nibs 75 trpin 4 vscale 100 def .08 clip 1
   ftag 1 taginc 1 ann sh&tr
  srpath sunfil
   end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
end
eof
xloadimage -r 90 sunfil