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

performance improved

Browse Source
This commit is contained in:
Justin Lin
2021-04-17 22:13:28 +08:00
parent 49f66cded2
commit 252eb53be4
1 changed files with 12 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/experimental/_impl/_tri_delaunay_impl.scad
View File

@@ -76,9 +76,7 @@ function adjustNeighbors(d, newTriangles) =
) )
_adjustNeighborsOtri(aDtrid, newTriangles, leng); _adjustNeighborsOtri(aDtrid, newTriangles, leng);
function hashmap_puts(m, kv_lt) = function hashmap_puts(m, kv_lt) = _hashmap_puts(m, kv_lt, len(kv_lt));
let(leng = len(kv_lt))
_hashmap_puts(m, kv_lt, leng);
function _hashmap_puts(m, kv_lt, leng, i = 0) = function _hashmap_puts(m, kv_lt, leng, i = 0) =
i == leng ? m : i == leng ? m :
@@ -186,22 +184,18 @@ function _delaunayBoundaries(d, badTriangles, boundaries, t, vi) =
v1 == v2 ? nboundaries : _delaunayBoundaries(d, badTriangles, nboundaries, t, nvi); v1 == v2 ? nboundaries : _delaunayBoundaries(d, badTriangles, nboundaries, t, nvi);
function delBadTriangles(d, badTriangles) = function delBadTriangles(d, badTriangles) =
let( [
triangles = delaunay_triangles(d), delaunay_coords(d),
circles = delaunay_circles(d), hashmap_dels(delaunay_triangles(d), badTriangles),
nTriangles = hashmap([ hashmap_dels(delaunay_circles(d), badTriangles)
for(t = hashmap_keys(triangles)) ];
if(!has(badTriangles, t))
[t, hashmap_get(triangles, t)]
]),
nCircles = hashmap([
for(t = hashmap_keys(circles))
if(!has(badTriangles, t))
[t, hashmap_get(circles, t)]
])
)
[delaunay_coords(d), nTriangles, nCircles];
function hashmap_dels(m, keys) = _hashmap_dels(m, keys, len(keys));
function _hashmap_dels(m, keys, leng, i = 0) =
i == leng ? m :
_hashmap_dels(hashmap_del(m, keys[i]), keys, leng, i + 1);
function _tri_delaunay(d, points, leng, i = 0) = function _tri_delaunay(d, points, leng, i = 0) =
i == leng ? d : i == leng ? d :
_tri_delaunay(delaunay_addpoint(d, points[i]), points, leng, i + 1); _tri_delaunay(delaunay_addpoint(d, points[i]), points, leng, i + 1);