From cd2b3bf3796ee63567ed3540d5b52e907fbff032 Mon Sep 17 00:00:00 2001
From: Justin Lin <justin.sdk@gmail.com>
Date: Mon, 28 Mar 2022 16:45:58 +0800
Subject: [PATCH] redefine period

---
 src/experimental/perlin_sphere.scad | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/experimental/perlin_sphere.scad b/src/experimental/perlin_sphere.scad
index 70cdad32..e413438d 100644
--- a/src/experimental/perlin_sphere.scad
+++ b/src/experimental/perlin_sphere.scad
@@ -2,20 +2,20 @@ use <util/rand.scad>;
 use <noise/nz_perlin3s.scad>;
 use <polyhedra/geom_icosahedron.scad>;
 
-// radius = 30;
-// detail = 10;
-// amplitude = 10;
-// period = 20;
+radius = 30;
+detail = 30;
+amplitude = 10;
+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 = points_faces[0];
 	faces = points_faces[1];
 
 	sd = is_undef(seed) ? rand() * 1000: seed;
-    noisy = nz_perlin3s(points / period, sd);
+    noisy = nz_perlin3s(period * points / radius, sd);
 
 	noisy_points = [
 		for(i = [0:len(points) - 1])