Skip to content
Snippets Groups Projects
Commit 63e9e110 authored by Christophe Geuzaine's avatar Christophe Geuzaine
Browse files

*** empty log message ***

parent 0ef130cd
No related branches found
No related tags found
No related merge requests found
......@@ -13,21 +13,21 @@ Include "t1.geo";
// As in `t2.geo', we plan to perform an extrusion along the z axis.
// But here, instead of only extruding the geometry, we also want to
// extrude the 2D mesh. This is done with the same `Extrude' command,
// but by specifying the number of layers (4 layers in this case, each
// with heights equal to h/4, but with 8, 4, 2 and 1 subdivisions,
// respectively):
// but by specifying element 'Layers' (2 layers in this case, the
// first one with 8 subdivisions and the second one with 2
// subdivisions, both with a height of h/2):
h = 0.1;
Extrude {0,0,h} {
Surface{6}; Layers{ {8,4,2,1}, {0.25,0.5,0.75,1} };
Surface{6}; Layers{ {8,2}, {0.5,1} };
}
// The extrusion can also be performed with a rotation instead of a
// translation, and the resulting mesh can be recombined into prisms
// (wedges). All rotations are specified by an axis direction
// ({0,1,0}), an axis point ({-0.1,0,0.1}) and a rotation angle
// (-Pi/2):
// (-Pi/2) (only one layer here, with 7 subdivisions):
Extrude { {0,1,0} , {-0.1,0,0.1} , -Pi/2 } {
Surface{122}; Layers { 7, 1 }; Recombine;
......@@ -40,10 +40,11 @@ out[] = Extrude { {-2*h,0,0}, {1,0,0} , {0,0.15,0.25} , Pi/2 } {
Surface{news-1}; Layers{ 10, 1 }; Recombine;
};
// In the last extrusion command we retrieved the volume
// In this last extrusion command we retrieved the volume
// number programatically by saving the output of the command
// into an array. This array will contain the "top" of the extruded
// surface as well as the newly created volume.
// surface (in out[0]) as well as the newly created volume (in
// out[1]).
// We can then define a new physical volume to save all
// the tetrahedra with a common region number (101):
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment