From 76a695a28bf5f7cf4a4bf4bf7cb8d6739e0cf50f Mon Sep 17 00:00:00 2001
From: Tomas Mudrunka <tomas.mudrunka@gmail.com>
Date: Thu, 5 Oct 2023 00:59:09 +0200
Subject: [PATCH] Lepsi hadice

---
 openscad/hadice_sprcha2.scad | 59 ++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 openscad/hadice_sprcha2.scad

diff --git a/openscad/hadice_sprcha2.scad b/openscad/hadice_sprcha2.scad
new file mode 100644
index 0000000..2d55e79
--- /dev/null
+++ b/openscad/hadice_sprcha2.scad
@@ -0,0 +1,59 @@
+$fn=100;
+
+module hose_ferule(t=0.3) { //t = tolerance
+	//thread side
+	translate([0,0,2]) hull() rotate_extrude() translate([(t+13.5-4)/2,0,0]) circle(d=4);
+	cylinder(d=t+13.5, h=2);
+
+	//crimp
+	cylinder(d=t+12, h=30);
+
+	//hose side
+	translate([0,0,10.5]) {
+		translate([0,0,2]) hull() rotate_extrude() translate([(t+13.5-4)/2,0,0]) circle(d=4);
+		translate([0,0,6.5]) hull() rotate_extrude() translate([(t+13.5-4)/2,0,0]) circle(d=4);
+		translate([0,0,2]) cylinder(d=t+13.5, h=6.5-2);
+	}
+
+	//hose
+	translate([0,0,15]) cylinder(d=t+12.5, h=30);
+	translate([0,0,29]) cylinder(d1=t+12.5, d2=20, h=5); //inner bevel
+}
+
+module hose_cone() {
+	difference() {
+		//cone
+		translate([0,0,0.01]) cylinder(d1=23.5, d2=20.5, h=30);
+		//outer bevel
+		rotate_extrude() rotate([0,0,45]) translate([15,30.4,0]) square(5, center=true);
+		hose_ferule();
+	}
+}
+
+module snap_fit(t=0) {
+	hull() {
+		translate([-9,-2,0]) cylinder(d=2+t, h=31);
+		translate([-200,-2,0]) cylinder(d=2+t, h=31);
+	}
+	translate([-11.5,0,0]) cube([5+t,2+t,66], center=true);
+	translate([-9.3,0.6,0]) rotate([0,0,55]) cube([2.5+t,2.5+t,66], center=true);
+}
+
+module cone_cutout(t=0)  {
+	difference() {
+		hose_cone();
+		translate([-25,0,0]) cube(50);
+	
+		snap_fit(t);
+		mirror([1,0,0]) snap_fit(t);
+	}
+}
+
+// Instantiate
+
+cone_cutout(t=0.3);
+
+translate([0,5,0]) difference() {
+	hose_cone();
+	cone_cutout();
+}
-- 
2.30.2