Advertisement
Guest User

.geo file

a guest
Dec 12th, 2017
204
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.27 KB | None | 0 0
  1. // Gmsh project created on Mon Dec 11 18:31:08 2017
  2. SetFactory("OpenCASCADE");
  3. //+
  4. Point(1) = {5, 5, 0, 1.0};
  5. //+
  6. Point(2) = {0, 5, 0, 1.0};
  7. //+
  8. Point(3) = {0, 0, 0, 1.0};
  9. //+
  10. Point(4) = {5, 0, 0, 1.0};
  11. //+
  12. Line(1) = {3, 2};
  13. //+
  14. Line(2) = {2, 1};
  15. //+
  16. Line(3) = {1, 4};
  17. //+
  18. Line(4) = {4, 3};
  19. //+
  20. Line Loop(1) = {2, 3, 4, 1};
  21. //+
  22. Plane Surface(1) = {1};
  23. //+
  24. Extrude {0, 0, 5} {
  25. Line{1};
  26. }
  27. //+
  28. Extrude {0, 0, 5} {
  29. Line{2};
  30. }
  31. //+
  32. Extrude {0, 0, 5} {
  33. Line{4};
  34. }
  35. //+
  36. Circle(14) = {5, 2.5, 2.5, 0.5, 0, 2*Pi};
  37. //+
  38. Rotate {{1, 0, 0}, {5, 2.5, 2.5}, Pi/2} {
  39. Line{14};
  40. }
  41. //+
  42. Rotate {{0, 0, 1}, {5, 2.5, 2.5}, Pi/2} {
  43. Line{14};
  44. }
  45. //+
  46. Line(16) = {9, 8};
  47. //+
  48. Line Loop(6) = {11, 16, -9, 3};
  49. //+
  50. Line Loop(7) = {13, 7, 10, -16};
  51. //+
  52. Plane Surface(5) = {7};
  53. //+
  54. Line Loop(8) = {11, 16, -9, 3};
  55. //+
  56. Line Loop(9) = {14};
  57. //+
  58. Plane Surface(6) = {8, 9};
  59. //+
  60. Translate {20, 0, 0} {
  61. Duplicata { Surface{4}; Surface{3}; Surface{5}; Surface{2}; Surface{1}; Surface{6}; }
  62. }
  63. //+
  64. Rotate {{0, 0, 1}, {22.5, 2.5, 0}, Pi} {
  65. Surface{9}; Surface{10}; Surface{11}; Surface{7}; Surface{8}; Surface{12};
  66. }
  67. //+
  68. Extrude {15, 0, 0} {
  69. Line{14};
  70. }
  71. //+
  72. Surface Loop ( 1 ) = { 1, 2, 3, 5, 4, 6, 13, 12, 11, 7, 10, 8, 9 };
  73. //+
  74. Volume ( 1 ) = { 1 };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement