Podlozka pod sutry do terarka

diff --git a/terarko-podlozka.scad b/terarko-podlozka.scad
new file mode 100644 (file)
index 0000000..53641fa
--- /dev/null
+++ b/terarko-podlozka.scad
@@ -0,0 +1,43 @@
+infty = 300;
+eps = 0.01;
+
+wall = 1.0;
+
+squares = 3;
+
+bottom_l = 6;
+top_l = 3;
+top_h = 3.5;
+string_h = 1.5;
+square_l = 20;
+
+module stem() {
+       hull() {
+               cylinder(r = wall/2, h = string_h, $fn = 16);
+               translate([square_l, 0, 0])
+               cylinder(r = wall/2, h = string_h, $fn = 16);
+       }
+       // tip
+       for (x = [-1, 1])
+               translate([(1-x)*square_l/2, 0, 0])
+               scale([x, 1, 1])
+               hull() {
+                               cylinder(r = wall/2, h = top_h, $fn = 16);
+                       translate([top_l, 0, 0])
+                               cylinder(r = wall/2, h = top_h, $fn = 16);
+                       translate([bottom_l, 0, 0])
+                               cylinder(r = wall/2, h = string_h, $fn = 16);
+               }
+}
+
+for (y = [-squares/2:squares/2])
+for (x = [-squares/2:squares/2-1])
+       translate([x*square_l, y*square_l, 0])
+               stem();
+
+rotate([0, 0, 90])
+for (y = [-squares/2:squares/2])
+for (x = [-squares/2:squares/2-1])
+       translate([x*square_l, y*square_l, 0])
+               stem();
+