box.geo 539 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
L = 10e3;
l = 125;
Point(1) = {-L, -l, 0};
Point(2) = {L, -l, 0};
Point(3) = {L, l, 0};
Point(4) = {-L, l, 0};
Line(1) = {1, 2};
Line(2) = {2, 3};
Line(3) = {3, 4};
Line(4) = {4, 1};
Line Loop(1) = {3, 4, 1, 2};
Plane Surface(1) = {1};


Transfinite Line{2} = 2;
Transfinite Line{4} = 2;


Transfinite Line{1} = 80+1;
Transfinite Line{3} = 80+1;

Mesh.Algorithm=8;

Recombine Surface{1};

Physical Surface("sea")={1};
Physical Line("coastR") = {2};
Physical Line("coastL") = {4};
Physical Line("cut") = {3};
Physical Line("paste") = {1};