add convex_intersection_for

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
+                );

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
+    );