Télécharger ltrini.eso

Retour à la liste

Numérotation des lignes :

  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.
  38. CALL ZTACMZ(2,25,Q)
  39. RETURN
  40. **
  41. ENTRY LDFENE(XMI,XXA,YMI,YYA,XR1,XR2,YR1,YR2,FENE)
  42. * DEFINITION FENETRE
  43. XR1=XMI
  44. XR2=XXA
  45. YR1=YMI
  46. YR2=YYA
  47. FENET=FENE
  48. XMIN=XMI
  49. XXAX=XXA
  50. YMIN=YMI
  51. YYAX=YYA
  52. IF (FENET) THEN
  53. if (.not.valeur) xiocad=xiocad-5*clx
  54. if (valeur) xiocad=xiocad-10*clx
  55. endif
  56. yiocad=yiocad-2*clx
  57. XRAP=xIOCAD/(XXAX-XMIN)*0.95
  58. YRAP=yIOCAD/(YYAX-YMIN)*0.95
  59. rap=min(xrap,yrap)
  60. if (fenet) then
  61. xrap=rap
  62. yrap=rap
  63. endif
  64. IF (FENET) THEN
  65. if (.not.valeur) xiocad=xiocad+5*clx
  66. if (valeur) xiocad=xiocad+10*clx
  67. endif
  68. yiocad=yiocad+2*clx
  69. XDEP=-XMIN + (xxax-xmin)*0.02
  70. YDEP=-YMIN + (YYAX-YMIN)*0.02 +CLX/YRAP
  71. CHAINE(1:LTITRE)=TITRE(1:LTITRE)
  72. NBC=LTITRE
  73. Q(1)=bornex(0.)
  74. Q(2)=borney(0.)
  75. XCO=NBC*CLX/XRAP
  76. YCO=0
  77. Q(3)=bornex(XCO*XRAP)
  78. Q(4)=borney(YCO*YRAP)
  79. CALL ZTACMZ(4,NBC,Q)
  80. READ(CHAINE,FMT='(20A4)') (Q(I),I=1,1+(NBC-1)/4)
  81. CALL ZTACMZ(1,1,Q)
  82. RETURN
  83. **
  84. ENTRY LTRLAB(XT,YT,CARAC,NCARR,HAUT)
  85. * ECRITURE TEXT
  86. NBC=LONG(CARAC(1:NCARR))
  87. Q(1)=BORNEX((XDEP+XT)*XRAP)
  88. Q(2)=BORNEY((YDEP+YT)*YRAP)
  89. Q(3)=bornex(Q(1)+NBC*CLX)
  90. Q(4)=borney(Q(2))
  91. CALL ZTACMZ(4,NBC+256*(0+3),Q)
  92. CHAINE=CARAC(1:NBC)
  93. READ(CHAINE,FMT='(20A4)') (Q(I),I=1,1+(NBC-1)/4)
  94. CALL ZTACMZ(1,1,Q)
  95. RETURN
  96. **
  97. ENTRY LCHCOU(JCOLO)
  98. * CHANGEMENT DE COULEUR
  99. CALL ZTACMZ(6,ICOLT(JCOLO+1),Q)
  100. CALL ZTACMZ(6,ICOLT(JCOLO+1)+10000,Q)
  101. CALL ZTACMZ(10,ICOLT(JCOLO+1),Q)
  102. RETURN
  103. **
  104. ENTRY LINSEG(JSEG,IRESS)
  105. * CHANGEMENT SEGMENT IGNORE
  106. RETURN
  107. **
  108. ENTRY LPOLRL(NTRSTU,XTR,YTR)
  109. * POLYLINE
  110. DO 1060 I=1,NTRSTU-1
  111. Q(1)=BORNEX((XTR(I)+XDEP)*XRAP)
  112. Q(2)=BORNEY((YTR(I)+YDEP)*YRAP)
  113. Q(3)=BORNEX((XTR(I+1)+XDEP)*XRAP)
  114. Q(4)=BORNEY((YTR(I+1)+YDEP)*YRAP)
  115. CALL ZTACMZ(3,1,Q)
  116. 1060 CONTINUE
  117. RETURN
  118. **
  119. ENTRY LTRFAC(NTRSTU,XTR,YTR,ZN,ICOLE,IEFF)
  120. * FACETTE
  121. CALL ZTACMZ(6,ICOLT(ICOLE+1),Q)
  122. CALL ZTACMZ(10,ICOLT(ICOLE+1),Q)
  123. CALL ZTACMZ(9,0,Q)
  124. DO 1070 I=1,NTRSTU
  125. Q(1)=BORNEX((XTR(I)+XDEP)*XRAP)
  126. Q(2)=BORNEY((YTR(I)+YDEP)*YRAP)
  127. CALL ZTACMZ(9,-1,Q)
  128. 1070 CONTINUE
  129. CALL ZTACMZ(9,1,Q)
  130. IEFF=1
  131. RETURN
  132. **
  133. ENTRY LTRAIS(NP,XTR,YTR,ICOLE)
  134. * FACETTE
  135. CALL ZTACMZ(6,ICOLT(ICOLE+1),Q)
  136. CALL ZTACMZ(10,ICOLT(ICOLE+1),Q)
  137. if (np.gt.2) then
  138. CALL ZTACMZ(9,0,Q)
  139. DO 1080 I=1,NP
  140. Q(1)=BORNEX((XTR(I)+XDEP)*XRAP)
  141. Q(2)=BORNEY((YTR(I)+YDEP)*YRAP)
  142. CALL ZTACMZ(9,-1,Q)
  143. 1080 CONTINUE
  144. CALL ZTACMZ(9,1,Q)
  145. else
  146. Q(1)=BORNEX((XTR(1)+XDEP)*XRAP)
  147. Q(2)=BORNEY((YTR(1)+YDEP)*YRAP)
  148. Q(3)=BORNEX((XTR(2)+XDEP)*XRAP)
  149. Q(4)=BORNEY((YTR(2)+YDEP)*YRAP)
  150. CALL ZTACMZ(3,1,Q)
  151. endif
  152. RETURN
  153. **
  154. ENTRY LTRDIG(XRO,XCOL,ICLE)
  155. * DIGITALISATION DE POINT IGNORE
  156. ICLE=0
  157. RETURN
  158. **
  159. ENTRY LTRAFF(ICLE)
  160. * FIN DE DESSIN
  161. CALL ZTACMZ(2,-1,Q)
  162. ICLE=0
  163. RETURN
  164. **
  165. ENTRY LMENU(LEGEND,NCASE,LLONG)
  166. * MENU IGNORE
  167. RETURN
  168. **
  169. ENTRY LTRANI(ITYPI,NBIMAH)
  170. * ANIMATION IGNOREE
  171. RETURN
  172. **
  173. ENTRY LTRIMA(IMAGI)
  174. * IMAGE IGNOREE
  175. RETURN
  176. **
  177. ENTRY LFVALI(IFENI,IRESU,NH)
  178. * CHANGEMENT DE VIEW PORT
  179. IF (IFENI.EQ.1) THEN
  180. XRAP=CLX*10/0.95
  181. YRAP=clx*2/0.95
  182. XDEP=(xiocad-10*clx)/xrap
  183. YDEP=0.
  184. ENDIF
  185. NH=31
  186. RETURN
  187. **
  188. ENTRY LZOOM(IZOOM,XMI,XMA,YMI,YMA)
  189. * IGNOREE
  190. RETURN
  191. **
  192. ENTRY LINI(IRESU,ISORT,IQUALI,INUMNO,INUMEL,XMI,XMA,YMI,YMA)
  193. * RETOUR AU DESSIN INITIAL IGNORE
  194. RETURN
  195. **
  196. ENTRY LCHANG(IRESU,ISORT,ICHANG,JSEG)
  197. * AFFICHAGE DESAFFICHAGE NUM NOEUDS ELEMENTS QUAL IGNORE
  198. RETURN
  199. **
  200. ENTRY LTRBOX(HAUTX,HAUTY)
  201. * INUTILISE
  202. RETURN
  203. **
  204. ENTRY LTREFF
  205. * INUTILISE
  206. RETURN
  207. **
  208. ENTRY LVAL(IRESU,ISORT,NISO)
  209. * INUTILISE
  210. RETURN
  211. **
  212. ENTRY LMAJSE(IMAJ,IRESU,IQUALI,INUMNO,INUMEL)
  213. * INUTILISE
  214. RETURN
  215. **
  216. **
  217. ENTRY LIMPR
  218. * INUTILISE
  219. RETURN
  220. **
  221. ENTRY LTRTIN
  222. * INUTILISE
  223. RETURN
  224. **
  225. ENTRY LFLGI
  226. * INUTILISE
  227. RETURN
  228. **
  229. ENTRY LTRMES(CARAC)
  230. * INUTILISE
  231. RETURN
  232. **
  233. ENTRY LTRGET(PROMPT,REPLY)
  234. * INUTILISE
  235. RETURN
  236. ENTRY LTRMFI
  237. * INUTILISE
  238. RETURN
  239. END
  240.  
  241.  
  242.  

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