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

No commit message

No commit message
parent 1d3a6b59
Branches
Tags
No related merge requests found
...@@ -29,14 +29,15 @@ Plane Surface(2) = {2}; ...@@ -29,14 +29,15 @@ Plane Surface(2) = {2};
Disk(3) = {0.6, 0.6, 0, 0.5, 0.3}; Disk(3) = {0.6, 0.6, 0, 0.5, 0.3};
DefineConstant[ DefineConstant[
after = {1, Choices{0,1}, Name "Parameters/Extrude after boolean"} order = {1, Choices{0="Extrude before boolean",1="Boolean before extrude"},
Name "Parameters/Operation order"}
]; ];
If(after) If(order == 0)
BooleanFragments{ Surface{1}; Delete; }{ Surface{2:3}; Delete; }
Extrude{0,0,0.3}{ Surface{1:5}; }
Else
Extrude{0,0,0.3}{ Surface{1:3}; } Extrude{0,0,0.3}{ Surface{1:3}; }
BooleanFragments{ Volume{1}; Delete; }{ Volume{2:3}; Delete; } BooleanFragments{ Volume{1}; Delete; }{ Volume{2:3}; Delete; }
Delete{ Surface{1:3}; } Delete{ Surface{1:3}; }
Else
BooleanFragments{ Surface{1}; Delete; }{ Surface{2:3}; Delete; }
Extrude{0,0,0.3}{ Surface{1:5}; }
EndIf EndIf
...@@ -29,10 +29,8 @@ Plane Surface(2) = {2}; ...@@ -29,10 +29,8 @@ Plane Surface(2) = {2};
Disk(3) = {0.6, 0.6, 0, 0.5, 0.3}; Disk(3) = {0.6, 0.6, 0, 0.5, 0.3};
DefineConstant[ DefineConstant[
angle = {90, Min 0, Max 360, Step 1, angle = {90, Min 1, Max 360, Step 1,
Name "Parameters/Angle"} Name "Parameters/Angle"}
]; ];
BooleanFragments{ Surface{1}; Delete; }{ Surface{2:3}; Delete; } BooleanFragments{ Surface{1}; Delete; }{ Surface{2:3}; Delete; }
a() = Extrude{ {0,1,0}, {0,0,0}, angle*2*Pi/360 }{ Surface{1:5}; }; a() = Extrude{ {0,1,0}, {0,0,0}, angle*2*Pi/360 }{ Surface{1:5}; };
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment