Skip to content
Snippets Groups Projects
Commit 7fd1c722 authored by Emilie Marchandise's avatar Emilie Marchandise
Browse files

No commit message

No commit message
parent dc5d4194
No related branches found
No related tags found
No related merge requests found
//-*- C++ -*-
/*********************************************
Cube uniformly meshed along all three axes
**********************************************/
lc = 0.2; //.05;
// Radius of the cylinder:
R = 0.5;
// Length of the cylinder:
L = 5;
Point(0) = {0, 0, 0, lc};
Point(1) = {R, 0, 0, lc};
Point(2) = {0, R, 0, lc};
Point(3) = {-R, 0, 0, lc};
Point(4) = {0, -R, 0, lc};
Circle(1) = {1,0,2};
Circle(2) = {2,0,3};
Circle(3) = {3,0,4};
Circle(4) = {4,0,1};
nb_pts_edge = 5;
nb_layers = 30;
For iLine In {1:4}
Transfinite Line{iLine} = nb_pts_edge;
EndFor
Line Loop(1) = {1,2,3,4};
Plane Surface(1) = {1};
out[] = Extrude{0, 0, L}{Surface{1}; Layers{nb_layers};};
Extrude { Surface{13,17,21,25}; Layers{5, 0.1}; Recombine; Using Index[0]; }
Extrude { Surface{-13,-17,-21,-25}; Layers{5, 0.1}; Recombine; Using Index[1]; }
...@@ -37,5 +37,8 @@ Ruled Surface(26) = {25}; ...@@ -37,5 +37,8 @@ Ruled Surface(26) = {25};
Line Loop(27) = {-4,12,-6}; Line Loop(27) = {-4,12,-6};
Ruled Surface(28) = {27}; Ruled Surface(28) = {27};
Surface Loop(1)={14,16,18,20,22,24,26,28};
Volume(2) = {1};
Extrude { Surface{14:28:2}; Layers{5, 0.1}; Recombine; Using Index[0]; } Extrude { Surface{14:28:2}; Layers{5, 0.1}; Recombine; Using Index[0]; }
Extrude { Surface{-14,-16,-18,-20,-22,-24,-26,-28}; Layers{5, 0.1}; Recombine; Using Index[1]; } Extrude { Surface{-14,-16,-18,-20,-22,-24,-26,-28}; Layers{5, 0.1}; Recombine; Using Index[1]; }
...@@ -11,8 +11,8 @@ BSpline(1) = {5, 4, 3, 2, 1}; ...@@ -11,8 +11,8 @@ BSpline(1) = {5, 4, 3, 2, 1};
BSpline(2) = {1, 9, 8, 7, 5}; BSpline(2) = {1, 9, 8, 7, 5};
Line(3) = {5, 6}; Line(3) = {5, 6};
Extrude { Line{1,-3}; Layers{5,0.1}; Using Index[0]; } Extrude { Line{1,-3}; Layers{5,0.2}; Using Index[0]; }
Extrude { Line{2,3}; Layers{5,0.1}; Using Index[1]; } Extrude { Line{2,3}; Layers{5,0.2}; Using Index[1]; }
// fix leading edge by hand // fix leading edge by hand
Coherence Point {25, 16}; Coherence Point {25, 16};
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment