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

don't sort

Browse Source
This commit is contained in:
Justin Lin
2022-04-04 20:47:48 +08:00
parent c3425143c3
commit d2a936a5a3
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/surface/sf_thickenT.scad
View File

@@ -16,12 +16,10 @@ use <../triangle/tri_delaunay.scad>;
module sf_thickenT(points, thickness, triangles = undef, direction = "BOTH", convexity = 1) { module sf_thickenT(points, thickness, triangles = undef, direction = "BOTH", convexity = 1) {
// triangles : counter-clockwise // triangles : counter-clockwise
real_triangles = is_undef(triangles) ? tri_delaunay([for(p = points) [p[0], p[1]]]) : triangles; real_triangles = is_undef(triangles) ? tri_delaunay([for(p = points) [p.x, p.y]]) : triangles;
tris = [for(tri = real_triangles) [tri[2], tri[1], tri[0]]]; tris = [for(tri = real_triangles) [tri[2], tri[1], tri[0]]];
ascending = function(e1, e2) e1 - e2;
function connected_tris(leng_pts, triangles) = function connected_tris(leng_pts, triangles) =
let( let(
leng = len(triangles), leng = len(triangles),
@@ -32,10 +30,10 @@ module sf_thickenT(points, thickness, triangles = undef, direction = "BOTH", con
function _connected_tris(triangles, leng, leng_pts, cnt_tris, i = 0) = function _connected_tris(triangles, leng, leng_pts, cnt_tris, i = 0) =
i == leng ? cnt_tris : i == leng ? cnt_tris :
let( let(
tri = sort(triangles[i], by = ascending), tri = triangles[i],
n_cnt_tris = [ n_cnt_tris = [
for(k = [0:leng_pts - 1]) for(k = [0:leng_pts - 1])
search([k], tri)[0] != [] ? [each cnt_tris[k], triangles[i]] : cnt_tris[k] search([k], tri)[0] != [] ? [each cnt_tris[k], tri] : cnt_tris[k]
] ]
) )
_connected_tris(triangles, leng, leng_pts, n_cnt_tris, i + 1); _connected_tris(triangles, leng, leng_pts, n_cnt_tris, i + 1);