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

add tilemap

Browse Source
This commit is contained in:
Justin Lin
2021-03-16 16:18:43 +08:00
parent c9a5faea67
commit 314a39bee9
1 changed files with 38 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
src/experimental/tiles_wfc.scad
View File

@@ -29,23 +29,23 @@ sample = [
["S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S"]
];
function weightsOfTiles(sample) =
function weights_of_tiles(sample) =
let(
symbols = flat(sample),
leng = len(symbols),
weights = hashmap(number_of_buckets = sqrt(leng))
)
_weightsOfTiles(weights, symbols, leng);
_weights_of_tiles(weights, symbols, leng);
function _weightsOfTiles(weights, symbols, leng, i = 0) =
function _weights_of_tiles(weights, symbols, leng, i = 0) =
i == leng ? weights :
let(
tile = symbols[i],
w = hashmap_get(weights, tile)
)
w == undef ?
_weightsOfTiles(hashmap_put(weights, tile, 1), symbols, leng, i + 1) :
_weightsOfTiles(hashmap_put(weights, tile, w + 1), symbols, leng, i + 1);
_weights_of_tiles(hashmap_put(weights, tile, 1), symbols, leng, i + 1) :
_weights_of_tiles(hashmap_put(weights, tile, w + 1), symbols, leng, i + 1);
/*
oo-style
@@ -187,7 +187,25 @@ function _wf_coord_min_entropy(wf, coords, coords_leng, entropy, entropyCoord, i
_wf_coord_min_entropy(wf, coords, coords_leng, entropy, entropyCoord, i + 1);
// TileMap
/*
- tilemap(width, height, sample)
- tilemap_width(tm)
- tilemap_height(tm)
- tilemap_compatibilities(tm)
- tilemap_wave_function(tm)
*/
function tilemap(width, height, sample) = [
width,
height,
compatibilities_of_tiles(sample, width, height),
wave_function(width, height, weights_of_tiles(sample))
];
function tilemap_width(tm) = tm[0];
function tilemap_height(tm) = tm[1];
function tilemap_compatibilities(tm) = tm[2];
function tilemap_wf(tm) = tm[3];
function neighbor_dirs(x, y, width, height) =
concat(
@@ -209,10 +227,23 @@ function compatibilities_of_tiles(sample, width, height) =
c
]);
function collapsedTiles(wf) =
let(
wf_h = wf_height(wf),
wf_w = wf_width(wf)
)
[
for(y = [0:wf_h - 1])
[
for(x = [0:wf_w - 1])
wf_eigenstates_at(wf, x, y)[0]
]
];
width = len(sample[0]);
height = len(sample);
weights = weightsOfTiles(sample);
weights = weights_of_tiles(sample);
wf = wave_function(width, height, weights);
assert(wf_width(wf) == width);