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

performanced improved

Browse Source
This commit is contained in:
Justin Lin
2022-03-17 18:04:20 +08:00
parent 3e110a045b
commit da5cd8a250
2 changed files with 31 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/maze/_impl/_mz_hamiltonian_impl.scad
View File

@@ -1,5 +1,16 @@
use <../../util/has.scad>;
function dot_m(dot_pts, leng, m, i = 0) =
i == leng ? m :
let(p = dot_pts[i])
dot_m(dot_pts, leng, updated(p.x, p.y, m), i + 1);
function updated(x, y, dots) =
let(rowY = dots[y])
[
for(r = [0:len(dots) - 1])
if(r == y) [for(c = [0:len(rowY) - 1]) c == x || rowY[c]]
else dots[r]
];
function _mz_hamiltonian_top(x, y) =
let(
nx = x * 2,
@@ -21,12 +32,12 @@ function _mz_hamiltonian_top_right(x, y) =
)
[[nx, ny + 2], [nx + 1, ny + 2], [nx + 2, ny + 2], [nx + 2, ny + 1], [nx + 2, ny]];
function _mz_hamiltonian_corner_value(dots, x, y) =
function _mz_hamiltonian_corner_value(dotM, x, y) =
let(
c1 = has(dots, [x, y], sorted = true) ? 1 : 0,
c2 = has(dots, [x, y + 1], sorted = true) ? 2 : 0,
c3 = has(dots, [x + 1, y + 1], sorted = true) ? 4 : 0,
c4 = has(dots, [x + 1, y], sorted = true) ? 8 : 0
c1 = dotM[y][x] ? 1 : 0,
c2 = dotM[y + 1][x] ? 2 : 0,
c3 = dotM[y + 1][x + 1] ? 4 : 0,
c4 = dotM[y][x + 1] ? 8 : 0
)
c1 + c2 + c3 + c4;
@@ -45,10 +56,10 @@ _mz_hamiltonian_nxt_offset = [
[-1, 0], // LEFT
[1, 0] // RIGHT
];
function _mz_hamiltonian_travel(dot_pts, p, leng, i = 0) =
function _mz_hamiltonian_travel(dotM, p, leng, i = 0) =
i == leng ? [] :
let(
dir_i = _mz_hamiltonian_dir(_mz_hamiltonian_corner_value(dot_pts, p.x, p.y)),
dir_i = _mz_hamiltonian_dir(_mz_hamiltonian_corner_value(dotM, p.x, p.y)),
nxt_p = p + _mz_hamiltonian_nxt_offset[dir_i]
)
[p, each _mz_hamiltonian_travel(dot_pts, nxt_p, leng, i + 1)];
[p, each _mz_hamiltonian_travel(dotM, nxt_p, leng, i + 1)];

14
src/maze/mz_hamiltonian.scad
View File

@@ -13,7 +13,8 @@ use <mz_square_cells.scad>;
use <mz_square_initialize.scad>;
use <mz_square_get.scad>;
use <../util/sort.scad>;
use <../util/dedup.scad>;
use <../util/set/hashset.scad>;
use <../util/set/hashset_elems.scad>;
function mz_hamiltonian(rows, columns, start = [0, 0], init_cells, seed) =
let(
@@ -36,6 +37,13 @@ function mz_hamiltonian(rows, columns, start = [0, 0], init_cells, seed) =
[for(x = [0:c * 2 - 1]) [x, 0]],
[for(y = [0:r * 2 - 1]) [0, y]]
),
dot_pts = dedup(sort(all, by = "vt"))
dot_pts = sort(
hashset_elems(hashset(all, hash = function(p) floor(abs(p * [73856093, 19349669])))),
by = "vt"
),
falseRow = [for(c = [0:c * 2]) false],
falseM = [for(r = [0:r * 2]) falseRow],
dotM = dot_m(dot_pts, len(dot_pts), falseM)
)
_mz_hamiltonian_travel(dot_pts, start * 2, r * c * 4);
_mz_hamiltonian_travel(dotM, start * 2, r * c * 4);