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

this is really awesome :-)

parent 4cbc743a
Branches
No related tags found
No related merge requests found
...@@ -4,8 +4,18 @@ Mesh.Algorithm = 6; ...@@ -4,8 +4,18 @@ Mesh.Algorithm = 6;
Mesh.CharacteristicLengthMin = 0.1; Mesh.CharacteristicLengthMin = 0.1;
Mesh.CharacteristicLengthMax = 0.1; Mesh.CharacteristicLengthMax = 0.1;
DefineConstant[
sph = {0, Choices{0,1}, Name "Make sphere a single volume"}
xx = {2.2, Min -1, Max 5, Step 0.01, Name "Sphere position"}
];
Block(1) = {0,0,0, 2,2,2}; Block(1) = {0,0,0, 2,2,2};
Sphere(2) = {2.2, 1, 1, 0.5}; Sphere(2) = {xx, 1, 1, 0.5};
Block(3) = {2,0,0, 4,2,2}; Block(3) = {2,0,0, 4,2,2};
BooleanFragments { Volume{1}; Delete; }{ Volume{2,3}; Delete; } BooleanFragments { Volume{1}; Delete; }{ Volume{2,3}; Delete; }
If(sph)
BooleanUnion { Volume{2}; Delete; }{ Volume{3}; Delete; }
EndIf
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment