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