1 : C TBAFNC SOURCE PV 05/09/22 21:26:55 5181 2 : c subroutine utilisee dans tableau 3 : *************************************************** 4 : * 5 : * AFFICHE UNE CHAINE A LA POSITION FX,FY 6 : * AVEC LES BONS ENCADREMENTS 7 : * 8 : *************************************************** 9 : SUBROUTINE TBAFNC (CHAINE,ICOUL,FX,FY,ZH,ZB 10 : > ,ZG,ZD,ZGH,ZGB,ZGG,ZGD,TABTR) 11 : 12 : * 13 : * DEFINITION DES VARIABLES 14 : * 15 : IMPLICIT INTEGER(I-N) 16 : -INC TMNTAB 17 : -INC CCOPTIO 18 : CHARACTER* (*) CHAINE 19 : INTEGER FX,FY,ICOUL 20 : LOGICAL ZH,ZB,ZG,ZD,ZGH,ZGB,ZGG,ZGD 21 : INTEGER NBC 22 : REAL RXPOS,RYPOS,HMIN 23 : REAL A (2),B (2),TX (2),TY (2),TZ(2) 24 : * 25 : tz(1)=0 26 : tz(2)=0 27 : * 28 : * AFFICHAGE DU CONTENU 29 : * 29 : CALL CHCOUL (ICOUL) 30 : RXPOS = FX * 3.75 - 3.6 + 0.05 31 : IF (ZHORIZ) THEN 32 : RYPOS = 21.2 - FY * 0.65 - 0.1 33 : ELSE 34 : RYPOS = 29.9 - FY * 0.65 - 0.1 35 : ENDIF 36 : NBC = LEN ( CHAINE ) 36 : CALL TRLABL (RXPOS,RYPOS,tz(1),CHAINE,NBC,HMIN) 37 : * 38 : * CALCUL DES COORDONNEES DE LA BOITE 39 : * 40 : A (1) = (FX - 1) * 3.75 + 0.05 41 : B (1) = FX * 3.75 + 0.05 42 : IF (ZHORIZ) THEN 43 : A (2) = 21. - (FY - 1) * 0.65 - 0.1 44 : B (2) = 21. - FY * 0.65 - 0.1 45 : ELSE 46 : A (2) = 29.7 - (FY - 1) * 0.65 - 0.1 47 : B (2) = 29.7 - FY * 0.65 - 0.1 48 : ENDIF 49 : * 50 : * AFFICHAGE DES ENCADREMENTS 51 : * 52 : ICOUL = TABTR.ILIGC 52 : CALL CHCOUL (ICOUL) 53 : IF (ZG) THEN 54 : TX (1) = A (1) 55 : TY (1) = A (2) 56 : TX (2) = A (1) 57 : TY (2) = B (2) 57 : CALL POLRL (2,TX,TY,tz) 58 : ENDIF 59 : IF (ZH) THEN 60 : TX (1) = A (1) 61 : TY (1) = A (2) 62 : TX (2) = B (1) 63 : TY (2) = A (2) 63 : CALL POLRL (2,TX,TY,tz) 64 : ENDIF 65 : IF (ZD) THEN 66 : TX (1) = B (1) 67 : TY (1) = A (2) 68 : TX (2) = B (1) 69 : TY (2) = B (2) 69 : CALL POLRL (2,TX,TY,tz) 70 : ENDIF 71 : IF (ZB) THEN 72 : TX (1) = A (1) 73 : TY (1) = B (2) 74 : TX (2) = B (1) 75 : TY (2) = B (2) 75 : CALL POLRL (2,TX,TY,tz) 76 : ENDIF 77 : IF (ZGG) THEN 78 : TX (1) = A (1)+.05 79 : TY (1) = A (2) 80 : TX (2) = A (1)+.05 81 : TY (2) = B (2) 81 : CALL POLRL (2,TX,TY,tz) 82 : ENDIF 83 : IF (ZGH) THEN 84 : TX (1) = A (1) 85 : TY (1) = A (2)+.05 86 : TX (2) = B (1) 87 : TY (2) = A (2)+.05 87 : CALL POLRL (2,TX,TY,tz) 88 : ENDIF 89 : IF (ZGD) THEN 90 : TX (1) = B (1)+.05 91 : TY (1) = A (2) 92 : TX (2) = B (1)+.05 93 : TY (2) = B (2) 93 : CALL POLRL (2,TX,TY,tz) 94 : ENDIF 95 : IF (ZGB) THEN 96 : TX (1) = A (1) 97 : TY (1) = B (2)+.05 98 : TX (2) = B (1) 99 : TY (2) = B (2)+.05 99 : CALL POLRL (2,TX,TY,tz) 100 : ENDIF 101 : ICOUL = TABTR.ITEXC 101 : CALL CHCOUL (ICOUL) 102 : * 103 : END 104 : 105 : 106 : 107 : 108 : 109 :
© Cast3M 2003 - All rights reserved.
Disclaimer