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