#! /bin/csh -f
#setenv DISPLAY sioseis:0.0    # CHANGE THIS FOR YOUR MACHINE!
setenv DISPLAY 137.110.27.105:0.0
if( $#argv < 2 ) then
    echo "Usage: pltrps filename start_rpnum [ rpnum_inc END_rpnum]"
    exit 1
endif
 
set FILE = $1
set START_RPNUM = $2
 
if( $#argv < 3 ) then
    set RPNUM_INC = 1
else
    set RPNUM_INC = $3
endif
 
if( $#argv < 4 ) then
    set END_RPNUM = $START_RPNUM
else
    set END_RPNUM = $4
endif
 
echo $START_RPNUM $END_RPNUM $RPNUM_INC
set rpnum = $START_RPNUM
echo $rpnum
while ( $rpnum <= $END_RPNUM )
echo "start"
sioseis << eof
procs diskin nmo agc prout plot END
diskin
   ipath $FILE fno $rpnum lno $rpnum END
END
nmo
  fno 1000 vtp 1505 3.300 1516 3.561 1555 3.659 2196 6.002 end
  fno 1100 vtp 1487 3.284 1534 3.569 1569 3.704 2193 5.990 end
  fno 1200 vtp 1509 3.276 1534 3.671 1648 3.900 2008 6.002 end
  fno 1300 vtp 1527 3.280 1584 3.720 1890 4.088 2204 6.006 end
  fno 1400 vtp 1551 3.304 1544 3.773 1783 4.545 2193 5.994 end
  fno 1500 vtp 1509 3.324 1587 3.855 2196 5.990 end
  fno 1600 vtp 1502 3.341 1584 3.851 2204 6.006 end
  fno 1700 vtp 1505 3.345 1755 4.443 2211 5.994 end
  fno 1800 vtp 1530 3.394 1633 4.325 2196 5.998 end
  fno 1900 vtp 1566 3.512 1587 4.157 2207 6.002 end
  fno 2000 vtp 1516 3.573 1573 4.096 2207 6.006 end
  fno 2100 vtp 1509 3.594 1605 3.973 1616 4.096 2200 5.994 end
  fno 2200 vtp 1555 3.614 1605 4.112 2207 6.002 end
  fno 2300 vtp 1537 3.680 1559 4.104 1769 4.353 2050 4.786 2207 5.994 end
  fno 2400 vtp 1519 3.688 1537 4.165 1559 4.418 1740 4.569 1812 4.729 2196 5.990 end
  fno 2500 vtp 1509 3.700 1612 4.455 1854 4.806 2196 5.990 end
  fno 2600 vtp 1512 3.700 1573 4.186 1633 4.443 1701 4.525 1840 4.774 2200 5.994 end
  fno 2700 vtp 1502 3.704 1537 4.125 1555 4.451 1733 4.565 2204 5.994 end
  fno 2800 vtp 1480 3.708 1569 4.410 1780 4.561 2204 6.002 end
  fno 2900 vtp 1509 3.700 1559 4.439 1872 4.774 2204 6.002 end
end
agc
   winlen .5 end
end
prout
   fno 0 lno 99999 ftr 0 ltr 9999 END
END
plot
   nsecs 3 nibs 75 def .1 srpath sunfil ann rpno ftag 1 taginc 100
  scalar -1 trpin 5 vscale 5 END
END
END
eof
xloadimage -r 90 sunfil 
@ rpnum = $rpnum + $RPNUM_INC
end