Télécharger test_dess.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : test_dess.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. * Teste quelques fonctionnalités décoratives de DESSIN
  5. *-----------------------------------------------------
  6.  
  7. * Mettre GRAPH a VRAI pour tracer a l'ecran, sinon tracer dans un .ps
  8. GRAPH = FAUX ;
  9. 'SI' ('NON' GRAPH) ;
  10. 'OPTION' 'TRACER' 'PSC';
  11. 'FINSI' ;
  12.  
  13. * test des couleurs de remplissage (problème) et des différents marqueurs
  14. * ceux qui sont sur les bords doivent apparaître
  15. a= 'EVOL' 'BLEU' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .3 .81) ;
  16. a=a 'ET' ('EVOL' 'ROUGE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .4 .83));
  17. a=a 'ET' ('EVOL' 'ROSE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .5 .85));
  18. a=a 'ET' ('EVOL' 'VERT' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .6 .89));
  19. a=a 'ET' ('EVOL' 'TURQ' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .7 .93));
  20. a=a 'ET' ('EVOL' 'JAUNE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .8 .96));
  21. a=a 'ET' ('EVOL' 'BLANC' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .9 1.0));
  22.  
  23. t = 'TABLE' ;
  24. t.1 = 'MOT' 'MARQ PLEI XL CARR';
  25. t.2 = 'MOT' 'MARQ PLEI L ROND';
  26. t.3 = 'MOT' 'MARQ PLEI M LOSA';
  27. t.4 = 'MOT' 'MARQ PLEI S CARR';
  28. t.5 = 'MOT' 'MARQ PLEI SS CARR';
  29. t.6 = 'MOT' 'MARQ MOIN';
  30. t.7 = 'MOT' 'MARQ BARR';
  31. t.titre = 'TABLE' ;
  32. t.titre.1 = 'MOT' 'taille XL' ;
  33. t.titre.2 = 'MOT' 'taille L' ;
  34. t.titre.3 = 'MOT' 'taille M' ;
  35. t.titre.4 = 'MOT' 'taille S' ;
  36. t.titre.5 = 'MOT' 'taille SS' ;
  37. t.titre.6 = 'MOT' 'MOINS' ;
  38. t.titre.7 = 'MOT' 'BARRE' ;
  39. 'DESSIN' a t 'LEGE' 'TITRE' 'Remarquez les taquets sur les bords' ;
  40.  
  41. * test des nouvelles couleurs d'évolution
  42. a= 'EVOL' 'ROSE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .1 .81) ;
  43. a=a 'ET' ('EVOL' 'BLANC' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .2 .83));
  44. a=a 'ET' ('EVOL' 'AZUR' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .3 .83));
  45. a=a 'ET' ('EVOL' 'ORANG' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .4 .83));
  46. a=a 'ET' ('EVOL' 'VIOLET' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .5 .85));
  47. a=a 'ET' ('EVOL' 'OCEAN' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .6 .89));
  48. a=a 'ET' ('EVOL' 'CYAN' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .7 .93));
  49. a=a 'ET' ('EVOL' 'OLIVE' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .8 .96));
  50. a=a 'ET' ('EVOL' 'GRIS' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .9 1.0));
  51. t = 'TABLE' ;
  52. t.1 = 'MOT' 'MARQ PLEIN L ROND';
  53. t.2 = 'MOT' 'MARQ PLEIN L ROND';
  54. t.3 = 'MOT' 'MARQ PLEIN L ROND';
  55. t.4 = 'MOT' 'MARQ PLEIN L ROND';
  56. t.5 = 'MOT' 'MARQ PLEIN L ROND';
  57. t.6 = 'MOT' 'MARQ PLEIN L ROND';
  58. t.7 = 'MOT' 'MARQ PLEIN L ROND';
  59. t.8 = 'MOT' 'MARQ PLEIN L ROND';
  60. t.9 = 'MOT' 'MARQ PLEIN L ROND';
  61. t.titre = 'TABLE' ;
  62. t.titre.1 = 'MOT' 'rose' ;
  63. t.titre.2 = 'MOT' 'blanc' ;
  64. t.titre.3 = 'MOT' 'azur' ;
  65. t.titre.4 = 'MOT' 'orange' ;
  66. t.titre.5 = 'MOT' 'violet';
  67. t.titre.6 = 'MOT' 'ocean';
  68. t.titre.7 = 'MOT' 'cyan';
  69. t.titre.8 = 'MOT' 'olive';
  70. t.titre.9 = 'MOT' 'gris';
  71. 'DESSIN' a t 'LEGE' 'TITRE' 'Joli, non ?';
  72.  
  73.  
  74. * test taille de titre (il est tronqué) et logo
  75. tit = 'CHAINE'
  76. 'aujourd hui je vais a l ecole et je vais bien m éclater car il y a '
  77. 'plein de copainssympaavecquijevaisjoueràchat' ;
  78. 'DESSIN' a t 'LEGE' 'TITRE' tit logo ;
  79.  
  80. * test de l'impression d'un label en chaque point d'une évolution
  81. ev = 'EVOL' 'VERT' 'MANU' 'X' (prog 0 .5 1) 'Y' (prog 0 .3 1);
  82. t = 'TABLE' ;
  83. t.1 = 'MOT' 'LABEL Coucou';
  84. 'DESSIN' ev t 'TITRE' 'Test impression de labels' ;
  85.  
  86. * test de l'impression des taquets en abscisses et vignettes contenant
  87. * le nom des points
  88. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  89. pt1 = 0 0;
  90. pt2 = 1.01 0;
  91. d = 'DROIT' pt1 pt2 10 ;
  92. x = 'COOR' 1 d ;
  93. e = 'EVOL' 'TURQ' 'CHPO' x d ;
  94. 'DESSIN' e 'TITRE' 'Test des vignettes de points en bas' ;
  95.  
  96. 'TEMPS' 'SGAC' 'IMPR' ;
  97.  
  98. * Test des nouvelles couleurs sur les maillages
  99. * ---------------------------------------------
  100. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  101.  
  102. 'OPTION' 'COULEUR' 'BLEU' ;
  103. m1 = 'MANU' 'QUA4' (0 0) (0 1) (1 1) (1 0) ;
  104. m2 = 'COULEUR' 'ROUG' ('PLUS' m1 (1 0)) ;
  105. m3 = 'COULEUR' 'ROSE' ('PLUS' m2 (1 0)) ;
  106. m4 = 'COULEUR' 'JAUN' ('PLUS' m3 (1 0)) ;
  107. m5 = 'COULEUR' 'VERT' ('PLUS' m4 (1 0)) ;
  108. m6 = 'COULEUR' 'TURQ' ('PLUS' m5 (1 0)) ;
  109. m7 = 'COULEUR' 'BLAN' ('PLUS' m6 (1 0)) ;
  110.  
  111. n1 = 'COULEUR' 'AZUR' ('PLUS' m1 (0 -1)) ;
  112. n2 = 'COULEUR' 'ORAN' ('PLUS' n1 (1 0)) ;
  113. n3 = 'COULEUR' 'VIOL' ('PLUS' n2 (1 0)) ;
  114. n4 = 'COULEUR' 'OCEA' ('PLUS' n3 (1 0)) ;
  115. n5 = 'COULEUR' 'CYAN' ('PLUS' n4 (1 0)) ;
  116. n6 = 'COULEUR' 'OLIV' ('PLUS' n5 (1 0)) ;
  117. n7 = 'COULEUR' 'GRIS' ('PLUS' n6 (1 0)) ;
  118.  
  119. 'TITRE' 'BLEU ROUG ROSE JAUN VERT TURQ BLAN ,'
  120. 'AZUR ORAN VIOL OCEA CYAN OLIV GRIS' ;
  121. 'TRACER' (m1 'ET' m2 'ET' m3 'ET' m4 'ET' m5 'ET' m6 'ET' m7 'ET'
  122. n1 'ET' n2 'ET' n3 'ET' n4 'ET' n5 'ET' n6 'ET' n7) 'FACE' ;
  123.  
  124. 'ERREUR' 0 ;
  125. 'FIN' ;
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  

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