chiark / gitweb /
nook-case: edge ledge profile
[reprap-play.git] / nook-case.scad
1 // -*- C -*-
2
3 include <utils.scad>
4
5 nook_th = 12.41 + 0.50 - 1.50;
6 nook_w = 127.12 + 0.75 - .95;
7 nook_h = 123.44 + 21.88 + 21.05 + 0.75 - 1.90;
8
9 edge_ledge_w = 9.60;
10 edge_ledge_h = 2.44;
11 edge_ledge_inc_ang = 10; // degrees
12
13 usb_w = 14.5;
14 usb_below = 1.5;
15
16 open_recess_w = 12.5;
17 open_recess_h = 2.5;
18
19 nook_cnr_rad = 10;
20
21 case_th = 2.5;
22 ledge_w = 4;
23 tape_th = 1.75;
24 tape_inside = 2.0;
25
26 gap = 0.5 * [1,1];
27
28 tape_w = 15;
29
30 test_pillar = 4;
31
32 engage_l0 = 10;
33 engage_l1 = 10;
34 engage_l2 = 3;
35
36 tooth_inward = gap[0] * 1.0;
37 tooth_x = nook_w * 1/6;
38 tooth_w = 15;
39
40 $test = false;
41
42 $fa = $test ? 10 : 3;
43 $fs = $test ? 0.1 : 1;
44
45 // calculated
46
47 tooth_height = nook_th;
48 ledge_h = case_th;
49 lid_th = case_th;
50 tooth_th = case_th;
51
52 spp0 = [0,0];
53 spp1 = spp0 + case_th * [-1,0];
54 spp9 = spp0 + ledge_h * [0,-1];
55 spp8 = spp9 + nook_th * [0,-1];
56 spp7 = spp8 + case_th * [-1,-1];
57
58 spp11y = spp1[1] - tape_th;
59 spp4y  = 0.5 * (spp0[1] + spp7[1]);
60 spp3y = spp4y + tape_inside/2;  spp5y = spp4y - tape_inside/2;
61 spp2y = spp3y + tape_th;        spp6y = spp5y - tape_th;
62
63 spp20 = spp8 + nook_cnr_rad * [1,0];
64 spp20x = spp20[0];
65
66 tppA = spp0 + gap;
67 tppB = spp1 + [0, gap[1]];
68 tppC = tppB + lid_th * [0,1];
69 tppD = [ spp20x, tppC[1] ];
70 tppE = [ spp20x, tppB[1] ];
71 tppF = tppA + ledge_w * [1,0];
72 tppG = tppF + ledge_h * [0,-1];
73 tppH = [ tppA[0], tppG[1] ];
74
75 tppJx = tppA[0] + tape_th;
76
77 tppK = [ tppC[0], tppG[1] ];
78 spp31 = tppK - [0, gap[1]];
79 spp30 = [ spp8[0], spp31[1] ];
80
81 nom_cnr = 0.5 * [nook_w, nook_h, 0] - nook_cnr_rad * [1,1,0];
82
83 etxa = nom_cnr[0] - engage_l2;
84 etxb = etxa - engage_l1;
85 etxc = -(nom_cnr[0] - engage_l2);
86
87 tapa = nom_cnr[1] - engage_l2;
88 tapb = tapa - tape_w;
89
90 opra = nom_cnr[1] - engage_l2;
91 oprb = opra - open_recess_w;
92
93 tppS = tppB + [-gap[0], 0];
94 tppP = [ tppS[0] - tooth_th, tppC[1] ];
95 tppQ = tppP + tooth_height * [0,-1] + tooth_inward * [1,0];
96 tppR = [ tppS[0] + tooth_inward, tppQ[1] ];
97 tppM = (tppQ + tppR) * 0.5 + tooth_th * 0.5 * [0,1];
98
99 edge_ledge_rad = edge_ledge_h;
100
101 module RightSideMainProfile() {
102   rectfromto(spp7, spp0);
103   rectfromto(spp7, spp20);
104 }
105
106 module LeftSideMainProfile() {
107   rectfromto(spp7, spp30);
108   rectfromto(spp7, spp20);
109 }
110
111 module EdgeLedgeProfile() {
112   intersection(){
113     hull(){
114       for (t=[[0,0], [-20,0], [0,-10]]) {
115         translate(spp8
116                   + [edge_ledge_w, edge_ledge_h]
117                   + edge_ledge_rad * [ -sin(edge_ledge_inc_ang),
118                                        -cos(edge_ledge_inc_ang) ]
119                   + t)
120           circle(edge_ledge_rad);
121       }
122     }
123     translate(spp7)
124       square(30);
125   }
126 }
127
128 module TopTapeCutout() {
129   polygon([ tppA,
130             tppA + [-40, 0],
131             tppG + [-40,-1],
132             [ tppJx, tppH[1]-1 ],
133             [ tppJx, tppC[1]+1 ],
134             [ tppA[0], tppC[1]+1 ]]);
135 }
136
137 module RightTopMainProfile() {
138   l = [ tppA, tppB, tppC, tppD, tppE, tppF, tppG, tppH ];
139   polygon(l);
140 }
141
142 module LeftTopMainProfile() {
143   l = [ tppC, tppD, tppE, tppF, tppG, tppK ];
144   polygon(l);
145 }
146
147 module SideTapeCutout1(y0,y1) {
148   rectfromto([ spp7[0]-1, y0 ],
149              [ spp8[0]+1, y1 ]);
150 }
151
152 module SideTapeCutout() {
153   SideTapeCutout1(spp6y, spp5y);
154   SideTapeCutout1(spp3y, spp2y);
155   SideTapeCutout1(spp3y, spp2y);
156   SideTapeCutout1(spp11y, spp1[1] + 1); // obsolete I think
157 }
158
159 module ToothProfile(){
160   polygon([tppA,
161            tppB,
162            tppS + [-0.1,0],
163            tppP,
164            tppC]);
165   hull(){
166     polygon([tppP,
167              tppM,
168              tppS]);
169     translate(tppM)
170       circle(r= tooth_th/2);
171   }
172 }
173
174 module Demo(){ ////toplevel
175   translate([-1,0,0]) {
176     translate([0,0,-2]) LeftSideMainProfile(); 
177     translate([0,0,-2]) color("yellow") LeftTopMainProfile();
178     color("red") difference(){
179       LeftSideMainProfile();
180       SideTapeCutout();
181     }
182     translate([0,0,-4]) color("brown") EdgeLedgeProfile();
183     translate(concat(spp8 + [edge_ledge_w, edge_ledge_h], [2]))
184       rotate(-edge_ledge_inc_ang) {
185       color("blue") square(3);
186       color("lightblue") mirror([1,0]) square(3);
187     }
188   }
189   translate([0,0,0]) color("purple") difference(){
190     LeftTopMainProfile();
191     TopTapeCutout();
192   }
193   translate([nook_cnr_rad*2 + 5, 0,0]) mirror([1,0,0]) {
194     color("red") RightSideMainProfile();
195     color("purple") RightTopMainProfile();
196     color("grey") translate([0,0,-2]) ToothProfile();
197   }
198   //%SideTapeCutout();
199 }
200
201 module FaceCore(z0,z1, extra_left, extra_right){
202   difference(){
203     for (mx=[0,1]) mirror([mx,0,0]) {
204         for (my=[0,1]) mirror([0,my,0]) {
205             translate(-nom_cnr) {
206               rotate_extrude(angle=90, convexity=10)
207                 translate(-[1,0,0] * nook_cnr_rad)
208                 children(mx);
209             }
210           }
211         translate([nook_w/2, 0,0])
212           linextr_y_xz(-nom_cnr[1]-0.1, nom_cnr[1]+0.1)
213           children(1-mx);
214       }
215     for (my=[0,1]) mirror([0,my,0]) {
216         translate([-nook_w/2, 0,0])
217           mirror([1,0,0])
218           linextr_y_xz(tapb, tapa)
219           children(2);
220       }
221   }
222   for (my=[0,1]) mirror([0,my,0]) {
223       translate([0, -nook_h/2, 0]) {
224         linextr_x_yz(-nom_cnr[0]-0.1,    etxc + extra_left)  children(0);
225         linextr_x_yz(etxc - extra_right, etxb + extra_right) children(1);
226         linextr_x_yz(etxb - extra_left,  etxa + extra_left)  children(0);
227         linextr_x_yz(etxa - extra_right, nom_cnr[0]+0.1)     children(1);
228       }
229     }
230   if (!$test) {
231     linextr(z0,z1)
232       rectfromto(-nom_cnr, nom_cnr);
233   }
234 }
235
236 module Base(){ ////toplevel
237   difference(){
238     FaceCore(spp7[1],spp8[1], 0.3, 0) {
239       LeftSideMainProfile();
240       RightSideMainProfile();
241       SideTapeCutout();
242     }
243     translate([0, -nook_h/2, 0])
244       mirror([0,1,0])
245       linextr_x_yz(-usb_w/2, usb_w/2)
246       rectfromto(spp8 + [-40, usb_below], [40, 40]);
247 /*
248     translate([nook_w/2, 0, 0])
249       linextr_y_xz(oprb, opra)
250       translate(spp0)
251       rectfromto([-40, -open_recess_h], [40, 1]);
252 */
253   }
254 }
255
256 module Top(){ ////toplevel
257   FaceCore(tppE[1],tppD[1], -gap[0], gap[0] + 0.3) {
258     LeftTopMainProfile();
259     RightTopMainProfile();
260     TopTapeCutout();
261   }
262   translate([tooth_x, nook_h/2, 0])
263     linextr_x_yz(-tooth_w/2, +tooth_w/2)
264     mirror([1,0])
265     ToothProfile();
266 }
267 module TopPrint(){ ////toplevel
268   rotate([0,0,90]) rotate([180,0,0]) Top();
269 }
270 module BasePrint(){ ////toplevel
271   rotate([0,0,90]) Base();
272 }
273
274 module TestExtrude(){
275   difference(){
276     linextr_y_xz(-test_pillar, tape_w+test_pillar) children(0);
277     linextr_y_xz(           0, tape_w            ) children(1);
278   }
279 }
280
281 module BaseTestRest(){ ////toplevel
282   cube([30,15, spp8[1]-spp7[1]]);
283 }
284
285 module Demo3(){ ////toplevel
286   color("purple") Top();
287   color("red") Base();
288 }
289
290 module TestSide(){ ////toplevel
291   TestExtrude() { LeftSideMainProfile(); SideTapeCutout(); }
292 }
293
294 module TestTop(){ ////toplevel
295   TestExtrude() { LeftTopMainProfile(); TopTapeCutout(); }
296 }
297 module TestTopPrint(){ ////toplevel
298   rotate([180,0,0]) TestTop();
299 }