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

refactor

Browse Source
This commit is contained in:
Justin Lin
2020-03-05 08:44:35 +08:00
parent bdab6e256f
commit e52d9fb0f5
1 changed files with 10 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
examples/maze/random_scala.scad
View File

@@ -1,112 +1,26 @@
use <experimental/mz_blocks.scad>;
use <experimental/mz_get.scad>;
use <experimental/dedup.scad>;
use <experimental/has.scad>;
use <experimental/mz_hamiltonian.scad>;
module random_scala(rows, columns, width, height) {
blocks = mz_blocks(
[1, 1],
rows, columns
);
function upper(x, y) =
let(
nx = (x - 1) * 2,
ny = (y - 1) * 2
)
[[nx, ny + 2], [nx + 1, ny + 2], [nx + 2, ny + 2]];
function right(x, y) =
let(
nx = (x - 1) * 2,
ny = (y - 1) * 2
)
[[nx + 2, ny + 2], [nx + 2, ny + 1], [nx + 2, ny]];
function upper_right(x, y) =
let(
nx = (x - 1) * 2,
ny = (y - 1) * 2
)
[[nx, ny + 2], [nx + 1, ny + 2], [nx + 2, ny + 2], [nx + 2, ny + 1], [nx + 2, ny]];
dot_pts = dedup(
concat(
[
for(block = blocks)
let(
x = mz_get(block, "x"),
y = mz_get(block, "y"),
wall_type = mz_get(block, "w"),
pts = wall_type == "UPPER_WALL" ? upper(x, y) :
wall_type == "RIGHT_WALL" ? right(x, y) :
wall_type == "UPPER_RIGHT_WALL" ? upper_right(x, y) : []
)
each pts
],
[for(x = [0:columns * 2 - 1]) [x, 0]],
[for(y = [0:rows * 2 - 1]) [0, y]]
)
);
function corner_value(dots, x, y) =
let(
c1 = has(dots, [x, y]) ? 1 : 0,
c2 = has(dots, [x, y + 1]) ? 2 : 0,
c3 = has(dots, [x + 1, y + 1]) ? 4 : 0,
c4 = has(dots, [x + 1, y]) ? 8 : 0
)
c1 + c2 + c3 + c4;
function dir(cr_value) =
lookup(cr_value, [
[4, 0], [12, 0], [13, 0], // UP
[1, 1], [3, 1], [7, 1], // DOWN
[2, 2], [6, 2], [14, 2], // LEFT
[8, 3], [9, 3], [11, 3] // RIGHT
]);
function travel(dot_pts, p, leng, i = 0) =
i == leng ? [] :
let(
dir_i = dir(corner_value(dot_pts, p[0], p[1])),
nxt_p = p + [
[0, 1], // UP
[0, -1], // DOWN
[-1, 0], // LEFT
[1, 0] // RIGHT
][dir_i]
)
concat(
[p], travel(dot_pts, nxt_p, leng, i + 1)
);
line = travel(dot_pts, [0, 0], rows * columns * 4);
module random_scala(start, rows, columns, width, height) {
line = mz_hamiltonian(start, rows, columns);
for(i = [0:len(line) - 1]) {
p = line[i];
translate(p)
p1 = line[i];
translate(p1)
linear_extrude(height * i * 2 + height)
square(width + 0.01, center = true);
dir_i = dir(corner_value(dot_pts, p[0], p[1]));
translate(
p + [
[0, .5], // UP
[0, -.5], // DOWN
[-.5, 0], // LEFT
[.5, 0] // RIGHT
][dir_i]
)
p2 = line[(i + 1) % len(line)];
translate(p1 + (p2 - p1) / 2)
linear_extrude(height * (2 * i + 1) + height)
square(width + 0.01, center = true);
}
}
random_scala(
start = [0, 0],
rows = 2,
columns = 3,
columns = 5,
width = .5,
height = .25
);