I am glad for any help and thank in advance!
Stefan -- ---------------------------------------------------------------------------------------------------------- Stefan Zörner Vienna University of Technology Wiedner Hauptstrasse 8-10 A-1040 Wien, Austria
Mesh.RecombineAll = 1;
Geometry.CopyMeshingMethod=1;
Point(1) = {0, -1, -1, 1.0};
Point(2) = {0, 1, -1, 1.0};
Point(3) = {0, 1, 1, 1.0};
Point(4) = {0, -1, 1, 1.0};
Line(1) = {1, 2};
Line(2) = {2, 3};
Line(3) = {3, 4};
Line(4) = {4, 1};
Transfinite Line{1,2,3,4} = 3;
Line Loop(33) = {1, 2, 3, 4};
Plane Surface(34) = {33};
Transfinite Surface '*';
Recombine Surface '*';
Extrude {1, 0, 0} {
Surface{34};
Layers{1};
Recombine;
}
Transfinite Surface '*';
Recombine Surface '*';
Translate {5, 0, 0} {
Duplicata{
Surface{56};
//Surface{34};
}
}
Transfinite Surface '*';
Recombine Surface '*';
<<attachment: stefan_zoerner.vcf>>
_______________________________________________ gmsh mailing list [email protected] http://www.geuz.org/mailman/listinfo/gmsh
