chiark / gitweb /
trackpump-mutlihead-clip: more elevation
[reprap-play.git] / 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 // need reconfirm:
13 pump_protr_protr = 3;
14 pump_side_height = 20;
15
16 // calculated
17 pump_protr_slheight = pump_protr_protr / pump_protr_slope;
18
19 pump_side_outer_rad = pump_side_width + pump_main_dia/2;
20
21 module PumpSidePlan() {
22   xm = baseplate + pump_main_dia/2;
23   or = pump_side_outer_rad;
24   difference(){
25     union(){
26       intersection(){
27         translate([-xm, 0]) circle(r=or);
28         translate([-(xm+or), -or]) square([xm+or, or*2]);
29       }
30       translate([-xm, -or]) square([xm, or*2]);
31     }
32     translate([-xm, 0]) circle(r=pump_main_dia/2);
33     translate([-xm*2, 0])
34       square(center=true, [pump_side_width*3, pump_shaft_dia]);
35   }
36 }
37
38 module PumpSideElevation(){
39   x3 = 0;
40   x2 = x3 - baseplate;
41   x1 = x2 - pump_main_dia;
42   x0 = x1 - pump_side_width;
43   x2a = x2 - pump_protr_protr;
44
45   z0 = 0;
46   z1 = z0 - pump_side_thick;
47   z2 = z1 - pump_side_height;
48   z2a = z2 - pump_protr_slheight;
49   z2b = z2a - pump_protr_flat;
50
51   arcx = x2-x1;
52   arcy = z1-z2;
53
54   translate([x0,z1]) square([x1-x0, z0-z1]);
55
56   difference(){
57     translate([x1,z2]) square([x3-x1, z0-z2]);
58     translate([x1,z2]) scale([1,arcy/arcx]) circle(r=arcx);
59   }
60
61   translate([x2,z2a]) square([x3-x2, z0-z2a]);
62
63   hull(){
64     translate([x2,z2a]) square([x3-x2, z2-z2a]);
65     translate([x2a,z2b]) square([x3-x2a, z2a-z2b]);
66   }
67 }
68
69 //PumpSidePlan();
70 PumpSideElevation();