1 : C LOGDES SOURCE BP208322 12/08/02 21:15:26 7468 2 : C LOGDES SOURCE TL 94/12/22 21:15:44 1395 3 : SUBROUTINE LOGDES (TTXXX,TTYYY,TTXX,TTYY,AXE, 4 : & TCENTX,TCENTY,HTLOG,ICOLOG) 5 : *============================================================= 6 : * 7 : * DESSINE LE LOGO SEMT 8 : * 9 : *============================================================= 10 : * Modifications : 11 : * 12 : * 05 sept. 2007 Maugis 13 : * Maintien du segment AXE actif en modification 14 : * 15 : *============================================================= 16 : * 17 : * Entrée : 18 : * 19 : * TTXXX,TTYYY,TTXX,TTYY 20 : * : coordonnées du cadre 21 : * AXE : segment contenant les info. de tracer 22 : * TCENTX,TCENTY : coordonnées du logos 23 : * HTLOG : taille du logo 24 : * ICOLOG : couleur du logo 25 : * 26 : *============================================================= 27 : * 28 : * TOUTES LES VARIABLES COMMENCANT PAR T SONT EN SIMPLE PRECISION ! 29 : * 30 : *============================================================= 31 : IMPLICIT LOGICAL (Z) 32 : IMPLICIT INTEGER (I-N) 33 : IMPLICIT REAL*8 (A-H,O-S,U-Y) 34 : 35 : REAL TCENTX,TCENTY,HTLOG 36 : INTEGER ICOLOG 37 : DIMENSION TX(2),TY(2),TZ(2) 38 : * 39 : 40 : * 41 : -INC CCOPTIO 42 : *-INC SMEVOLL 43 : *-INC SMLREEL 44 : *-INC CCGEOME 45 : -INC TMAXE 46 : * 47 : SEGACT,AXE*MOD 48 : 49 : TZ(1)=0 50 : TZ(2)=0 51 : * 52 : * DESSIN DU LOGO SUR LE GRAPHIQUE 53 : * 53 : CALL CHCOUL(ICOLOG) 54 : TDX = (((TTXXX-TTXX)/10.) * 3./4. )*HTLOG 55 : TDY = (((TTYYY-TTYY)/10.) * 15./14.)*HTLOG 56 : TYNORM=11.3/REAL(YSUP-YINF) 57 : IF (ZCARRE) THEN 58 : TXNORM=12./REAL(XSUP-XINF) 59 : ELSE 60 : TXNORM=16./REAL(XSUP-XINF) 61 : ENDIF 62 : * 63 : * TRACE DES BOULES 64 : * 65 : TCOTEX = TDX*0.375 66 : TCOTEY = TDY*0.375 67 : TCOTX2 = TDX*0.3248 68 : TCOTY2 = TDY*0.1875 69 : TRX = TDX/(10./TXNORM) 70 : TRY = TDY/(10./TYNORM) 71 : TCOEFF = REAL(4.*ATAN(1.)/60.) 72 : * TCENTX=TTXXX-(TDX/2.) 73 : * TCENTY=TTYYY-(TDY/2.) 74 : DO 39 J=1,7 75 : GOTO (40,41,42,43,44,45,46),J 76 : 40 CONTINUE 77 : TCX=TCENTX 78 : TCY=TCENTY 79 : GOTO 47 80 : 41 CONTINUE 81 : TCX=TCENTX+TCOTEX 82 : TCY=TCENTY+TCOTY2 83 : GOTO 47 84 : 42 CONTINUE 85 : TCX=TCENTX 86 : TCY=TCENTY+TCOTEY 87 : GOTO 47 88 : 43 CONTINUE 89 : TCX=TCENTX-TCOTEX 90 : TCY=TCENTY+TCOTY2 91 : GOTO 47 92 : 44 CONTINUE 93 : TCX=TCENTX-TCOTEX 94 : TCY=TCENTY-TCOTY2 95 : GOTO 47 96 : 45 CONTINUE 97 : TCX=TCENTX 98 : TCY=TCENTY-TCOTEY 99 : GOTO 47 100 : 46 CONTINUE 101 : TCX=TCENTX+TCOTEX 102 : TCY=TCENTY-TCOTY2 103 : 47 CONTINUE 104 : DO I=0,90 105 : TI = REAL(I/3) 106 : TX(1)= (COS(TI*TCOEFF)/TXNORM)*TRX+TCX 107 : TY(1)= (SIN(TI*TCOEFF)/TYNORM)*TRY+TCY 108 : TX(2)= (-1.*COS(TI*TCOEFF)/TXNORM)*TRX+TCX 109 : TY(2)= TY(1) 109 : CALL POLRL (2,TX,TY,TZ) 110 : TY(1)= (-1.*SIN(TI*TCOEFF)/TYNORM)*TRY+TCY 111 : TY(2)= TY(1) 111 : CALL POLRL (2,TX,TY,TZ) 112 : ENDDO 113 : 39 CONTINUE 114 : * 115 : * TRACE DES LIAISONS ENTRE LES BOULES 116 : * 117 : TX(1)=TCENTX 118 : TY(1)=TCENTY 119 : TX(2)=TCENTX 120 : TY(2)=TCENTY-TCOTEY 120 : CALL POLRL (2,TX,TY,TZ) 121 : TX(2)=TCENTX+TCOTEX 122 : TY(2)=TCENTY+TCOTY2 122 : CALL POLRL (2,TX,TY,TZ) 123 : TX(2)=TCENTX 124 : TY(2)=TCENTY+TCOTEY 124 : CALL POLRL (2,TX,TY,TZ) 125 : TX(2)=TCENTX-TCOTEX 126 : TY(2)=TCENTY+TCOTY2 126 : CALL POLRL (2,TX,TY,TZ) 127 : TX(2)=TCENTX-TCOTEX 128 : TY(2)=TCENTY-TCOTY2 128 : CALL POLRL (2,TX,TY,TZ) 129 : TX(2)=TCENTX+TCOTEX 130 : TY(2)=TCENTY-TCOTY2 130 : CALL POLRL (2,TX,TY,TZ) 131 : TX(1)=TCENTX-TCOTEX 132 : TY(1)=TCENTY-TCOTY2 133 : TX(2)=TCENTX 134 : TY(2)=TCENTY-TCOTEY 134 : CALL POLRL (2,TX,TY,TZ) 135 : TX(1)=TCENTX+TCOTEX 136 : TY(1)=TCENTY-TCOTY2 136 : CALL POLRL (2,TX,TY,TZ) 137 : TX(2)=TCENTX+TCOTEX 138 : TY(2)=TCENTY+TCOTY2 139 : TX(1)=TCENTX 140 : TY(1)=TCENTY+TCOTEY 140 : CALL POLRL (2,TX,TY,TZ) 141 : TX(1)=TCENTX 142 : TY(1)=TCENTY-TCOTEY 143 : TX(2)=TCENTX+TCOTEX 144 : TY(2)=TCENTY+TCOTY2 144 : CALL POLRL (2,TX,TY,TZ) 145 : 146 : END 147 : 148 : 149 : 150 : 151 : 152 : 153 : 154 : 155 : 156 : 157 : 158 : 159 :
© Cast3M 2003 - All rights reserved.
Disclaimer