Télécharger trac_anno.dgibi

Retour à la liste

Numérotation des lignes :

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

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