1      SUBROUTINE GSLT (ITYPE)
2      INCLUDE 'Parametres.f'
3      ii = mod(itype,8)
4      if (ipostscript.eq.1) then
5        if (ii.ne.ityp_ligne) then
6CC          call x11draw3(ii,iepais_ligne)
7          call x11draw3(ii)
8          ityp_ligne = ii
9        endif
10      else
11        ityp_ligne_pend = ii
12      endif
13      end
14