Télécharger trac_lege.dgibi

Retour à la liste

Numérotation des lignes :

  1. * CET EXEMPLE TESTE LE MOT-CLE 'LEGE' DE L'OPERATEUR TRAC POUR LES
  2. * AFFICHAGES 'PSC', 'X' ET 'OPEN'
  3.  
  4. OPTI 'DIME' 2 'ELEM' 'QUA4' ;
  5.  
  6. LCLR = MOTS 'ROUG' 'BLEU' 'CYAN' 'INDI' 'JAUN' 'CARA' 'ROSE' 'ORAN' 'BOUT' 'VERT'
  7. 'BRIQ' 'AZUR' 'VIOL' 'OR' 'CORA' 'BRUN' 'MARI' 'BLAN' 'NOIR' 'TURQ' ;
  8. NCLR = DIME LCLR ;
  9.  
  10. TMP = (0. 0.) DROI 5 (2. 0.) TRAN 5 (0. 2.) ;
  11.  
  12. MSH = VIDE 'MAILLAGE'/'QUA4' ;
  13. REPE K (NBEL TMP) ;
  14. ELK = ELEM TMP &K ;
  15. CLR = EXTR LCLR ((@MOD (&K - 1) NCLR) + 1) ;
  16. MSH = MSH ET (COUL CLR ELK) ;
  17. FIN K ;
  18.  
  19. TAB1 = TABL ;
  20. REPE K NCLR ;
  21. CLR = EXTR LCLR &K ;
  22. TAB1.CLR = CHAI 'Je suis' ' ' CLR ;
  23.  
  24. SI ((&K EGA 3) OU (&K EGA 10) OU (&K EGA NCLR)) ;
  25. OPTI 'TRAC' 'PSC' 'FTRA' (CHAI 'test_' &K '.ps') ;
  26. TRAC MSH 'FACE' 'LEGE' TAB1 ;
  27.  
  28. * OPTI 'TRAC' 'X' ;
  29. * TRAC MSH 'FACE' 'LEGE' TAB1 'NCLK' ;
  30. *
  31. * OPTI 'TRAC' 'OPEN' ;
  32. * TRAC MSH 'FACE' 'LEGE' TAB1 'NCLK' ;
  33. FINS ;
  34. FIN K ;
  35.  
  36. FIN ;
  37.  
  38.  
  39.  
  40.  
  41.  

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