Télécharger logdes.eso

Retour à la liste

Numérotation des lignes :

  1. C LOGDES SOURCE BP208322 16/11/18 21:19:00 9177
  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. *
  54. CALL CHCOUL(ICOLOG)
  55. TDX = (((TTXXX-TTXX)/10.) * 3./4. )*HTLOG
  56. TDY = (((TTYYY-TTYY)/10.) * 15./14.)*HTLOG
  57. TYNORM=11.3/REAL(YSUP-YINF)
  58. IF (ZCARRE) THEN
  59. TXNORM=12./REAL(XSUP-XINF)
  60. ELSE
  61. TXNORM=16./REAL(XSUP-XINF)
  62. ENDIF
  63. *
  64. * TRACE DES BOULES
  65. *
  66. TCOTEX = TDX*0.375
  67. TCOTEY = TDY*0.375
  68. TCOTX2 = TDX*0.3248
  69. TCOTY2 = TDY*0.1875
  70. TRX = TDX/(10./TXNORM)
  71. TRY = TDY/(10./TYNORM)
  72. TCOEFF = REAL(4.*ATAN(1.)/60.)
  73. * TCENTX=TTXXX-(TDX/2.)
  74. * TCENTY=TTYYY-(TDY/2.)
  75. DO 39 J=1,7
  76. GOTO (40,41,42,43,44,45,46),J
  77. 40 CONTINUE
  78. TCX=TCENTX
  79. TCY=TCENTY
  80. GOTO 47
  81. 41 CONTINUE
  82. TCX=TCENTX+TCOTEX
  83. TCY=TCENTY+TCOTY2
  84. GOTO 47
  85. 42 CONTINUE
  86. TCX=TCENTX
  87. TCY=TCENTY+TCOTEY
  88. GOTO 47
  89. 43 CONTINUE
  90. TCX=TCENTX-TCOTEX
  91. TCY=TCENTY+TCOTY2
  92. GOTO 47
  93. 44 CONTINUE
  94. TCX=TCENTX-TCOTEX
  95. TCY=TCENTY-TCOTY2
  96. GOTO 47
  97. 45 CONTINUE
  98. TCX=TCENTX
  99. TCY=TCENTY-TCOTEY
  100. GOTO 47
  101. 46 CONTINUE
  102. TCX=TCENTX+TCOTEX
  103. TCY=TCENTY-TCOTY2
  104. 47 CONTINUE
  105. DO I=0,90
  106. TI = REAL(I/3)
  107. TX(1)= (COS(TI*TCOEFF)/TXNORM)*TRX+TCX
  108. TY(1)= (SIN(TI*TCOEFF)/TYNORM)*TRY+TCY
  109. TX(2)= (-1.*COS(TI*TCOEFF)/TXNORM)*TRX+TCX
  110. TY(2)= TY(1)
  111. CALL POLRL (2,TX,TY,TZ)
  112. TY(1)= (-1.*SIN(TI*TCOEFF)/TYNORM)*TRY+TCY
  113. TY(2)= TY(1)
  114. CALL POLRL (2,TX,TY,TZ)
  115. ENDDO
  116. 39 CONTINUE
  117. *
  118. * TRACE DES LIAISONS ENTRE LES BOULES
  119. *
  120. TX(1)=TCENTX
  121. TY(1)=TCENTY
  122. TX(2)=TCENTX
  123. TY(2)=TCENTY-TCOTEY
  124. CALL POLRL (2,TX,TY,TZ)
  125. TX(2)=TCENTX+TCOTEX
  126. TY(2)=TCENTY+TCOTY2
  127. CALL POLRL (2,TX,TY,TZ)
  128. TX(2)=TCENTX
  129. TY(2)=TCENTY+TCOTEY
  130. CALL POLRL (2,TX,TY,TZ)
  131. TX(2)=TCENTX-TCOTEX
  132. TY(2)=TCENTY+TCOTY2
  133. CALL POLRL (2,TX,TY,TZ)
  134. TX(2)=TCENTX-TCOTEX
  135. TY(2)=TCENTY-TCOTY2
  136. CALL POLRL (2,TX,TY,TZ)
  137. TX(2)=TCENTX+TCOTEX
  138. TY(2)=TCENTY-TCOTY2
  139. CALL POLRL (2,TX,TY,TZ)
  140. TX(1)=TCENTX-TCOTEX
  141. TY(1)=TCENTY-TCOTY2
  142. TX(2)=TCENTX
  143. TY(2)=TCENTY-TCOTEY
  144. CALL POLRL (2,TX,TY,TZ)
  145. TX(1)=TCENTX+TCOTEX
  146. TY(1)=TCENTY-TCOTY2
  147. CALL POLRL (2,TX,TY,TZ)
  148. TX(2)=TCENTX+TCOTEX
  149. TY(2)=TCENTY+TCOTY2
  150. TX(1)=TCENTX
  151. TY(1)=TCENTY+TCOTEY
  152. CALL POLRL (2,TX,TY,TZ)
  153. TX(1)=TCENTX
  154. TY(1)=TCENTY-TCOTEY
  155. TX(2)=TCENTX+TCOTEX
  156. TY(2)=TCENTY+TCOTY2
  157. CALL POLRL (2,TX,TY,TZ)
  158.  
  159. END
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales