cyl_02.geo 360 Bytes
Newer Older
florez's avatar
florez committed
1
2
3
4
5
6
7
8
9
10
11
12
13
SetFactory("OpenCASCADE");

Point(1) = {0, 0, 0};
Point(2) = {0, .5, 0};

Circle(1) = {0,0,0,0.5,0,2*Pi};
Curve Loop(2) = {1};
Plane Surface(1) = {2};

Extrude {0, 0, 1} {
  Surface{1}; 
}

florez's avatar
change    
florez committed
14
15
16
Plane Surface(3) = {3}

Volume(2) = {2};
florez's avatar
florez committed
17
18
19

Physical Surface("bottom") = {1};
Physical Surface("top") = {3};
florez's avatar
change    
florez committed
20
21
22
Surface Loop(2) = {3, 2, 1};

Physical Volume("volume") = {1};