openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-21 22:05:27 +02:00
Code Issues Releases Wiki Activity

redefine period

Browse Source
This commit is contained in:
Justin Lin
2022-03-28 16:45:58 +08:00
parent 91dff32e23
commit cd2b3bf379
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/experimental/perlin_sphere.scad
View File

@@ -2,20 +2,20 @@ use <util/rand.scad>;
use <noise/nz_perlin3s.scad>; use <noise/nz_perlin3s.scad>;
use <polyhedra/geom_icosahedron.scad>; use <polyhedra/geom_icosahedron.scad>;
// radius = 30; radius = 30;
// detail = 10; detail = 30;
// amplitude = 10; amplitude = 10;
// period = 20; period = 2;
// perlin_sphere(radius, detail, amplitude, period); perlin_sphere(radius, detail, amplitude, period);
module perlin_sphere(radius, detail, amplitude, period = 10, seed = undef) { module perlin_sphere(radius, detail, amplitude, period = 1, seed = undef) {
points_faces = geom_icosahedron(radius, detail); points_faces = geom_icosahedron(radius, detail);
points = points_faces[0]; points = points_faces[0];
faces = points_faces[1]; faces = points_faces[1];
sd = is_undef(seed) ? rand() * 1000: seed; sd = is_undef(seed) ? rand() * 1000: seed;
noisy = nz_perlin3s(points / period, sd); noisy = nz_perlin3s(period * points / radius, sd);
noisy_points = [ noisy_points = [
for(i = [0:len(points) - 1]) for(i = [0:len(points) - 1])