trackpump-mutlihead-clip.scad

   1 // -*- C -*-
   2
   3 pump_main_dia = 38;
   4 pump_side_width = 5;
   5 pump_side_thick = 5;
   6 pump_shaft_dia = 14;
   7 baseplate = 4;
   8
   9 pump_protr_flat = 3;
  10 pump_protr_slope = 1.0;
  11
  12 hose_head_dia = 28;
  13 hose_side_thick = 5;
  14 hose_base_offset = 10;
  15
  16 // need reconfirm:
  17 pump_protr_protr = 3;
  18 pump_side_height = 20;
  19
  20 // calculated
  21 pump_protr_slheight = pump_protr_protr / pump_protr_slope;
  22
  23 pump_side_outer_rad = pump_side_width + pump_main_dia/2;
  24
  25 $fa=5;
  26
  27 module PumpSidePlan() {
  28   xm = baseplate + pump_main_dia/2;
  29   or = pump_side_outer_rad;
  30   difference(){
  31     union(){
  32       intersection(){
  33         translate([-xm, 0]) circle(r=or);
  34         translate([-(xm+or), -or]) square([xm+or, or*2]);
  35       }
  36       translate([-xm, -or]) square([xm, or*2]);
  37     }
  38     translate([-xm-or, 0])
  39       square(center=true, [pump_side_width*4, pump_shaft_dia]);
  40   }
  41 }
  42
  43 module PumpSideElevation(){
  44   x3 = 0;
  45   x2 = x3 - baseplate;
  46   x1 = x2 - pump_main_dia;
  47   x0 = x1 - pump_side_width;
  48   x2a = x2 - pump_protr_protr;
  49
  50   z0 = 0;
  51   z1 = z0 - pump_side_thick;
  52   z2 = z1 - pump_side_height;
  53   z2a = z2 - pump_protr_slheight;
  54   z2b = z2a - pump_protr_flat;
  55
  56   arcx = x2-x1;
  57   arcy = z1-z2;
  58
  59   translate([x0,z1]) square([x1-x0, z0-z1]);
  60
  61   difference(){
  62     translate([x1,z2]) square([x3-x1, z0-z2]);
  63     translate([x1,z2]) scale([1,arcy/arcx]) circle(r=arcx);
  64   }
  65
  66   translate([x2,z2a]) square([x3-x2, z0-z2a]);
  67
  68   hull(){
  69     translate([x2,z2a]) square([x3-x2, z2-z2a]);
  70     translate([x2a,z2b]) square([x3-x2a, z2a-z2b]);
  71   }
  72 }
  73
  74 module PumpSide(){
  75   difference(){
  76     intersection(){
  77       translate([0,100,0])
  78         rotate([90,0,0])
  79         linear_extrude(height=200)
  80       PumpSideElevation();
  81       translate([0,0,-100])
  82         linear_extrude(height=200)
  83         PumpSidePlan();
  84     }
  85     translate([-(baseplate + pump_main_dia/2), 0,
  86                 -(pump_side_thick + pump_side_height)])
  87       cylinder(r=pump_main_dia/2, h=200);
  88   }
  89 }
  90
  91 module HoseSideElevation(){
  92   or = hose_head_dia/2 + hose_side_thick;
  93
  94   x3 = 0;
  95   x4 = x3 + hose_base_offset;
  96   x5 = x4 + hose_head_dia/2;
  97   x6 = x4 + hose_head_dia;
  98   x7 = x5 + or;
  99
 100   z0 = 0;
 101   zm = -or;
 102
 103   difference(){
 104     intersection(){
 105       translate([-100,-100]) square([x7+210, 100]);
 106       hull(){
 107         translate([x5, 0]) circle(r=or);
 108         translate([-1, zm]) square([1,z0-zm]);
 109       }
 110     }
 111     translate([x5,0]) circle(r=hose_head_dia/2);
 112   }
 113 }
 114
 115 //PumpSidePlan();
 116 //PumpSideElevation();
 117 HoseSideElevation();
 118 //PumpSide();