      SUBROUTINE DOUBLELIGNE(X0,X1,Y,IBORD,ICOL1,ICOL2,IOPT)
      INCLUDE 'Parametres.f'
C
      IF (IPOSTSCRIPT.EQ.1) THEN
        IF (X0.LT.X1) THEN
          IX0 = NINT(ORIGINE_X + FACTEUR_EN_X*X0) + IBORD
          IX1 = NINT(ORIGINE_X + FACTEUR_EN_X*X1) - IBORD
        ELSE
          IX1 = NINT(ORIGINE_X + FACTEUR_EN_X*X0) - IBORD
          IX0 = NINT(ORIGINE_X + FACTEUR_EN_X*X1) + IBORD
        ENDIF
        IY  = NINT(ORIGINE_Y + FACTEUR_EN_Y*Y)
        CALL GSCOL(ICOL1)
        CALL X11LINSRN(IX0,IY,IX1,IY)
        CALL GSCOL(ICOL2)
        IYY = IY+IOPT
        CALL X11LINSRN(IX0,IYY,IX1,IYY)
      ENDIF
      END
C-----------------------------------------------------------------------
      SUBROUTINE IDOUBLELIGNE(IX0,IX1,IY,IBORD,ICOL1,ICOL2,IOPT)
      INCLUDE 'Parametres.f'
C
      IF (IX0.LT.IX1) THEN
        IXX0 = IX0 + IBORD
        IXX1 = IX1 - IBORD
      ELSE
        IXX1 = IX0 - IBORD
        IXX0 = IX1 + IBORD
      ENDIF
      ICOLSAUV = ICOUL_COURANTE
      CALL X11LOADCOLOR(ICOL1)
      CALL X11LINSRN(IXX0,IY,IXX1,IY)
      CALL X11LOADCOLOR(ICOL2)
      IYY = IY+IOPT
      CALL X11LINSRN(IXX0,IYY,IXX1,IYY)
      CALL X11LOADCOLOR(ICOLSAUV)
      END
