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

added path_extrude.scad

Browse Source
This commit is contained in:
Justin Lin
2017-04-30 15:43:20 +08:00
parent 75a8a1bf14
commit df37a9b4ac
1 changed files with 46 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
src/path_extrude.scad Normal file
View File

@@ -0,0 +1,46 @@
module path_extrude(shape_pts, points, triangles = "RADIAL") {
function first_section() =
let(
p1 = points[0],
p2 = points[1],
dx = p2[0] - p1[0],
dy = p2[1] - p1[1],
dz = p2[2] - p1[2],
ay = 90 - atan2(dz, sqrt(pow(dx, 2) + pow(dy, 2))),
az = atan2(dy, dx)
)
[
for(p = shape_pts)
rotate_p(p, [0, ay, az]) + p1
];
function section(p1, p2) =
let(
dx = p2[0] - p1[0],
dy = p2[1] - p1[1],
dz = p2[2] - p1[2],
length = sqrt(pow(dx, 2) + pow(dy, 2) + pow(dz, 2)),
ay = 90 - atan2(dz, sqrt(pow(dx, 2) + pow(dy, 2))),
az = atan2(dy, dx)
)
[
for(p = shape_pts)
rotate_p(p + [0, 0, length], [0, ay, az]) + p1
];
len_pts = len(points);
function path_extrude_inner(index) =
index == len_pts ? [] :
concat(
[section(points[index - 1], points[index])],
path_extrude_inner(index + 1)
);
polysections(
concat([first_section()], path_extrude_inner(1)),
triangles = triangles
);
}