Télécharger tasse.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : tasse.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. * Test tasse.dgibi: Jeux de données *
  7. * --------------------------------- *
  8. *******************************************************
  9. * Presentation : Ce cas-test de verification permet de
  10. * lire un fichier au format 'STL'
  11. * representant une tasse avec le logo
  12. * Cast3M dessus.
  13. *
  14. * Creation : 03/12/2020
  15. * Createur : F. DI PAOLA
  16. *******************************************************
  17.  
  18. * Le fichier tasse.stl est en binaire "little-endian" et
  19. * n'est pas lisible sous IBM-RS6000
  20. * Cette limitation du format STL n'est pas portable
  21. * Le cas-test est commente
  22. FIN;
  23.  
  24. 'OPTI' 'TRAC' 'PSC' ;
  25. tasse ='LIRE' 'STL' '/u2/castem/divers/tasse.stl' ;
  26. 'ELIM' tasse 1.E-10 ;
  27. atasse = ARET tasse ;
  28.  
  29. COMPLET=FAUX;
  30.  
  31. TASSE2='VIDE' 'MAILLAGE';
  32. TAB1 ='PART' tasse 'SEPA' atasse 'MAIL' ;
  33. DIM1 ='DIME' TAB1 - 2;
  34. 'REPE' SURi DIM1;
  35.  
  36. 'SI' ((&SURi '>EG' 66) 'ET' (&SURi '<EG' 72));
  37. TAB1. &SURi='COUL' TAB1. &SURi 'ROUG' ;
  38. 'SINO';
  39. TAB1. &SURi='COUL' TAB1. &SURi 'GRIS' ;
  40. 'FINS';
  41. TASSE2=TASSE2 'ET' TAB1. &SURi;
  42.  
  43. 'SI' COMPLET;
  44. TIT1='CHAI' 'PARTIE NUMERO:' &SURi ;
  45. 'TRAC' 'FACE' TAB1. &SURi 'TITR' TIT1 'ARET' atasse;
  46. 'FINS';
  47. 'FIN' SURi;
  48.  
  49. 'TRAC' 'FACE' TASSE2 'ARET' atasse (1136.6 1975.3 797.37);
  50. 'TRAC' 'FACE' TASSE2 'ARET' atasse (516.51 -2216.1 837.11);
  51.  
  52. FIN ;
  53.  
  54.  
  55.  

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