From 6d6f62c77f6d5877edfe3d8da5a1de1565877a56 Mon Sep 17 00:00:00 2001
From: Justin Lin <justin.sdk@gmail.com>
Date: Thu, 14 Oct 2021 18:25:10 +0800
Subject: [PATCH] refactor

---
 src/experimental/perlin_sphere.scad |  6 +++---
 src/experimental/tri_subdivide.scad | 19 -------------------
 src/experimental/worley_sphere.scad |  6 +++---
 3 files changed, 6 insertions(+), 25 deletions(-)
 delete mode 100644 src/experimental/tri_subdivide.scad

diff --git a/src/experimental/perlin_sphere.scad b/src/experimental/perlin_sphere.scad
index 31271188..70cdad32 100644
--- a/src/experimental/perlin_sphere.scad
+++ b/src/experimental/perlin_sphere.scad
@@ -1,16 +1,16 @@
 use <util/rand.scad>;
 use <noise/nz_perlin3s.scad>;
-use <experimental/geom_icosahedron.scad>;
+use <polyhedra/geom_icosahedron.scad>;
 
 // radius = 30;
-// detail = 4;
+// detail = 10;
 // amplitude = 10;
 // period = 20;
 	
 // perlin_sphere(radius, detail, amplitude, period);
 
 module perlin_sphere(radius, detail, amplitude, period = 10, seed = undef) {
-    points_faces = geom_icosahedron(radius, detail, quick_mode = false);
+    points_faces = geom_icosahedron(radius, detail);
 	points = points_faces[0];
 	faces = points_faces[1];
 
diff --git a/src/experimental/tri_subdivide.scad b/src/experimental/tri_subdivide.scad
deleted file mode 100644
index f529c78f..00000000
--- a/src/experimental/tri_subdivide.scad
+++ /dev/null
@@ -1,19 +0,0 @@
-function _tri_subdivide(points) =
-     let(
-	     p0 = points[0],
-		 p1 = points[1],
-		 p2 = points[2],
-		 m0 = (p0 + p1) / 2,
-		 m1 = (p1 + p2) / 2,
-		 m2 = (p2 + p0) / 2
-	 )
-	 [
-	     [p0, m0, m2],
-		 [m0, p1, m1],
-		 [m1, p2, m2],
-		 [m0, m1, m2]
-	 ]; 
-
-function tri_subdivide(points, n = 1) =
-    n == 1 ? _tri_subdivide(points) :
-	[for(tri = tri_subdivide(points, n - 1)) each _tri_subdivide(tri)];
\ No newline at end of file
diff --git a/src/experimental/worley_sphere.scad b/src/experimental/worley_sphere.scad
index b54aab01..4476ebfe 100644
--- a/src/experimental/worley_sphere.scad
+++ b/src/experimental/worley_sphere.scad
@@ -1,9 +1,9 @@
 use <util/rand.scad>;
 use <noise/nz_worley3s.scad>;
-use <experimental/geom_icosahedron.scad>;
+use <polyhedra/geom_icosahedron.scad>;
 
 // radius = 30;
-// detail = 3;
+// detail = 10;
 // amplitude = .05;
 // dist = "border"; // [euclidean, manhattan, chebyshev, border]
 	
@@ -12,7 +12,7 @@ use <experimental/geom_icosahedron.scad>;
 module worley_sphere(radius, detail, amplitude, dist = "border", grid_w = undef, seed = undef) {
     gw = is_undef(grid_w) ? radius : grid_w;
 	
-    points_faces = geom_icosahedron(radius, detail, quick_mode = false);
+    points_faces = geom_icosahedron(radius, detail);
 	points = points_faces[0];
 	faces = points_faces[1];