From f0d77c242ff4aefdfb42390a133dd1146da003fd Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Sat, 22 Feb 2020 12:08:31 +0800
Subject: [PATCH] add convex_intersection_for

---
 .../_impl/_convex_intersection_for_impl.scad           |  8 ++++++++
 src/experimental/convex_intersection_for.scad          | 10 ++++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 src/experimental/_impl/_convex_intersection_for_impl.scad
 create mode 100644 src/experimental/convex_intersection_for.scad

diff --git a/src/experimental/_impl/_convex_intersection_for_impl.scad b/src/experimental/_impl/_convex_intersection_for_impl.scad
new file mode 100644
index 00000000..78e4a48f
--- /dev/null
+++ b/src/experimental/_impl/_convex_intersection_for_impl.scad
@@ -0,0 +1,8 @@
+use <experimental/convex_intersection.scad>;
+
+function _convex_intersection_for(shapes, pre, leng, i = 2) = 
+    i == leng ? pre :
+                _convex_intersection_for(shapes, 
+                    convex_intersection(pre, shapes[i]), 
+                    leng, i + 1
+                );
\ No newline at end of file
diff --git a/src/experimental/convex_intersection_for.scad b/src/experimental/convex_intersection_for.scad
new file mode 100644
index 00000000..cb662a8a
--- /dev/null
+++ b/src/experimental/convex_intersection_for.scad
@@ -0,0 +1,10 @@
+use <experimental/convex_intersection.scad>;
+use <experimental/_impl/_convex_intersection_for_impl.scad>;
+                
+function convex_intersection_for(shapes) = 
+    let(leng = len(shapes))
+    _convex_intersection_for(
+        shapes, 
+        convex_intersection(shapes[0], shapes[1]), 
+        leng
+    );
\ No newline at end of file