Added source code

tests/polyholes.scad

@@ -0,0 +1,77 @@
+//
+// NopSCADlib Copyright Chris Palmer 2018
+// nop.head@gmail.com
+// hydraraptor.blogspot.com
+//
+// This file is part of NopSCADlib.
+//
+// NopSCADlib is free software: you can redistribute it and/or modify it under the terms of the
+// GNU General Public License as published by the Free Software Foundation, either version 3 of
+// the License, or (at your option) any later version.
+//
+// NopSCADlib is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
+// without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+// See the GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along with NopSCADlib.
+// If not, see <https://www.gnu.org/licenses/>.
+//
+
+include <../core.scad>
+use <../vitamins/rod.scad>
+include <../vitamins/sheets.scad>
+
+module polyholes() {
+    module positions()
+        for(i = [1 : 10]) {
+            translate([(i * i + i) / 2 + 3 * i , 8])
+                let($r = i / 2)
+                    children();
+
+            let(d = i + 0.5)
+                translate([(d * d + d) / 2 + 3 * d, 19])
+                    let($r = d / 2)
+                        children();
+        }
+
+    color(pp1_colour) linear_extrude(height = 3, center = true)
+        difference() {
+            square([100, 27]);
+
+            positions()
+                poly_circle(r = $r);
+        }
+
+     positions()
+        rod(d = 2 * $r, l = 8 * $r + 5);
+    //
+    // Poly rings
+    //
+    ir = 3 / 2;
+    cir = corrected_radius(ir);
+    sizes = [1.5, 2, 3, 4];
+    for(i = [0 : len(sizes) - 1])
+        translate([i * 10, -10]) {
+            color(pp1_colour) linear_extrude(height = 1)
+                poly_ring(ir = ir, or = cir + sizes[i] * extrusion_width);
+
+            rod(2 * ir, 3);
+       }
+    //
+    // Drill and slot
+    //
+    sheet = Steel06;
+    translate([10, -30])
+        render_2D_sheet(sheet)
+            difference() {
+                sheet_2D(sheet, 20, 20, 1);
+
+                translate([0, 5])
+                    slot(1.5, 6, 0);
+
+                translate([0, -5])
+                    drill(2, 0);
+            }
+}
+
+polyholes();