From 2c8015a3c76ba3cdb78d5b8d21f59799ea4e88b0 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Fri, 4 May 2018 11:57:06 +0200
Subject: [PATCH] horn for pull-pull system

---
 dual-horn.scad | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 dual-horn.scad

diff --git a/dual-horn.scad b/dual-horn.scad
new file mode 100644
index 0000000..62d1181
--- /dev/null
+++ b/dual-horn.scad
@@ -0,0 +1,41 @@
+eps = 0.01;
+infty = 200;
+
+wall = 1;
+
+horn_w = 10;
+horn_l = 15;
+tip_hole = 2;
+tip_d = tip_hole+2*wall;
+tube_d = 2.0 + 0.5;
+tube_off = 1;
+
+foam_w = 3;
+side_w = 0.5;
+side_l = horn_l - 7;
+side_h = 8;
+
+
+module body() {
+	hull() {
+		for (x = [-1, 1]) scale([x, 1, 1])
+		translate([horn_w, 0, 0])
+			cylinder(r = tip_d/2, h = wall);
+		translate([-foam_w/2, -horn_l+tip_d/2, 0])
+			cube([foam_w, horn_l, wall]);
+	}
+	// side
+	translate([foam_w/2-side_w, -horn_l+tip_d/2, 0])
+		cube([side_w, side_l, side_h]);
+}
+
+difference() {
+	body();
+	for (x = [-1, 1]) scale([x, 1, 1])
+		translate([horn_w, 0, -eps])
+			cylinder(r = tip_hole/2, h = wall+2*eps);
+	// tube hole
+	translate([0, tube_off, -eps])
+		cylinder(r = tube_d/2, h = wall+2*eps, $fn = 6);
+}
+
-- 
2.43.0