Télécharger la plaquette Cast3M


fr en

Télécharger trac_anno.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : trac_anno.dgibi
  2. *
  3. OPTI 'DIME' 2 'ELEM' 'QUA4' ;
  4.  
  5. GRAPH = FAUX ;
  6.  
  7.  
  8. *********************************************************
  9. * DESCRIPTION DES PARTIES D'UN MAILLAGE VIA UNE LEGENDE *
  10. *********************************************************
  11.  
  12. LCLR = MOTS 'ROUG' 'BLEU' 'CYAN' 'INDI' 'JAUN' 'CARA' 'ROSE' 'ORAN' 'BOUT' 'VERT'
  13.             'BRIQ' 'AZUR' 'VIOL' 'OR'   'CORA' 'BRUN' 'MARI' 'BLAN' 'NOIR' 'TURQ' ; 
  14. NCLR = DIME LCLR ;
  15.  
  16. MSH2 = (0. 0.) DROI 5 (5. 0.) TRAN 5 (0. 5.) ;
  17.  
  18. MSH1 = VIDE 'MAILLAGE'/'QUA4' ;
  19. REPE K (NBEL MSH2) ;
  20.     ELK = ELEM MSH2 &K ;
  21.     CLR = EXTR LCLR ((@MOD (&K - 1) NCLR) + 1) ;
  22.     MSH1 = MSH1 ET (COUL CLR ELK) ;
  23. FIN K ;
  24.  
  25. ANN = VIDE 'ANNOTATI' ;
  26. MSG = 'Je suis %' ;
  27. REPE K NCLR ;
  28.     CLR = EXTR LCLR &K ;
  29.     ANN = ANN ET (ANNO 'CATE' CLR (REMP MSG '%' CLR)) ;
  30.  
  31.     SI ((&K EGA 3) OU (&K EGA 10) OU (&K EGA NCLR)) ;
  32.         OPTI 'TRAC' 'PSC' 'FTRA' (CHAI 'cate_x' &K '.ps') ;
  33.         TRAC MSH1 'FACE' ANN 'NCLK' ;
  34.  
  35.         SI GRAPH ;
  36.             OPTI 'TRAC' 'X' ;
  37.             TRAC MSH1 'FACE' ANN ;
  38.  
  39.             OPTI 'TRAC' 'OPEN' ;
  40.             TRAC MSH1 'FACE' ANN ;
  41.         FINS ;
  42.     FINS ;
  43. FIN K ;
  44.  
  45. LIST ANN ;
  46.  
  47.  
  48. ***************************************************
  49. * AJOUT D'ETIQUETTES EN CERTAINS POINTS D'INTERET *
  50. ***************************************************
  51.  
  52. DISTA = 0.3 ;
  53.  
  54. ANN_DEB = ANNO 'ETIQ' (0.5 0.5) DISTA 'SO' 'JE SUIS AU DEBUT' 'ROUG' ;
  55. ANN_CP1 = ANNO 'ETIQ' (2.5 0.5) DISTA 'S'  'CHECKPOINT 1' ;
  56. ANN_CP2 = ANNO 'ETIQ' (4.5 0.5) DISTA 'SE' 'CHECKPOINT 2' ;
  57. ANN_CP3 = ANNO 'ETIQ' (0.5 2.5) DISTA 'O'  'CHECKPOINT 5' ;
  58. ANN_CP4 = ANNO 'ETIQ' (2.5 2.5) DISTA 'C'  'CHECKPOINT 4' ;
  59. ANN_CP5 = ANNO 'ETIQ' (4.5 2.5) DISTA 'E'  'CHECKPOINT 3' ;
  60. ANN_CP6 = ANNO 'ETIQ' (0.5 4.5) DISTA 'NO' 'CHECKPOINT 6' ;
  61. ANN_CP7 = ANNO 'ETIQ' (2.5 4.5) DISTA 'N'  'CHECKPOINT 7' ;
  62. ANN_FIN = ANNO 'ETIQ' (4.5 4.5) DISTA 'NE' 'JE SUIS A LA FIN' 'VERT' ;
  63.  
  64. ANN2 = ANN_DEB ET ANN_CP1 ET ANN_CP2 ET ANN_CP3 ET ANN_CP4 ET
  65.        ANN_CP5 ET ANN_CP6 ET ANN_CP7 ET ANN_FIN ;
  66.  
  67. BOIT1 = BOITE (MSH2 HOMO (BARY MSH2) 1.5) ;
  68. *  pour tester le menage
  69. menage oblig;
  70.  
  71. OPTI 'TRAC' 'PSC' 'FTRA' 'etiq.ps' ;
  72. TRAC MSH2 ANN2 'BOIT' BOIT1 ;
  73.  
  74. SI GRAPH ;
  75.     OPTI 'TRAC' 'X' ;
  76.     TRAC MSH2 ANN2 ;
  77.  
  78.     OPTI 'TRAC' 'OPEN' ;
  79.     TRAC MSH2 ANN2 ;
  80. FINS ;
  81.  
  82. LIST ANN2 ;
  83.  
  84.  
  85. *******************************************************************
  86. * REMPLACEMENT DES ISOVALEURS CONTINUES PAR UNE COLORMAP DISCRETE *
  87. *******************************************************************
  88.  
  89. CHPO1 = BRUI 'BLAN' 'UNIF' 0. 1. MSH1 ;
  90.  
  91. ANN3 = (ANNO 'CATE' 'BLEU' 'Froid') ET (ANNO 'CATE' 'ROUG' 'Chaud') ;
  92.  
  93. OPTI 'TRAC' 'PSC' 'FTRA' 'discr.ps' ;
  94. TRAC MSH1 CHPO1 2 ANN3 ;
  95.  
  96. SI GRAPH ;
  97.     OPTI 'TRAC' 'X' ;
  98.     TRAC MSH1 CHPO1 2 ANN3 ;
  99.  
  100.     OPTI 'TRAC' 'OPEN' ;
  101.     TRAC MSH1 CHPO1 2 ANN3 ;
  102. FINS ;
  103.  
  104.  
  105. FIN ;
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  

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