Télécharger test_trac.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : test_trac.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. * Teste TRAC avec les nouvelles couleurs
  6. *---------------------------------------
  7.  
  8. * Mettre GRAPH a VRAI si trace en interactif, sinon trace en Postscript
  9. GRAPH = FAUX ;
  10. 'SI' ('NON' GRAPH) ; OPTI 'TRAC' 'PSC' ; 'FINSI' ;
  11.  
  12. OPTI 'DIME' 2 'ELEM' 'QUA4' ;
  13.  
  14. p1 = 0 0 ;
  15. p2 = 1 0 ;
  16. p3 = 1 1 ;
  17. p4 = 0 1 ;
  18.  
  19. *-- teste l'option 'COUL'
  20. OPTI 'COULEUR' 'BLEU' ;
  21. mesh = 'MANU' 'QUA4' p1 p2 p3 p4 ;
  22. TRAC mesh 'COULEUR' 'BLEU' 'NCLK'
  23. 'TITRE' 'on doit voir un carre bleu';
  24.  
  25. *-- teste l'une des nouvelles couleurs
  26. TRAC ('COULEUR' mesh 'ORAN') 'NCLK'
  27. 'TITRE' 'on doit voir un carre orange';
  28.  
  29. *-- teste les isovaleurs
  30. bchpo = 'COOR' 1 mesh ;
  31. TRAC bchpo mesh 'NCLK'
  32. 'TITRE' 'on doit voir un dégradé surfacique';
  33. * le long d'une ligne
  34. TRAC bchpo ('CHANGER' mesh 'LIGNE') 'NCLK'
  35. 'TITRE' 'on doit voir un dégradé le long des lignes';
  36. * avec un nombre inférieur à 16
  37. TRAC bchpo mesh ('PROG' 0 'PAS' .1 1.) 'NCLK' ;
  38. * avec un nombre inférieur à 8
  39. TRAC bchpo mesh ('PROG' 0 'PAS' .2 1.) 'NCLK' ;
  40. * avec des lignes
  41. OPTI 'ISOV' 'LIGNE' ;
  42. TRAC bchpo mesh 'NCLK'
  43. 'TITRE' 'avec courbes isovaleurs';
  44.  
  45. *-- teste les vecteurs (en 3D car ET foire en 2D)
  46. OPTI 'DIME' 3 ;
  47. OPTI oeil (0. 0. 1.d30) ;
  48. licoul = 'MOTS' 'DEFAUT' 'BLEU' 'ROUGE' 'ROSE' 'JAUNE' 'VERT' 'TURQ'
  49. 'AZUR' 'ORANGE' 'VIOLET' 'OCEAN' 'CYAN' 'OLIVE' 'GRIS';
  50. ncoul = 'DIME' licoul ;
  51. 'REPETER' bcl ncoul ;
  52. i = &bcl ;
  53. icoul = 'EXTR' licoul i ;
  54. ang = (i-1.) * 360. / ncoul ;
  55. c = 'MANU' 'CHPO' mesh 3 'UX' (('COS' ang))
  56. 'UY' (('SIN' ang)) 'UZ' 0.;
  57. v = 'VECTEUR' 0.1 c 'UX' 'UY' 'UZ' icoul ;
  58. 'SI' (i 'EGA' 1) ;
  59. vtot = v ;
  60. 'SINON' ;
  61. vtot = vtot 'ET' v ;
  62. 'FINSI' ;
  63. 'FIN' bcl;
  64.  
  65. 'TITRE' 'on doit voir plein de vecteurs colorés en cercle';
  66. TRAC mesh vtot ;
  67.  
  68. *-- teste les déformées
  69. defanim = ANIME 20 mesh ('NOMC' bchpo 'UX') 1. ;
  70. *bp TRAC defanim 'NCLK'
  71. *bp TRAC defanim
  72. *bp 'TITRE' 'on doit voir toutes les amplitudes jusqu a 1';
  73. TRAC defanim 'ANIME'
  74. 'TITRE' 'clic sur animation : visu deformees jusqu a 1';
  75. OPTI 'ISOV' 'SURFACE' ;
  76. defanim = ANIME 3 mesh ('NOMC' bchpo 'UX') 1. bchpo ;
  77. *bp TRAC defanim 'NCLK'
  78. TRAC defanim 'ANIME'
  79. 'TITRE' 'ok ?';
  80.  
  81. *-- teste les déformées multiples avec/sans isovaleurs
  82. d12 = droi p1 10 p2;
  83. ychpo = (sin (180.* (coor d12 1))) NOMC 'UY';
  84. amp1 = 0.5;
  85. def1 = defo d12 ychpo amp1 ychpo;
  86. def0 = defo d12 (0.*ychpo) 'GRIS';
  87. def05 = defo d12 (0.5*ychpo) (0.5*amp1) (0.5*ychpo);
  88. def08 = defo d12 (0.8*ychpo) (0.8*amp1) 'GRIS';
  89. trac (def0 et def05 et def08 et def1)
  90. TITRE '0 et 0.8 en gris - 0.5 et 1 avec isovaleurs';
  91.  
  92. *-- teste les déformées avec vecteur
  93. vec1 = VECT ychpo amp1 'DEPL';
  94. def00 = defo d12 (0.*ychpo) amp1 vec1 'GRIS';
  95. trac (def00 et def1)
  96. TITRE '0 gris + vecteur bleu = 1 avec isovaleurs';
  97.  
  98. * opti donn 5 ;
  99. 'FIN' ;
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  

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