From de2130137c65858021d8c1328de87037208930ed Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 24 Jul 2016 16:52:02 +0100
Subject: [PATCH] trackpump-mutlihead-clip: move baseplate into PumpSide so it
 can be non-square (nfc)

---
 trackpump-mutlihead-clip.scad | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/trackpump-mutlihead-clip.scad b/trackpump-mutlihead-clip.scad
index 0b8bd01..90141af 100644
--- a/trackpump-mutlihead-clip.scad
+++ b/trackpump-mutlihead-clip.scad
@@ -31,18 +31,19 @@ baseplate_width_rad =
 
 xm = baseplate + pump_main_dia/2;
 
+pump_side_total_height =
+  pump_side_thick + pump_side_height + pump_protr_slheight + pump_protr_flat;
+
 $fa=5;
 
 module PumpSidePlan() {
   or = pump_side_outer_rad;
-  br = baseplate_width_rad;
   difference(){
     union(){
       intersection(){
 	translate([-xm, 0]) circle(r=or);
 	translate([-(xm+or), -or]) square([xm+or, or*2]);
       }
-      translate([-xm, -br]) square([xm, br*2]);
     }
     translate([-xm-or, 0])
       square(center=true, [pump_side_width*4, pump_shaft_dia]);
@@ -81,15 +82,25 @@ module PumpSideElevation(){
 }
 
 module PumpSide(){
+  br = baseplate_width_rad;
+
   difference(){
     intersection(){
       translate([0,100,0])
 	rotate([90,0,0])
 	linear_extrude(height=200)
-      PumpSideElevation();
-      translate([0,0,-100])
-	linear_extrude(height=200)
-	PumpSidePlan();
+	PumpSideElevation();
+      union(){
+	translate([0,0,-100])
+	  linear_extrude(height=200)
+	  PumpSidePlan();
+	// baseplate
+	mirror([0,0,1])
+	  translate([-xm, -br, 0])
+	  cube([xm,
+		br*2,
+		pump_side_total_height]);
+      }
     }
     translate([-(baseplate + pump_main_dia/2), 0,
 		-(pump_side_thick + pump_side_height)])
-- 
2.30.2