From 3482ca4c7b9d3423b9bcf4e98bc8d52ac48851f5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 22 Jul 2016 16:40:26 +0100
Subject: [PATCH] trackpump-mutlihead-clip: HoseSideElevation seems good

---
 trackpump-mutlihead-clip.scad | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/trackpump-mutlihead-clip.scad b/trackpump-mutlihead-clip.scad
index 2ae634d..50e136f 100644
--- a/trackpump-mutlihead-clip.scad
+++ b/trackpump-mutlihead-clip.scad
@@ -9,6 +9,10 @@ baseplate = 4;
 pump_protr_flat = 3;
 pump_protr_slope = 1.0;
 
+hose_head_dia = 28;
+hose_side_thick = 5;
+hose_base_offset = 10;
+
 // need reconfirm:
 pump_protr_protr = 3;
 pump_side_height = 20;
@@ -84,6 +88,31 @@ module PumpSide(){
   }
 }
 
+module HoseSideElevation(){
+  or = hose_head_dia/2 + hose_side_thick;
+
+  x3 = 0;
+  x4 = x3 + hose_base_offset;
+  x5 = x4 + hose_head_dia/2;
+  x6 = x4 + hose_head_dia;
+  x7 = x5 + or;
+
+  z0 = 0;
+  zm = -or;
+
+  difference(){
+    intersection(){
+      translate([-100,-100]) square([x7+210, 100]);
+      hull(){
+	translate([x5, 0]) circle(r=or);
+	translate([-1, zm]) square([1,z0-zm]);
+      }
+    }
+    translate([x5,0]) circle(r=hose_head_dia/2);
+  }
+}
+
 //PumpSidePlan();
 //PumpSideElevation();
-PumpSide();
+HoseSideElevation();
+//PumpSide();
-- 
2.30.2