From 4d611bb0b5d1cecf3572eb308e83e5ddd3e96949 Mon Sep 17 00:00:00 2001
From: Justin Lin <justin.sdk@gmail.com>
Date: Sun, 29 May 2022 12:09:50 +0800
Subject: [PATCH] filled

---
 examples/differential_line_growth_bowl.scad | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/examples/differential_line_growth_bowl.scad b/examples/differential_line_growth_bowl.scad
index 5d31e9c7..4ecbd8b6 100644
--- a/examples/differential_line_growth_bowl.scad
+++ b/examples/differential_line_growth_bowl.scad
@@ -1,13 +1,17 @@
 use <shape_circle.scad>;
 use <midpt_smooth.scad>;
 use <polyline_join.scad>;
+use <in_shape.scad>;
 use <polyhedra/icosahedron.scad>;
+use <triangle/tri_delaunay.scad>;
+use <triangle/tri_incenter.scad>;
+use <surface/sf_thickenT.scad>;
 use <experimental/differential_line_growth.scad>;
 use <experimental/ptf_c2sphere.scad>;
 
 $fn = 24;
 r = 10;
-times = 50;
+times = 80;
 line_r = 2;
 smooth = true;
 smooth_times = 2;
@@ -24,5 +28,15 @@ poly = differential_line_growth(init_shape, node_option, times);
 smoothed = smooth ? midpt_smooth(poly, smooth_times, true) : poly;
 
 sphere_r = norm(max(smoothed));
-polyline_join([for(p = [each smoothed, smoothed[0]]) ptf_c2sphere(p, sphere_r)])
+sphere_path = [for(p = smoothed) ptf_c2sphere(p, sphere_r)];
+
+triangles = [
+    for(t = tri_delaunay(smoothed))
+    let(tri = [for(i = t) smoothed[i]])
+    if(in_shape(smoothed, tri_incenter(tri))) t
+];
+
+sf_thickenT(sphere_path, line_r, triangles);
+
+polyline_join([each sphere_path, sphere_path[0]])
     icosahedron(line_r);