Télécharger la plaquette Cast3M


fr en

Télécharger dessin2.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier dessin2.dgibi
  2. * section : langage
  3. *----------------------------------------------------------------------*
  4. *                       D E S S I N 2 . D G I B I                      *
  5. *----------------------------------------------------------------------*
  6. * Objet :                                                              
  7. * -------
  8. *
  9. *    Exemples de construction et d'affichage de courbes d'EVOLUTION
  10. * avec la directive DESSIN.
  11. *
  12. *    On utilise notamment la possibilité de définir de styles de tracés
  13. * dans l'objet EVOLUTION afin de limiter le travail de mise en forme
  14. * au moment du dessin.
  15. *
  16. * Description :
  17. * -------------
  18. *
  19. * Type de calcul : aucun
  20. * Mode de calcul : 
  21. * Type d'element : 
  22. * Chargement     : 
  23. *
  24. *----------------------------------------------------------------------*
  25. *
  26. * Pour affichage, mettre IG1 a VRAI :
  27. ig1      = faux ;
  28.  
  29. *----------------------------------------------------------------------*
  30. *                    STYLE de courbe avec EVOL MANU                    *
  31. *----------------------------------------------------------------------*
  32. *
  33. * Exemple trace de cos(x) et sin(x) :
  34. lx1      = prog -50. pas 5. 1000. ;
  35. ly1      = cos lx1 ;
  36.  
  37. * Le titre de la directive est mis dans l'entete des evolutions crees :
  38. titr '1er exemple d''utilisation de styles de trace d''une evolution' ;
  39.  
  40. ev1      = evol bleu manu lege 'cos(x)' styl TIRR marq CROI tail S
  41.                 'angle (deg.)' lx1 ly1 ;
  42.  
  43. ly2      = sin lx1 ;
  44. ev2      = evol vert manu lege 'sin(x)' styl TIRL marq CARR tail S
  45.                 'angle (deg.)' lx1 ly2 ;
  46.  
  47. si ig1 ;
  48.   dess (ev1 et ev2) lege gril poin gris ;
  49. fins ;
  50.  
  51. * Test EXTRacton des attributs de trace :
  52. si (neg (extr ev1 styl) 'TIRR') ;
  53.   erre 5 ;
  54. fins ;
  55. si (neg (extr ev1 marq) 'CROI') ;
  56.   erre 5 ;
  57. fins ;
  58. si (neg (extr ev1 tail) 'S') ;
  59.   erre 5 ;
  60. fins ;
  61. si (neg (extr ev1 lege) 'cos(x)') ;
  62.   erre 5 ;
  63. fins ;
  64.  
  65. *----------------------------------------------------------------------*
  66. *                        CHANger STYLE de courbe                       *
  67. *----------------------------------------------------------------------*
  68. * 
  69. * Par mot-cles definissant les parametres de style :
  70. titr '2e exemple d''utilisation de styles' ;
  71. ev0      = ev1 et ev2 ;
  72. ev0      = ev0 chan styl noli marq rond 1 marq triu 2 tail M ;
  73. si ig1 ;
  74.   dess ev0 lege ;
  75. fins ;
  76.  
  77. * Test EXTRacton des attributs de trace avec plusieurs courbes :
  78. si (neg (extr ev0 styl 2) 'NOLI') ;
  79.   erre 5 ;
  80. fins ;
  81. si (neg (extr ev0 marq 2) 'TRIU') ;
  82.   erre 5 ;
  83. fins ;
  84. si (neg (extr ev0 tail 2) 'M') ;
  85.   erre 5 ;
  86. fins ;
  87. si (neg (extr ev0 lege 2) 'sin(x)') ;
  88.   erre 5 ;
  89. fins ;
  90.  
  91. * Par des numeros dans une boucle :
  92. titr '3e exemple d''utilisation de styles' ;
  93. repe b1 2 ;
  94.   ev0      = ev0 chan styl &b1 &b1 marq &b1 &b1 tail L ;
  95. fin b1 ;
  96. si ig1 ;
  97.   dess ev0 lege gril poin ;
  98. fins ;
  99.  
  100. * Changer la couleur des courbes :
  101. titr 'changement de couleur' ;
  102. ev0      = ev0 chan coul rose 1 coul 15 2 ;
  103. si ig1 ;
  104.   dess ev0 lege gril poin ;
  105. fins ;
  106.  
  107. *----------------------------------------------------------------------*
  108. *                       SAUVegarde / RESTitution                       *
  109. *----------------------------------------------------------------------*
  110.  
  111. * Test au format XDR :
  112. opti sauv 'dessin2.sauv' ; sauv ;
  113. opti sauv 'null.sauv';
  114. opti rest 'dessin2.sauv' ; rest ;
  115.  
  116. * On verifie qu'on a les memes courbes :
  117. si ig1 ;
  118.   dess ev0 lege gril poin titr 'apres restition sauvegarde au format XDR' ;
  119.   dess ev1 lege titr 'EV1 precedemment definie' ;
  120.   dess ev2 lege titr 'EV2 precedemment definie' ;
  121. fins ;
  122.  
  123. * Test au format "texte" :
  124. opti sauv format 'dessin2f.sauv' ; sauv format ;
  125. opti sauv 'null.sauv';
  126. opti rest 'dessin2f.sauv' ; rest format ;
  127.  
  128. * On verifie qu'on a les memes courbes :
  129. si ig1 ;
  130.   dess ev0 lege gril poin titr 'apres restition sauvegarde formatee' ;
  131.   dess ev1 lege titr 'EV1 precedemment definie' ;
  132.   dess ev2 lege titr 'EV2 precedemment definie' ;
  133. fins ;
  134.  
  135. *----------------   F I N   D E S S I N 2 . D G I B I   ---------------*
  136. fin ;
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  

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