1      SUBROUTINE GSCHAR3(X,Y,N,CHAINE,ICENTRE,IMAGE)
2c
3c utilisation des possibilites de centrage de la lib rotated
4c alignement suivant la valeur de icentre
5c image > 0 imagestring
6c image < 0 string
7c marche uniquement en X (pas de ps). fait pour les menus...
8c
9c#define NONE             0
10c#define TLEFT            1
11c#define TCENTRE          2
12c#define TRIGHT           3
13c#define MLEFT            4
14c#define MCENTRE          5
15c#define MRIGHT           6
16c#define BLEFT            7
17c#define BCENTRE          8
18c#define BRIGHT           9
19c
20      INCLUDE 'Parametres.f'
21      REAL*4 X,Y
22      CHARACTER*1024 CHAINE,CHCH
23      logical*4 assezloin
24      if (n.le.0.or.ipostscript.ne.1) return
25      if (assezloin(x,y)) return
26      nn = min(1024,n)
27      IX = origine_x + facteur_en_x*X
28      IY = origine_y + facteur_en_y*Y
29      CHCH = CHAINE(1:NN)//char(0)
30      if (icentre.gt.9.or.icentre.lt.0) then
31        ic = 0
32      else
33        ic = icentre
34      endif
35      IF (icoul_texte.ne.icoul_courante) then
36        call x11loadcolor(icoul_texte)
37        call x11txtsrnrot3(CHCH,nn,ix,iy,icoulfond,angle_texte,ic,image)
38        call x11loadcolor(icoul_courante)
39      else
40        call x11txtsrnrot3(CHCH,nn,ix,iy,icoulfond,angle_texte,ic,image)
41      endif
42      end
43c-------------------------------------------------------------
44      SUBROUTINE AFFICHE_COMPTEUR(X,Y,N,CHAINE,IC)
45      INCLUDE 'Parametres.f'
46      REAL*4 X,Y
47      CHARACTER*1024 CHAINE
48c
49      IX = origine_x + facteur_en_x*X
50      IY = origine_y + facteur_en_y*Y
51      IF (icoul_texte.ne.icoul_courante) then
52        call x11loadcolor(icoul_texte)
53        call x11txtsrnrot3(CHAINE(1:n)//char(0),n,ix,iy
54     &                    ,icoulfond,angle_texte,ic,1)
55        call x11loadcolor(icoul_courante)
56      else
57        call x11txtsrnrot3(CHAINE(1:n)//char(0),n,ix,iy
58     &                    ,icoulfond,angle_texte,ic,1)
59      endif
60      end
61