From 13d15de00776caf2932432599910a3a50d1df02f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 24 Jul 2016 17:08:49 +0100
Subject: [PATCH] trackpump-mutlihead-clip: new slopy baseplate, wip

---
 trackpump-mutlihead-clip.scad | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/trackpump-mutlihead-clip.scad b/trackpump-mutlihead-clip.scad
index 5521392..ac07f97 100644
--- a/trackpump-mutlihead-clip.scad
+++ b/trackpump-mutlihead-clip.scad
@@ -42,7 +42,7 @@ module PumpSidePlan() {
     union(){
       intersection(){
 	translate([-xm, 0]) circle(r=or);
-	translate([-(xm+or), -or]) square([xm+or, or*2]);
+//	translate([-(xm+or), -or]) square([xm+or, or*2]);
       }
     }
     translate([-xm-or, 0])
@@ -56,6 +56,7 @@ module PumpSideElevation(){
   x1 = x2 - pump_main_dia;
   x0 = x1 - pump_side_width;
   x2a = x2 - pump_protr_protr;
+  x4 = x2 + pump_side_width;
 
   z0 = 0;
   z1 = z0 - pump_side_thick;
@@ -73,17 +74,20 @@ module PumpSideElevation(){
     translate([x1,z2]) scale([1,arcy/arcx]) circle(r=arcx);
   }
 
-  translate([x2,z2a]) square([x3-x2, z0-z2a]);
+  translate([x2,z2a]) square([x4-x2, z0-z2a]);
 
   hull(){
-    translate([x2,z2a]) square([x3-x2, z2-z2a]);
+    translate([x2,z2a]) square([x4-x2, z2-z2a]);
     translate([x2a,z2b]) square([x3-x2a, z2a-z2b]);
   }
 }
 
 module PumpSide(){
   br = baseplate_width_rad;
-  brs = baseplate_width_rad/2;
+  brs =
+    sqrt( pow(pump_side_outer_rad, 2)
+	  -pow(pump_main_dia/2 + baseplate, 2) );
+  echo(brs);
 
   difference(){
     intersection(){
@@ -99,7 +103,7 @@ module PumpSide(){
 	hull(){
 	  mirror([0,0,1])
 	    translate([-xm, -brs, 0])
-	    cube([xm,
+	    cube([pump_main_dia/2 + pump_side_width,
 		  brs*2,
 		  1]);
 	  translate([-xm, -br, -pump_side_total_height])
-- 
2.30.2