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.  
  19. OPTI TRAC 'PSC';
  20. OPTI ELEM CUB8;
  21.  
  22. complet = VRAI;
  23.  
  24. *******************************************************
  25. * Creation d'un MAILLAGE dans Cast3M
  26. * - MAILLAGE copie du cas-test elas9.dgibi
  27. *******************************************************
  28. si complet;
  29. K= 5;
  30. sinon;
  31. K= 1;
  32. finsi;
  33. *
  34. PB = 0. 2.75 0.;
  35. PB1 = 0. 2.75 (((3.25 ** 2) - (2.75 ** 2)) ** 0.5);
  36. PC = 3.25 0. 0.;
  37. *
  38. C1 = PC CERC (6 * K) (0. 0. 0.) PB1;
  39. C2 = C1 PROJ CYLI (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  40. *
  41. PA = 0. 1. 0.;
  42. PA1 = 0. 1. (((2. ** 2) - (1. ** 2)) ** 0.5);
  43. PD = 2. 0. 0.;
  44. *
  45. C3 = Pd CERC (6 * K) (0. 0. 0.) PA1;
  46. C4 = C3 PROJ CYLI (0. 0. 1) PLAN (0 0 0) (1 0 0) (0 1 0);
  47. *
  48. D1 = PA DROI (2 * K) (0. 1.583 0.) DROI (2 * K) PB;
  49. D3 = PC DROI (2 * K) (2.417 0. 0.) DROI (2 * K) PD;
  50. *
  51. ELIM (D1 ET C2 ET D3 ET C4) 0.0001;
  52. SUR1 = DALL D1 C2 D3 C4 PLAN;
  53. *
  54. VOL1 = SUR1 VOLU (2 * K) TRAN (0. 0. -0.6);
  55.  
  56. ENV1 = ENVE VOL1;
  57. ENV1 = CHAN 'TRI3' ENV1;
  58.  
  59. *******************************************************
  60. * Sortie du MAILLAGE en STL ASCII
  61. *******************************************************
  62. OPTI SORT 'Mesh_STL.stl';
  63. SORT 'STL' ENV1;
  64.  
  65. *******************************************************
  66. * Relecture du MAILLAGE STL ASCII
  67. *******************************************************
  68. MAIL0 = LIRE 'STL' 'Mesh_STL.stl';
  69. MAIL0 = MAIL0 'COUL' 'ROUG';
  70. ELIM MAIL0 1D-8;
  71. TRAC FACE MAIL0;
  72.  
  73. * On essaye de faire VOLU pour verification
  74. OPTI ELEM 'TET4';
  75. MAIV2 = VOLU MAIL0;
  76. MAIV2 = MAIV2 COUL 'BLEU';
  77. TRAC FACE MAIV2;
  78.  
  79. *******************************************************
  80. * Relecture du MAILLAGE STL ASCII Multi-Solids
  81. *******************************************************
  82. MAIL01 = LIRE 'STL' '/u2/castem/divers/Multi_Solid.stl';
  83. MAIL01 = MAIL01 'COUL' 'ROUG';
  84. ELIM MAIL01 1D-8;
  85. TRAC FACE MAIL01;
  86.  
  87. *******************************************************
  88. * Relecture de MAILLAGES STL binaire
  89. * - Incompatible avec IBM AIX RS6000 ==> COMMENTE
  90. * - Voir avec XDR plutot
  91. *******************************************************
  92. SI FAUX;
  93. MAIL1 = LIRE 'STL' '/u2/castem/divers/Bear_Voronoi_fine.stl';
  94. MAIL1 = MAIL1 'COUL' 'BRUN';
  95. ELIM MAIL1 1D-8;
  96. TRAC FACE MAIL1;
  97.  
  98. MAIL2 = LIRE 'STL' '/u2/castem/divers/Thenatarius.stl';
  99. MAIL2 = MAIL2 'COUL' 'BRUN';
  100. ELIM MAIL2 1D-8;
  101. TRAC FACE MAIL2;
  102. FINS;
  103.  
  104. FIN;
  105.  
  106.  
  107.  
  108.  

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