trackpump-mutlihead-clip: smaller baseplate

diff --git a/trackpump-mutlihead-clip.scad b/trackpump-mutlihead-clip.scad
index 4d7ec02f3ca3e4da8c776231516e6b4e2f9f3aea..5426698c82460af973c89080546eef3e739b48f4 100644 (file)
--- a/trackpump-mutlihead-clip.scad
+++ b/trackpump-mutlihead-clip.scad
@@ -24,18 +24,23 @@ pump_protr_slheight = pump_protr_protr / pump_protr_slope;
 
 pump_side_outer_rad = pump_side_width + pump_main_dia/2;
 
 
 pump_side_outer_rad = pump_side_width + pump_main_dia/2;
 

+baseplate_width_rad =
+  sqrt( pow(pump_side_outer_rad, 2)
+       -pow( pump_main_dia/2 - pump_protr_protr, 2) );
+

 $fa=5;
 
 module PumpSidePlan() {
   xm = baseplate + pump_main_dia/2;
   or = pump_side_outer_rad;
 $fa=5;
 
 module PumpSidePlan() {
   xm = baseplate + pump_main_dia/2;
   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]);
       }
   difference(){
     union(){
       intersection(){
        translate([-xm, 0]) circle(r=or);
        translate([-(xm+or), -or]) square([xm+or, or*2]);
       }

-      translate([-xm, -or]) square([xm, or*2]);
+      translate([-xm, -br]) square([xm, br*2]);

     }
     translate([-xm-or, 0])
       square(center=true, [pump_side_width*4, pump_shaft_dia]);
     }
     translate([-xm-or, 0])
       square(center=true, [pump_side_width*4, pump_shaft_dia]);