1      SUBROUTINE GSCOL(I)
2      INCLUDE 'Parametres.f'
3C
4      IF (IPOSTSCRIPT.EQ.1) THEN
5        IF (HI_PLANE.EQ.0) THEN
6          II = 7
7        ELSE
8          II = I
9        ENDIF
10        IF (II.EQ.ICOUL_COURANTE) THEN
11          RETURN
12        ELSE
13          ICOUL_COURANTE = II
14          IF (IPSEUDO.NE.0) THEN
15            IF (II.GT.NBCOLDEBASE2
16     &.and..not.couleurtrouvee(ii)) CALL CHERCHELACOUL(II)
17          ENDIF
18          CALL x11loadcolor(ICOUL_COURANTE)
19        ENDIF
20      ELSEIF(IPOSTSCRIPT.NE.-1) THEN
21        ICOUL_COURANTE = I
22        ICOUL_PEND = I
23        COULEUR_COURANTE(1) = TABLE_ROUGE(I)
24        COULEUR_COURANTE(2) = TABLE_VERT (I)
25        COULEUR_COURANTE(3) = TABLE_BLEU (I)
26      ELSE
27        ICOUL_COURANTE = I
28C
29c les "cc" suppriment l'option grise pour les lignes
30c les traits sont toujours noirs en NB il suffit donc de faire
31c une seule fois   write(ilaser_file,'(a)') '0 g' dans inprfd
32c
33c
34cc        if (i.gt.15.and.nbcouleurs.gt.1) then
35cc          xgris = real(i-16)/real(nbcouleurs-1)
36cc          write(ilaser_file,'(f4.2,a)') xgris,' g'
37cc        else
38cccc          write(ilaser_file,'(a)') '0 g'
39cc        endif
40      ENDIF
41      END
42