%N grtt04 %F $MIR/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_science_miriad/miriad/work/miriad-4.3.8/borrow/pgplot/drivers/ttdriv.f
%D PGPLOT Tektronix driver, encode coordinate pair, optimize
%B
      SUBROUTINE GRTT04(I4014, LASTI, LASTJ, I0, J0, CTMP, LTMP)
      INTEGER   I4014, LASTI, LASTJ, I0, J0, LTMP
      CHARACTER CTMP*(*)

 Assume cursor is at position LASTI, LASTJ and that the light or
 dark vector condition has been correctly set.  Add up to 5 characters
 to CTMP to draw a vector to I0, J0.  The minimum number of characters
 are encoded to obtain the motion.
