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. *----------------------------------------------------------------------*
  52. *                        CHANger STYLE de courbe                       *
  53. *----------------------------------------------------------------------*
  54. * 
  55. * Par mot-cles definissant les parametres de style :
  56. titr '2e exemple d''utilisation de styles' ;
  57. ev0      = ev1 et ev2 ;
  58. ev0      = ev0 chan styl noli marq rond 1 marq triu 2 tail M ;
  59. si ig1 ;
  60.   dess ev0 lege ;
  61. fins ;
  62.  
  63. * Par des numeros dans une boucle :
  64. titr '3e exemple d''utilisation de styles' ;
  65. repe b1 2 ;
  66.   ev0      = ev0 chan styl &b1 &b1 marq &b1 &b1 tail L ;
  67. fin b1 ;
  68. si ig1 ;
  69.   dess ev0 lege gril poin ;
  70. fins ;
  71.  
  72. * Changer la couleur des courbes :
  73. titr 'changement de couleur' ;
  74. ev0      = ev0 chan coul rose 1 coul 15 2 ;
  75. si ig1 ;
  76.   dess ev0 lege gril poin ;
  77. fins ;
  78.  
  79. *----------------------------------------------------------------------*
  80. *                       SAUVegarde / RESTitution                       *
  81. *----------------------------------------------------------------------*
  82.  
  83. * Test au format XDR :
  84. opti sauv 'dessin2.sauv' ; sauv ;
  85. opti rest 'dessin2.sauv' ; rest ;
  86.  
  87. * On verifie qu'on a les memes courbes :
  88. si ig1 ;
  89.   dess ev0 lege gril poin titr 'apres restition sauvegarde au format XDR' ;
  90.   dess ev1 lege titr 'EV1 precedemment definie' ;
  91.   dess ev2 lege titr 'EV2 precedemment definie' ;
  92. fins ;
  93.  
  94. * Test au format "texte" :
  95. opti sauv format 'dessin2.sauv' ; sauv format ;
  96. opti rest 'dessin2.sauv' ; rest format ;
  97.  
  98. * On verifie qu'on a les memes courbes :
  99. si ig1 ;
  100.   dess ev0 lege gril poin titr 'apres restition sauvegarde formatee' ;
  101.   dess ev1 lege titr 'EV1 precedemment definie' ;
  102.   dess ev2 lege titr 'EV2 precedemment definie' ;
  103. fins ;
  104.  
  105. *----------------   F I N   D E S S I N 2 . D G I B I   ---------------*
  106. fin ;
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  

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