1 : C LTRINI SOURCE CHAT 05/01/13 01:25:58 5004 2 : C INTERFACE POUR GENERATION DE LGI 3 : C 4 : SUBROUTINE LTRINI(NOL,AXAX,AYAY,TITR,HAUTT,VALEU,NCOUMA) 5 : IMPLICIT INTEGER(I-N) 6 : -INC CCOPTIO 7 : DIMENSION XTR(*),YTR(*) 8 : CHARACTER*(*) TITR,CARAC,PROMPT,REPLY 9 : CHARACTER*(*) LEGEND 10 : CHARACTER*80 CHAINE,TITRE 11 : LOGICAL VALEU,FENE,VALEUR,FENET 12 : EQUIVALENCE (CHAINE,ICHAIN) 13 : SAVE XIOCAD,YIOCAD,VALEUR,FENET,TITRE,LTITRE 14 : SAVE XMIN,YMIN,XXAX,YYAX,CLX,XRAP,YRAP,XDEP,YDEP 15 : * 16 : * DECLARATION POUR LGI 17 : external long 18 : DIMENSION Q(20),ICOLT(9) 19 : DATA ICOLT/0,1,2,5,3,6,4,7,8/ 20 : * Pour le lgi verification des bornes 21 : bornex(xxx)=min(max(xiocad*0.01,xxx),xiocad*0.99) 22 : borney(yyy)=min(max(yiocad*0.01,yyy),yiocad*0.99) 23 : C INITIALISATION 24 : NCOUMA=7 25 : LTITRE=LONG(TITR) 26 : TITRE=TITR 27 : VALEUR=VALEU 28 : * OUVERTURE LGI 29 : * CLX=DIOCAD/100. CORRECTION POUR AVOIR UNE BONNE TAILLE DE 30 : * CARACTERE SUR LES GRANDS BENSON 31 : CLX=0.3 32 : xiocad=diocad 33 : yiocad=xiocad*21/29.7 34 : Q(1)=xiocad 35 : Q(2)=yiocad 36 : Q(3)=1. 37 : Q(4)=1. 37 : CALL ZTACMZ(2,25,Q) 38 : RETURN 39 : ** 40 : ENTRY LDFENE(XMI,XXA,YMI,YYA,XR1,XR2,YR1,YR2,FENE) 41 : * DEFINITION FENETRE 42 : XR1=XMI 43 : XR2=XXA 44 : YR1=YMI 45 : YR2=YYA 46 : FENET=FENE 47 : XMIN=XMI 48 : XXAX=XXA 49 : YMIN=YMI 50 : YYAX=YYA 51 : IF (FENET) THEN 52 : if (.not.valeur) xiocad=xiocad-5*clx 53 : if (valeur) xiocad=xiocad-10*clx 54 : endif 55 : yiocad=yiocad-2*clx 56 : XRAP=xIOCAD/(XXAX-XMIN)*0.95 57 : YRAP=yIOCAD/(YYAX-YMIN)*0.95 58 : rap=min(xrap,yrap) 59 : if (fenet) then 60 : xrap=rap 61 : yrap=rap 62 : endif 63 : IF (FENET) THEN 64 : if (.not.valeur) xiocad=xiocad+5*clx 65 : if (valeur) xiocad=xiocad+10*clx 66 : endif 67 : yiocad=yiocad+2*clx 68 : XDEP=-XMIN + (xxax-xmin)*0.02 69 : YDEP=-YMIN + (YYAX-YMIN)*0.02 +CLX/YRAP 70 : CHAINE(1:LTITRE)=TITRE(1:LTITRE) 71 : NBC=LTITRE 72 : Q(1)=bornex(0.) 73 : Q(2)=borney(0.) 74 : XCO=NBC*CLX/XRAP 75 : YCO=0 76 : Q(3)=bornex(XCO*XRAP) 77 : Q(4)=borney(YCO*YRAP) 77 : CALL ZTACMZ(4,NBC,Q) 78 : READ(CHAINE,FMT='(20A4)') (Q(I),I=1,1+(NBC-1)/4) 78 : CALL ZTACMZ(1,1,Q) 79 : RETURN 80 : ** 81 : ENTRY LTRLAB(XT,YT,CARAC,NCARR,HAUT) 82 : * ECRITURE TEXT 83 : NBC=LONG(CARAC(1:NCARR)) 84 : Q(1)=BORNEX((XDEP+XT)*XRAP) 85 : Q(2)=BORNEY((YDEP+YT)*YRAP) 86 : Q(3)=bornex(Q(1)+NBC*CLX) 87 : Q(4)=borney(Q(2)) 87 : CALL ZTACMZ(4,NBC+256*(0+3),Q) 88 : CHAINE=CARAC(1:NBC) 89 : READ(CHAINE,FMT='(20A4)') (Q(I),I=1,1+(NBC-1)/4) 89 : CALL ZTACMZ(1,1,Q) 90 : RETURN 91 : ** 92 : ENTRY LCHCOU(JCOLO) 93 : * CHANGEMENT DE COULEUR 93 : CALL ZTACMZ(6,ICOLT(JCOLO+1),Q) 93 : CALL ZTACMZ(6,ICOLT(JCOLO+1)+10000,Q) 93 : CALL ZTACMZ(10,ICOLT(JCOLO+1),Q) 94 : RETURN 95 : ** 96 : ENTRY LINSEG(JSEG,IRESS) 97 : * CHANGEMENT SEGMENT IGNORE 98 : RETURN 99 : ** 100 : ENTRY LPOLRL(NTRSTU,XTR,YTR) 101 : * POLYLINE 102 : DO 1060 I=1,NTRSTU-1 103 : Q(1)=BORNEX((XTR(I)+XDEP)*XRAP) 104 : Q(2)=BORNEY((YTR(I)+YDEP)*YRAP) 105 : Q(3)=BORNEX((XTR(I+1)+XDEP)*XRAP) 106 : Q(4)=BORNEY((YTR(I+1)+YDEP)*YRAP) 106 : CALL ZTACMZ(3,1,Q) 107 : 1060 CONTINUE 108 : RETURN 109 : ** 110 : ENTRY LTRFAC(NTRSTU,XTR,YTR,ZN,ICOLE,IEFF) 111 : * FACETTE 111 : CALL ZTACMZ(6,ICOLT(ICOLE+1),Q) 111 : CALL ZTACMZ(10,ICOLT(ICOLE+1),Q) 111 : CALL ZTACMZ(9,0,Q) 112 : DO 1070 I=1,NTRSTU 113 : Q(1)=BORNEX((XTR(I)+XDEP)*XRAP) 114 : Q(2)=BORNEY((YTR(I)+YDEP)*YRAP) 114 : CALL ZTACMZ(9,-1,Q) 115 : 1070 CONTINUE 115 : CALL ZTACMZ(9,1,Q) 116 : IEFF=1 117 : RETURN 118 : ** 119 : ENTRY LTRAIS(NP,XTR,YTR,ICOLE) 120 : * FACETTE 120 : CALL ZTACMZ(6,ICOLT(ICOLE+1),Q) 120 : CALL ZTACMZ(10,ICOLT(ICOLE+1),Q) 121 : if (np.gt.2) then 121 : CALL ZTACMZ(9,0,Q) 122 : DO 1080 I=1,NP 123 : Q(1)=BORNEX((XTR(I)+XDEP)*XRAP) 124 : Q(2)=BORNEY((YTR(I)+YDEP)*YRAP) 124 : CALL ZTACMZ(9,-1,Q) 125 : 1080 CONTINUE 125 : CALL ZTACMZ(9,1,Q) 126 : else 127 : Q(1)=BORNEX((XTR(1)+XDEP)*XRAP) 128 : Q(2)=BORNEY((YTR(1)+YDEP)*YRAP) 129 : Q(3)=BORNEX((XTR(2)+XDEP)*XRAP) 130 : Q(4)=BORNEY((YTR(2)+YDEP)*YRAP) 130 : CALL ZTACMZ(3,1,Q) 131 : endif 132 : RETURN 133 : ** 134 : ENTRY LTRDIG(XRO,XCOL,ICLE) 135 : * DIGITALISATION DE POINT IGNORE 136 : ICLE=0 137 : RETURN 138 : ** 139 : ENTRY LTRAFF(ICLE) 140 : * FIN DE DESSIN 140 : CALL ZTACMZ(2,-1,Q) 141 : ICLE=0 142 : RETURN 143 : ** 144 : ENTRY LMENU(LEGEND,NCASE,LLONG) 145 : * MENU IGNORE 146 : RETURN 147 : ** 148 : ENTRY LTRANI(ITYPI,NBIMAH) 149 : * ANIMATION IGNOREE 150 : RETURN 151 : ** 152 : ENTRY LTRIMA(IMAGI) 153 : * IMAGE IGNOREE 154 : RETURN 155 : ** 156 : ENTRY LFVALI(IFENI,IRESU,NH) 157 : * CHANGEMENT DE VIEW PORT 158 : IF (IFENI.EQ.1) THEN 159 : XRAP=CLX*10/0.95 160 : YRAP=clx*2/0.95 161 : XDEP=(xiocad-10*clx)/xrap 162 : YDEP=0. 163 : ENDIF 164 : NH=31 165 : RETURN 166 : ** 167 : ENTRY LZOOM(IZOOM,XMI,XMA,YMI,YMA) 168 : * IGNOREE 169 : RETURN 170 : ** 171 : ENTRY LINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA) 172 : * RETOUR AU DESSIN INITIAL IGNORE 173 : RETURN 174 : ** 175 : ENTRY LCHANG(IRESU,ISORT,ICHANG,JSEG) 176 : * AFFICHAGE DESAFFICHAGE NUM NOEUDS ELEMENTS QUAL IGNORE 177 : RETURN 178 : ** 179 : ENTRY LTRBOX(HAUTX,HAUTY) 180 : * INUTILISE 181 : RETURN 182 : ** 183 : ENTRY LTREFF 184 : * INUTILISE 185 : RETURN 186 : ** 187 : ENTRY LVAL(IRESU,ISORT,NISO) 188 : * INUTILISE 189 : RETURN 190 : ** 191 : ENTRY LMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL) 192 : * INUTILISE 193 : RETURN 194 : ** 195 : ** 196 : ENTRY LIMPR 197 : * INUTILISE 198 : RETURN 199 : ** 200 : ENTRY LTRTIN 201 : * INUTILISE 202 : RETURN 203 : ** 204 : ENTRY LFLGI 205 : * INUTILISE 206 : RETURN 207 : ** 208 : ENTRY LTRMES(CARAC) 209 : * INUTILISE 210 : RETURN 211 : ** 212 : ENTRY LTRGET(PROMPT,REPLY) 213 : * INUTILISE 214 : RETURN 215 : ENTRY LTRMFI 216 : * INUTILISE 217 : RETURN 218 : END 219 : 220 :
© Cast3M 2003 - All rights reserved.
Disclaimer