cyl_01.geo 340 Bytes
Newer Older
florez's avatar
florez committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SetFactory("OpenCASCADE");

Point(1) = {0, 0, 0};
Point(2) = {0, .5, 0};
Circle(1) = {0,0,0,0.5,0,2*Pi};
Extrude {0, 0, 1} {
  Curve{1}; 
}
//+
Curve Loop(2) = {3};
//+
Plane Surface(2) = {2};

Curve Loop(3) = {1};
Plane Surface(3) = {3};

Physical Surface("bottom") = {3};
Physical Surface("top") = {2};
Physical Surface("surface") = {1};