openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-11 01:04:07 +02:00
Code Issues Releases Wiki Activity

add r_union2

Browse Source
This commit is contained in:
Justin Lin
2021-09-03 11:18:03 +08:00
parent 5863a5c3f6
commit c6ca52aba8
1 changed files with 145 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

145
src/experimental/r_union2.scad Normal file
View File

@@ -0,0 +1,145 @@
use <__comm__/__frags.scad>;
module r_union2(r = 1) {
module _r_union2(r = 1) {
fn = __frags(r);
step = 90 / fn;
rx = is_list(r) ? r[1] : r;
ry = is_list(r) ? r[0] : r;
for(i = [0:fn - 1]) {
x = rx - sin(i * step) * rx;
y = ry - cos(i * step) * ry;
xi = rx - sin(i * step + step) * rx;
yi = ry - cos(i * step + step) * ry;
hull() {
intersection() {
offset(x) children(0);
offset(y) children(1);
}
intersection() {
offset(xi) children(0);
offset(yi) children(1);
}
}
}
children(0);
children(1);
}
if($children == 0) {
// nope
}
else if($children == 1) {
children(0);
}
else if($children == 2) {
_r_union2(r) {
children(0);
children(1);
};
}
// OpenSCAD have to enumerate children explicitly.
// Currently, this module allow 10 children.
else if($children == 3) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
}
}
else if($children == 4) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
children(3);
}
}
else if($children == 5) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
children(3);
children(4);
}
}
else if($children == 6) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
children(3);
children(4);
children(5);
}
}
else if($children == 7) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
children(3);
children(4);
children(5);
children(6);
}
}
else if($children == 8) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
children(3);
children(4);
children(5);
children(6);
children(7);
}
}
else if($children == 9) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
children(3);
children(4);
children(5);
children(6);
children(7);
children(8);
}
}
else if($children == 10) {
r_union2(r) {
_r_union2(r) {
children(0);
children(1);
};
children(2);
children(3);
children(4);
children(5);
children(6);
children(7);
children(8);
children(9);
}
}
}