Télécharger lire_STL.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : lire_STL.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. * Test lire_STL.dgibi: Jeux de données *
  7. * --------------------------------- *
  8. *******************************************************
  9.  
  10.  
  11. * Presentation : Ce cas-test permet de lire des MAILLAGES de 'TRI3' au
  12. * format 'STL'. Le resultat est un objet de type
  13. * TABLE. Chaque indice est un MAILLAGE
  14. *
  15. * Creation : 12/12/2016
  16. * Createur : C. BERTHINIER
  17. *******************************************************
  18. * repertoire des fichiers "divers"
  19. DIVERS = VENV 'CASTEM_DIVERS';
  20. *
  21.  
  22. OPTI TRAC 'PSC';
  23. OPTI ELEM CUB8;
  24.  
  25. complet = VRAI;
  26.  
  27. *******************************************************
  28. * Creation d'un MAILLAGE dans Cast3M
  29. * - MAILLAGE copie du cas-test elas9.dgibi
  30. *******************************************************
  31. si complet;
  32. K= 5;
  33. sinon;
  34. K= 1;
  35. finsi;
  36. *
  37. PB = 0. 2.75 0.;
  38. PB1 = 0. 2.75 (((3.25 ** 2) - (2.75 ** 2)) ** 0.5);
  39. PC = 3.25 0. 0.;
  40. *
  41. C1 = PC CERC (6 * K) (0. 0. 0.) PB1;
  42. C2 = C1 PROJ CYLI (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  43. *
  44. PA = 0. 1. 0.;
  45. PA1 = 0. 1. (((2. ** 2) - (1. ** 2)) ** 0.5);
  46. PD = 2. 0. 0.;
  47. *
  48. C3 = Pd CERC (6 * K) (0. 0. 0.) PA1;
  49. C4 = C3 PROJ CYLI (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  50. *
  51. D1 = PA DROI (2 * K) (0. 1.583 0.) DROI (2 * K) PB;
  52. D3 = PC DROI (2 * K) (2.417 0. 0.) DROI (2 * K) PD;
  53. *
  54. ELIM (D1 ET C2 ET D3 ET C4) 0.0001;
  55. SUR1 = DALL D1 C2 D3 C4 PLAN;
  56. *
  57. VOL1 = SUR1 VOLU (2 * K) TRAN (0. 0. -0.6);
  58.  
  59. ENV1 = ENVE VOL1;
  60. ENV1 = CHAN 'TRI3' ENV1;
  61.  
  62. *******************************************************
  63. * Sortie du MAILLAGE en STL ASCII
  64. *******************************************************
  65. OPTI SORT 'Mesh_STL.stl';
  66. SORT 'STL' ENV1;
  67.  
  68. *******************************************************
  69. * Relecture du MAILLAGE STL ASCII
  70. *******************************************************
  71. MAIL0 = LIRE 'STL' 'Mesh_STL.stl';
  72. MAIL0 = MAIL0 'COUL' 'ROUG';
  73. ELIM MAIL0 1D-8;
  74. TRAC FACE MAIL0;
  75.  
  76. * On essaye de faire VOLU pour verification
  77. OPTI ELEM 'TET4';
  78. MAIV2 = VOLU MAIL0;
  79. MAIV2 = MAIV2 COUL 'BLEU';
  80. TRAC FACE MAIV2;
  81.  
  82. *******************************************************
  83. * Relecture du MAILLAGE STL ASCII Multi-Solids
  84. *******************************************************
  85. MAIL01 = LIRE 'STL' ('CHAINE' DIVERS '/Multi_Solid.stl');
  86. MAIL01 = MAIL01 'COUL' 'ROUG';
  87. ELIM MAIL01 1D-8;
  88. TRAC FACE MAIL01;
  89.  
  90. *******************************************************
  91. * Relecture de MAILLAGES STL binaire
  92. * - Incompatible avec IBM AIX RS6000 ==> COMMENTE
  93. * - Voir avec XDR plutot
  94. *******************************************************
  95. SI FAUX;
  96. MAIL1 = LIRE 'STL' ('CHAINE' DIVERS '/Bear_Voronoi_fine.stl');
  97. MAIL1 = MAIL1 'COUL' 'BRUN';
  98. ELIM MAIL1 1D-8;
  99. TRAC FACE MAIL1;
  100.  
  101. MAIL2 = LIRE 'STL' ('CHAINE' DIVERS '/Thenatarius.stl');
  102. MAIL2 = MAIL2 'COUL' 'BRUN';
  103. ELIM MAIL2 1D-8;
  104. TRAC FACE MAIL2;
  105. FINS;
  106.  
  107. FIN;
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  

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