mirror of
https://github.com/JustinSDK/dotSCAD.git
synced 2025-01-16 21:58:26 +01:00
37 lines
707 B
OpenSCAD
37 lines
707 B
OpenSCAD
use <ptf/ptf_rotate.scad>
|
|
use <polyline_join.scad>
|
|
use <shape_superformula.scad>
|
|
|
|
function shape2wire(shape, r) =
|
|
let(
|
|
leng_shape = len(shape),
|
|
a = 360 / leng_shape
|
|
)
|
|
[
|
|
for(i = [0:len(shape) - 1])
|
|
let(p = shape[i])
|
|
ptf_rotate(
|
|
ptf_rotate([p[0], p[1], 0], [90, 0, 0]) + [r, 0, 0],
|
|
a * i
|
|
)
|
|
];
|
|
|
|
phi_step = 0.05;
|
|
m = 16;
|
|
n = 0.5;
|
|
n3 = 16;
|
|
shape = shape_superformula(phi_step, m, m, n, n, n3) * 30;
|
|
|
|
translate([150, 0])
|
|
rotate([90, 0, 0])
|
|
linear_extrude(1, center = true)
|
|
difference() {
|
|
square(120, center = true);
|
|
polyline_join([each shape, shape[0]])
|
|
circle(2.5);
|
|
}
|
|
|
|
wire = shape2wire(shape, 150);
|
|
rotate(-$t * 360)
|
|
polyline_join([each wire, wire[0]])
|
|
sphere(1.5); |