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

refactor: check four dirs directly

Browse Source
This commit is contained in:
Justin Lin
2022-04-10 20:10:07 +08:00
parent 55c61ffb74
commit dfdfda681d
1 changed files with 6 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
src/maze/_impl/_mz_square_cells_impl.scad
View File

@@ -46,7 +46,7 @@ _rand_dir_table = [
[3, 2, 1, 0]
];
function rand_dirs(c, seed) =
let(r = is_undef(seed) ? rands(0, 24, 1) : rands(0, 24, 1, c + seed))
let(r = is_undef(seed) ? rands(0, 23, 1) : rands(0, 23, 1, c + seed))
_rand_dir_table[round(r[0])];
// get x value by dir
@@ -132,41 +132,16 @@ function carve(dir, x, y, cells, rows, columns) =
dir == 2 ? carve_left(x, y, cells, columns) :
/*dir 3*/ carve_bottom(x, y, cells, rows);
// find out visitable dirs from (x, y)
function visitable_dirs(r_dirs, x, y, cells, rows, columns, x_wrapping, y_wrapping) = [
for(dir = r_dirs)
if(visitable(next_x(x, dir, columns, x_wrapping), next_y(y, dir, rows, y_wrapping), cells, rows, columns))
dir
];
// go maze from (x, y)
function go_maze(x, y, cells, rows, columns, x_wrapping = false, y_wrapping = false, seed) =
let(
r_dirs = rand_dirs(x + y * columns, seed),
v_dirs = visitable_dirs(r_dirs, x, y, cells, rows, columns, x_wrapping, y_wrapping),
nxcells0 = set_visited(x, y, cells),
leng_v_dirs = len(v_dirs)
nxcells1 = next_cells(x, y, r_dirs[0], nxcells0, rows, columns, x_wrapping, y_wrapping, seed),
nxcells2 = next_cells(x, y, r_dirs[1], nxcells1, rows, columns, x_wrapping, y_wrapping, seed),
nxcells3 = next_cells(x, y, r_dirs[2], nxcells2, rows, columns, x_wrapping, y_wrapping, seed)
)
// have visitable dirs?
leng_v_dirs == 0 ? nxcells0 : // road closed
// try four directions
let(
dir = v_dirs[0],
nx = next_x(x, dir, columns, x_wrapping),
ny = next_y(y, dir, rows, y_wrapping),
nxcells1 = go_maze( // try the cell
nx, ny,
carve(dir, x, y, nxcells0, rows, columns),
rows, columns,
x_wrapping, y_wrapping,
seed
)
)
leng_v_dirs == 1 ? nxcells1 :
let(nxcells2 = next_cells(x, y, v_dirs[1], nxcells1, rows, columns, x_wrapping, y_wrapping, seed))
leng_v_dirs == 2 ? nxcells2 :
let(nxcells3 = next_cells(x, y, v_dirs[2], nxcells2, rows, columns, x_wrapping, y_wrapping, seed))
leng_v_dirs == 3 ? nxcells3 : next_cells(x, y, v_dirs[3], nxcells3, rows, columns, x_wrapping, y_wrapping, seed);
next_cells(x, y, r_dirs[3], nxcells3, rows, columns, x_wrapping, y_wrapping, seed);
function next_cells(x, y, dir, cells, rows, columns, x_wrapping, y_wrapping, seed) =
let(