From cfda38c8bd6019ab93b3b92435e4eb1cdef6d34d Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Sat, 13 Jul 2019 16:44:24 +0800
Subject: [PATCH] add text_sphere.scad

---
 examples/text_sphere.scad | 58 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 examples/text_sphere.scad

diff --git a/examples/text_sphere.scad b/examples/text_sphere.scad
new file mode 100644
index 00000000..fb15340c
--- /dev/null
+++ b/examples/text_sphere.scad
@@ -0,0 +1,58 @@
+include <rotate_p.scad>;
+include <sphere_spiral.scad>;
+include <cross_sections.scad>;
+include <polysections.scad>;
+include <sphere_spiral_extrude.scad>;
+
+tx = "3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989";
+font_name = "Liberation Sans:style=Bold Italic";
+thickness = 2;
+
+module text_sphere(tx, font_name, thickness) {
+    $fn = 24;
+    radius = 40;
+    za_step = 360 / $fn; 
+    z_circles = 48;
+    begin_angle = 720;
+    end_angle = 630;
+
+    half_thickness = thickness / 2;
+    
+    points_angles = sphere_spiral(
+        radius = radius, 
+        za_step = za_step, 
+        z_circles = z_circles, 
+        begin_angle = begin_angle,
+        end_angle = end_angle
+    );
+
+    rotate(-180 / $fn) sphere_spiral_extrude(
+        [
+            [thickness, half_thickness],
+            [-half_thickness, half_thickness], 
+            [-half_thickness, -half_thickness],
+            [thickness, -half_thickness]
+        ],
+        radius = radius, 
+        za_step = za_step, 
+        z_circles = z_circles, 
+        begin_angle = begin_angle,
+        end_angle = end_angle
+    );
+
+
+    for(i = [0:len(points_angles) - 1]) {
+        pa = points_angles[i];
+        translate(pa[0]) rotate(pa[1] + [0, 8, 0])
+            rotate([90, 0, 90]) 
+                linear_extrude(half_thickness) 
+                     translate([0, -10, 0]) 
+                         text(tx[i], font = font_name, halign = "center");
+    }
+    
+    translate([0, 0, -radius]) 
+        linear_extrude(thickness * 2.5) 
+            circle(radius / 2);
+}
+
+ text_sphere(tx, font_name, thickness);
\ No newline at end of file