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

support wrapping

Browse Source
This commit is contained in:
Justin Lin
2022-03-24 09:37:35 +08:00
parent 8326dcc38f
commit 3f8fc98145
1 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/maze/mz_wang_tiles.scad
View File

@@ -16,13 +16,18 @@ use <../util/sort.scad>;
use <../util/set/hashset.scad>; use <../util/set/hashset.scad>;
use <../util/set/hashset_elems.scad>; use <../util/set/hashset_elems.scad>;
function mz_wang_tiles(rows, columns, start = [0, 0], init_cells, seed) = function mz_wang_tiles(rows, columns, start = [0, 0], init_cells, x_wrapping = true, y_wrapping = true, seed) =
let( let(
cells = mz_square_cells( cells = mz_square_cells(
rows, columns, rows, columns,
init_cells = init_cells, start,
seed = seed init_cells,
x_wrapping,
y_wrapping,
seed
), ),
top_cells = sort([for(cell = cells) if(cell.y == rows - 1) cell], by = "x"),
right_cells = sort([for(cell = cells) if(cell.x == columns - 1) cell], by = "y"),
all = concat( all = concat(
[ [
for(cell = cells) for(cell = cells)
@@ -36,8 +41,16 @@ function mz_wang_tiles(rows, columns, start = [0, 0], init_cells, seed) =
) )
each pts each pts
], ],
[for(x = [0:columns - 1]) [x * 2 + 1, 0]], y_wrapping ? [
[for(y = [0:rows - 1]) [0, y * 2 + 1]] for(x = [0:columns - 1])
let(type = mz_square_get(top_cells[x], "t"))
if(type == "RIGHT_WALL" || type == "NO_WALL") [x * 2 + 1, 1] else [x * 2 + 1, 0]
] : [for(x = [0:columns - 1]) [x * 2 + 1, 0]],
x_wrapping ? [
for(y = [0:rows - 1])
let(type = mz_square_get(right_cells[y], "t"))
if(type == "TOP_WALL" || type == "NO_WALL") [1, y * 2 + 1] else [0, y * 2 + 1]
] : [for(y = [0:rows - 1]) [0, y * 2 + 1]]
), ),
dot_pts = sort(hashset_elems(hashset(all, hash = function(p) _pt2_hash(p))), by = "vt") dot_pts = sort(hashset_elems(hashset(all, hash = function(p) _pt2_hash(p))), by = "vt")
) )