SUBROUTINE GSCHAR3(X,Y,N,CHAINE,ICENTRE,IMAGE)
c
c utilisation des possibilites de centrage de la lib rotated
c alignement suivant la valeur de icentre
c image > 0 imagestring
c image < 0 string
c marche uniquement en X (pas de ps). fait pour les menus...
c
c#define NONE             0
c#define TLEFT            1
c#define TCENTRE          2
c#define TRIGHT           3
c#define MLEFT            4
c#define MCENTRE          5
c#define MRIGHT           6
c#define BLEFT            7
c#define BCENTRE          8
c#define BRIGHT           9
c
      INCLUDE 'Parametres.f'
      REAL*4 X,Y
      CHARACTER*1024 CHAINE,CHCH
      logical*4 assezloin
      if (n.le.0.or.ipostscript.ne.1) return
      if (assezloin(x,y)) return
      nn = min(1024,n)
      IX = origine_x + facteur_en_x*X
      IY = origine_y + facteur_en_y*Y
      CHCH = CHAINE(1:NN)//char(0)
      if (icentre.gt.9.or.icentre.lt.0) then
        ic = 0
      else
        ic = icentre
      endif
      IF (icoul_texte.ne.icoul_courante) then
        call x11loadcolor(icoul_texte)
        call x11txtsrnrot3(CHCH,nn,ix,iy,icoulfond,angle_texte,ic,image)
        call x11loadcolor(icoul_courante)
      else
        call x11txtsrnrot3(CHCH,nn,ix,iy,icoulfond,angle_texte,ic,image)
      endif
      end
c-------------------------------------------------------------
      SUBROUTINE AFFICHE_COMPTEUR(X,Y,N,CHAINE,IC)
      INCLUDE 'Parametres.f'
      REAL*4 X,Y
      CHARACTER*1024 CHAINE
c
      IX = origine_x + facteur_en_x*X
      IY = origine_y + facteur_en_y*Y
      IF (icoul_texte.ne.icoul_courante) then
        call x11loadcolor(icoul_texte)
        call x11txtsrnrot3(CHAINE(1:n)//char(0),n,ix,iy
     &                    ,icoulfond,angle_texte,ic,1)
        call x11loadcolor(icoul_courante)
      else
        call x11txtsrnrot3(CHAINE(1:n)//char(0),n,ix,iy
     &                    ,icoulfond,angle_texte,ic,1)
      endif
      end