Télécharger la plaquette Cast3M


fr en

Télécharger ltrini.eso

Retour à la liste

Numérotation des lignes : 

ltrini

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

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