From db239d34cb061019588fa497c523e35f18662a4c Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Fri, 25 Oct 2019 16:10:56 +0800
Subject: [PATCH] add simple_seashell

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

diff --git a/examples/simple_seashell.scad b/examples/simple_seashell.scad
new file mode 100644
index 00000000..cf0e5b84
--- /dev/null
+++ b/examples/simple_seashell.scad
@@ -0,0 +1,31 @@
+include <circle_path.scad>;
+include <rotate_p.scad>;
+include <polysections.scad>;
+
+r1 = 15;
+r2 = 50;
+
+a1 = 1;
+a2 = 450;
+
+steps = 40;
+
+module simple_seashell(r1, r2, a1, a2, steps) {
+    rd = (r2 - r1) / steps;
+    ad = (a2 - a1) / steps;
+
+    sections = [
+        for (i = [0:steps])
+        let(
+            r = r1 + rd * i,
+            a = a1 + i * ad
+        )
+            [for(p = concat(circle_path(r), circle_path(r * 0.9))) 
+                rotate_p([p[0], p[1], 0] + [r, 0, 0], [0, a, 0])]    
+            
+    ];
+
+    rotate([90, 0, 0]) polysections(sections, "HOLLOW");
+}
+
+simple_seashell(r1, r2, a1, a2, steps);
\ No newline at end of file