chiark / gitweb /
warptest2 before print
[reprap-play.git] / filamenttrestle.scad
1 // -*- C -*-
2
3 spoolwidth = 80; // fixme needs to be measured
4 trestleheight = 80; // fixme needs to be checked
5 trestlebase = 80; // fixme needs to be checked
6
7 include <doveclip.scad>
8
9 spoolwidthgap = 2;
10 barrady = 5;
11 barradz = 7;
12 guidewidth = 3;
13 guiderad = 20;
14
15 legw = 12;
16 plugl = 20;
17 plugwmin = 3;
18 plugh = 10;
19 plugslope = 0.5;
20 plugwmax = plugwmin + plugh * plugslope * 2;
21
22 trestlelegw = 10;
23 trestlebaseh = 10;
24 trestleplugd = 1;
25
26 topblockthick = 4;
27 topblockbasedepth = 5;
28
29 pinbasew = 5.0;
30 pinminh = 1.5;
31 pinmaxh = 4.5;
32 pindh = 0.50;
33 pindwidth = 0.75;
34
35 pintaperlen = plugwmax * 0.85;
36 pinstraightlen = 10;
37
38 module Plug(d=0){
39   dw = d;
40   dh = d;
41   dhb = d*2;
42   a = atan(plugslope);
43   bdy = -dhb;
44   bdx = dw / cos(a) + bdy * plugslope;
45   tdy = dh;
46   tdx = bdx + tdy * plugslope;
47   translate([-d,0,0]) rotate([90,0,90]) linear_extrude(height=plugl+0.1+d*2){
48     polygon([[-(plugwmin/2 + bdx),  bdy],
49              [-(plugwmax/2 + tdx),  plugh + tdy],
50              [+(plugwmax/2 + tdx),  plugh + tdy],
51              [+(plugwmin/2 + bdx),  bdy]]);
52   }
53 }
54
55 module Bar(){ ////toplevel
56   spoolw = spoolwidth + spoolwidthgap*2;
57   barz = barradz * 0.5;
58   biggestw = spoolw + 50;
59
60   intersection(){
61     for (mir=[0,1]) {
62       mirror([mir,0,0]) {
63         translate([0,0,barz]) {
64           scale([1,barrady,barradz]) translate([-1,0,0])
65             rotate([0,90,0]) cylinder(r=1, h=spoolw/2+2, $fn=30);
66           translate([spoolw/2,0,0])
67             rotate([0,90,0]) cylinder(r=guiderad, h=guidewidth, $fn=60);
68         }
69         translate([spoolw/2 + guidewidth, 0, 0])
70           Plug();
71       }
72     }
73     translate([-biggestw/2, -50, 0])
74       cube([biggestw, 100, 100]);
75   }
76 }
77
78 module Trestle(){ ////toplevel
79   legang = atan2(trestlebase/2, trestleheight);
80   eplen = sqrt(trestleheight*trestleheight + trestlebase*trestlebase*0.25);
81   topblockw = plugwmax + trestleplugd*2 + topblockthick*2;
82
83   pinholebasew = pinbasew + pindwidth*2;
84   pinholeh =     pinmaxh +  pindh;
85
86   difference(){
87     union(){
88       for (mir=[0,1]) {
89         mirror([mir,0,0]) {
90           rotate([0,0, -90-legang])
91             ExtenderPillars(length=eplen+trestlelegw,
92                             width=trestlelegw,
93                             height=legw,
94                             baseweb=true);
95
96           translate([-trestlebase/2, -trestleheight, 0])
97             cylinder(r=trestlelegw/2*1.2, h=plugl);
98         }
99       }
100       translate([-topblockw/2, -topblockbasedepth, 0])
101         cube([topblockw,
102               topblockbasedepth + plugh + topblockthick
103               + (pinmaxh - pinminh)*0.6 + pindh,
104               plugl]);
105
106       translate([-trestlebase/2, -trestleheight, 0])
107         ExtenderPillars(length=trestlebase, width=trestlebaseh*2, height=legw);
108     }
109     translate([-300, -trestleheight-50, -1])
110       cube([600, 50, plugl+2]);
111
112     rotate([-90,-90,0])
113       Plug(d=trestleplugd);
114
115     for (rot=[0,180]) {
116       translate([0,0,plugl/2]) rotate([0,rot,0]) translate([0,0,-plugl/2]) {
117         translate([-(topblockw*0.25+1),
118                    plugh + pindh - (pinmaxh - pinminh)*0.75,
119                    (plugl - pinholebasew*2)/3]) {
120           translate([0,0,pinholebasew/2]) rotate([-90,0,0]) %Pin();
121           rotate([0,90,0]) {
122             linear_extrude(height = topblockw*1.0+2) {
123               polygon([[-1.0 * pinholebasew, -0.01],
124                        [-0.5 * pinholebasew, pinholeh],
125                        [ 0                 , -0.01]]);
126             }
127           }
128         }
129       }
130     }
131   }
132 }
133
134 module Pin(){ ////toplevel
135   rotate([90,0,90]) {
136     hull(){
137       for (mir=[0,1]) {
138         mirror([mir,0,0]) {
139           linear_extrude(height=0.1) {
140             polygon([[-0.01, 0],
141                      [-0.01, pinminh],
142                      [pinbasew*0.5*(pinminh/pinmaxh), 0]]);
143           }
144           translate([0,0,pintaperlen])
145             linear_extrude(height=pinstraightlen) {
146             polygon([[-0.01, 0],
147                      [-0.01, pinmaxh],
148                      [pinbasew*0.5, 0]]);
149           }
150         }
151       }
152     }
153   }
154 }
155
156 module TestKit(){ ////toplevel
157   translate([30,0,0]) Pin();
158   translate([30,30,0]) Pin();
159   translate([0,40,0]) intersection(){
160     Trestle();
161     translate([-50,-10,-1]) cube([100,100,100]);
162   }
163   intersection(){
164     translate([-60,0,0]) Bar();
165     cube(50,center=true);
166   }
167 }
168
169 //Bar();
170 //Trestle();
171 //Pin();
172 TestKit();
173 //Plug(d=1);
174 //ExtenderPillars(80,12,8, baseweb=true);