mirror of
https://github.com/JustinSDK/dotSCAD.git
synced 2025-01-17 22:28:16 +01:00
35 lines
634 B
OpenSCAD
35 lines
634 B
OpenSCAD
use <shape_circle.scad>
|
|
use <ptf/ptf_rotate.scad>
|
|
use <sweep.scad>
|
|
|
|
r1 = 0.1;
|
|
r2 = 50;
|
|
|
|
a1 = 1;
|
|
a2 = 450;
|
|
|
|
steps = 40;
|
|
|
|
$fn = 48;
|
|
|
|
module simple_seashell(r1, r2, a1, a2, steps) {
|
|
rd = (r2 - r1) / steps;
|
|
ad = (a2 - a1) / steps;
|
|
|
|
sections = [
|
|
for (i = [0:steps])
|
|
let(
|
|
r = r1 + rd * i,
|
|
a = a1 + i * ad
|
|
)
|
|
[
|
|
for(p = concat(shape_circle(r), shape_circle(r * 0.9)))
|
|
ptf_rotate([p[0], p[1], 0] + [r, 0, 0], [0, a, 0])
|
|
]
|
|
|
|
];
|
|
|
|
rotate([90, 0, 0]) sweep(sections, "HOLLOW");
|
|
}
|
|
|
|
simple_seashell(r1, r2, a1, a2, steps); |