From 076d788ea7b4f415cabd497673301d6500114b86 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Wed, 12 Sep 2018 16:52:43 +0200
Subject: [PATCH] Podlozka pod sutry do terarka

---
 terarko-podlozka.scad | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 terarko-podlozka.scad

diff --git a/terarko-podlozka.scad b/terarko-podlozka.scad
new file mode 100644
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();
+
-- 
2.43.0