%N grtt06 %F $MIR/opt/local/var/macports/build/_opt_bblocal_var_buildworker_ports_build_ports_science_miriad/miriad/work/miriad-4.3.8/borrow/pgplot/drivers/ttdriv.f
%D PGPLOT Tektronix 4100 driver, encode color definition
%B
      SUBROUTINE GRTT06(IDX, I1, I2, I3, C, NC)
      INTEGER ESC, GS, US
      PARAMETER (ESC=27, GS=29, US=31)
      INTEGER IDX, I1, I2, I3
      CHARACTER*(*) C
      INTEGER NC

 Encode color definition, Color index IDX, I1,I2,I3 are the 3 integer
 color components (definiton is device-dependent).
 output encoded string containing NC characters (max 20).
