chiark / gitweb /
fairphone-case: drop a commented-out obsolete bit
[reprap-play.git] / fairphone-case.scad
1 // -*- C -*-
2
3 include <utils.scad>
4
5 phone = [ 75.0, 145.0 ];
6
7 bumper = [ 0.250, -0.025 ];
8 // ^ One side.  Overall size is increased by twice this.
9 // If no bumpers, is the gap around the phone.
10
11 phone_cnr_rad = 6.0;
12
13 button_cutout_depth = 9;
14
15 phone_edge_thick = 9.0;
16 phone_total_thick = 12.0;
17 phone_backside_slope_inner = 1.5; // larger means shallower
18 phone_backside_slope_outer = 1.0; // larger means shallower
19
20 camera_pos_tl = [  6.450, 12.750 ]; // measured from tl corner
21 camera_pos_br = [ 22.300, 37.600 ]; // tl/br as seen from back
22
23 jack_pos = [ 13.92, 7.96 ];
24 jack_dia = 9.1 + .5; // some jack I had lying around
25
26 noisecancelmic_pos = [ 19.54, 7.37 ];   // from rhs
27 noisecancelmic_dia = 1.75;
28
29 fingerpushhole_dias = [ 15, 18 ];
30
31 rearspeaker_pos_bl = [ 12.64, 18.72 ];
32 rearspeaker_size   = [  3.76,  7.36 ];
33
34 microusb_above = 3.27 - 0.25;
35 microusb_below = 0.0;
36 microusb_width = 16.12 + 0.25;
37
38 case_th_bottom = 2.5;
39 case_th_lid = 2.5;
40 case_th_side = 2;
41 case_th_lip = 1.2;
42
43 case_struts_count = 6;
44 case_struts_solid_below = 1.00;
45 case_struts_solid_above = 0.75;
46 case_struts_width = 0.10;
47
48 keeper_th_z = 0.75;
49 keeper_th_x = 0.75;
50 keeper_inner_width = 2.75;
51 keeper_inner_height = 2.75;
52 keeper_slant_slope = 2; // larger means steeper
53
54 keeper_gap_z_top = 0.25;
55 keeper_gap_z_bot = 0.75;
56 keeper_gap_x     = 0.25;
57 keeper_gap_x_holes = 0.75;
58
59 case_lip = 1.25;
60
61 lid_gap_x = 0.25;
62 lid_gap_z = 0.25;
63 lid_lip = 1.75;
64
65 catch_slop = 0.25;
66
67 foldover_gap = 0.50;
68 foldover_lever_gap = 0.50;
69
70 hingescrew_shaft_dia = 2.0 + 0.25; // M2 x 12mm machine screw
71 hingescrew_shaft_len = 12;
72 hingescrew_nut_thick = 1.93 + 0.20; // incl. washer
73 hingescrew_nut_dia = 4.72 + 0.50; // washer, actually
74 hingescrew_head_th = 1.38 + 0.75;
75 hingescrew_head_dia = 3.92;
76 lever_cover_th = 0.75;
77 hingemount_th = 2.5;
78
79 $fa = 5;
80 $fs = 0.1;
81
82 button_l_fudge = 4.4;
83 buttonishleg_default_l_is_fudge = 10;
84
85 hinge_base_slope = 1.5; // bigger is steeper
86
87 strut_min_at_end = 1.5;
88
89 hinge_x_gap = 0.125;
90 hinge_x_postscrew_gap = 0.75;
91 hinge_x_arms_gap = 0.35;
92 hinge_r_arms_gap = 0.55;
93
94 rearspeaker_gap    = [ 1.0, 1.0 ]; // each side
95
96 catch_len = 7.5;
97 catch_width = 15;
98 catch_thickness = 1.0;
99 catch_side_gap = 0.75; // each side
100
101 catch_depth = 1.25;
102 catch_height = 0.35;
103 catch_finger_height = 1.5;
104 catch_finger_depth = 2.5;
105
106 // ---------- calculated ----------
107
108 phone_width =  (phone + bumper*2)[0];
109 phone_height = (phone + bumper*2)[1];
110
111 inside_br = [phone_width, -phone_height];
112
113 //echo(camera_pos_tl + bumper,
114 //     camera_pos_br + bumper);
115
116 // ----- could be changed -----
117 lid_buttoncover_gap = lid_gap_x;
118 lid_buttoncover_overlap = case_th_lip + keeper_gap_z_top;
119
120 phone_backside_slope_thick = phone_total_thick - phone_edge_thick;
121
122 //lid_lip_overlap_width xxx bad name = ;
123 //lid_lip_inner_slope = [ 5, 5 ]; // xxx
124
125 epp0 = [0,0];
126 epp1 = [0, -phone_edge_thick];
127 epp2i = epp1 + phone_backside_slope_thick * [ phone_backside_slope_inner, -1 ];
128 epp2o = epp1 + phone_backside_slope_thick * [ phone_backside_slope_outer, -1 ];
129 epp3 = epp2i + [10, 0];
130 epp5 = epp0 + [0,1] * (keeper_th_z + keeper_gap_z_top + case_lip);
131 epp4 = epp5 + [-1,0] * case_th_side;
132
133 kppe = [0,0];
134 kppd = kppe + [1,0] * keeper_inner_width;
135 kppc = kppd + [0,1] * keeper_th_z;
136 kppb = [ kppe[0] - keeper_th_x, kppc[1] ];
137 kppf = kppe - [0,1] * keeper_inner_height;
138 kppa = [ kppb[0], kppf[1] ];
139
140 lpp10 = [ epp5[0] + lid_gap_x, kppc[1] + lid_gap_z ];
141 lpp11 = [ lpp10[0],            epp5[1] + lid_gap_z ];
142
143 lp_r12 = case_th_lid - (lpp11[1] - lpp10[1]);
144
145 lpp12 = [ epp4[0] + lp_r12,    lpp11[1] ];
146 lpp13 = [ lpp12[0],            lpp12[1] + lp_r12 ];
147
148 // button profile
149 bppM = epp4 + [0,5];
150 bppN = [ 0.5 * (epp0[0] + epp4[0]), bppM[1] ];
151 bppR = [ bppN[0] + lid_buttoncover_gap, -button_cutout_depth ];
152 bppS = [ epp1[0], bppR[1] ];
153 bppQ = [ bppM[0], bppR[1] - lid_buttoncover_overlap ];
154 bppP = bppQ + [0,1] * lid_buttoncover_gap;
155 bppO = [ bppN[0], bppP[1] ];
156 bppL = lpp10 + [5,0];
157 bppK = [ bppL[0], bppN[1] ];
158 bppJ = [ bppN[0], bppL[1] ];
159
160 // hinge plan
161 hp_rn = hingescrew_nut_dia/2;
162 hp_r2_min = hp_rn + lever_cover_th;
163 hp_rs = hingescrew_shaft_dia/2;
164 hp_r1_min = hp_rs + hingemount_th;
165
166 hp_r1 = max(hp_r1_min, hp_r2_min);
167 hp_r2 = hp_r1;
168
169 hppU = lpp13;
170 hppS = epp2o + [0,-1] * case_th_bottom;
171 hp_k = 0.5 * (hppU[1] - hppS[1] + foldover_gap);
172
173 hppM = [ epp4[0] - foldover_lever_gap - hp_r2,
174          0.5 * (hppU + hppS)[1] ];
175 hppT = [ hppM[0], hppU[1] - hp_r1 ];
176 hppB = hppT + [0,-1] * hp_k;
177
178 hppE_y = epp2o[1] - case_th_bottom + hp_r1;
179 hppE_x = hppB[0] + (hppB[1] - hppE_y) * hinge_base_slope;
180 hppE = [ hppE_x, hppE_y ];
181
182 // hinge elevation x coords
183
184 hingescrew_portion_len =
185   0.5* (hingescrew_shaft_len - hingescrew_nut_thick - hinge_x_gap);
186
187 hex20 = max(epp2o[0],
188             phone_cnr_rad,
189             kppd[0] + hingescrew_head_th + keeper_gap_x_holes);
190 hex21 = hex20 + hingescrew_portion_len;
191 hex22 = hex21 + hinge_x_gap;
192 hex23 = hex22 + hingescrew_portion_len
193   - hingescrew_nut_thick; // bodge, need to divvy this up more sensibly
194 hex24 = hex20 + hingescrew_shaft_len + hinge_x_postscrew_gap;
195 echo(hex20, hex21, hex22, hex23, hex24);
196 echo(hingescrew_portion_len);
197
198 // catch
199
200 cppJ = [ epp4[0] + catch_thickness, lpp10[1] ];
201 cppA = cppJ + [lid_gap_x, -lid_gap_z];
202 cppB = [ epp0[0], cppA[1] ];
203 cppP = [ epp4[0], cppJ[1] ];
204
205 cppS = cppJ + [0,-1] * catch_len;
206 cppD = [ cppA[0], cppS[1] + catch_slop ];
207 cppC = [ cppB[0], cppD[1] ];
208 cppT = cppS + [1,0] * catch_depth;
209 cppU = cppT + [0,-1] * catch_height;
210 cppV = [ cppS[0], cppU[1] - catch_depth ];
211
212 cppR = 0.5*(cppP + cppJ);
213
214 cp_rQ = 0.5 * (cppJ[0] - cppP[0]);
215 cppQ = [ cppR[0],
216          cppV[1] - (catch_finger_height - cp_rQ) ];
217 cppF = [ cppV[0] + catch_finger_depth, cppC[1] ];
218
219 // ---------- modules ----------
220
221 module KeeperProfile(slant=0){
222   use_e = kppe + [0,-1] * slant * keeper_inner_width / keeper_slant_slope;
223   polygon([use_e, kppd, kppc, kppb, kppa, kppf]);
224 }
225
226 module EdgeProfile(){
227   difference(){
228     hull(){
229       translate(epp3) square(case_th_bottom*2, center=true);
230       circleat(epp2o, r=case_th_bottom);
231       circleat(epp1, r=case_th_side);
232       rectfromto(epp0, epp4);
233     }
234     polygon([ epp5 + [0,10],
235               epp1,
236               epp2i,
237               epp3 + [10,0] ]);
238   }
239 }
240
241 module LidEdgeProfile(){
242   polygon([ lpp10,
243             lpp11,
244             lpp12,
245             lpp13,
246             lpp13 + [10, 0],
247             lpp10 + [10, 0]
248             ]);
249   intersection(){
250     circleat(lpp12, r=lp_r12);
251     rectfromto( lpp12 + [-10,   0],
252                 lpp12 + [+10, +10] );
253   }
254 }
255
256 module ButtonCoverProfile(){
257   intersection(){
258     polygon([ bppM, bppP, bppO, bppJ, bppL, bppK ]);
259     hull(){
260       EdgeProfile();
261       LidEdgeProfile();
262     }
263   }
264 }
265
266 module ButtonPlan(l, deep, cut){
267   epsilon =
268     (cut  ? 0 : lid_buttoncover_gap);
269
270   delta =
271     (deep ? lid_buttoncover_overlap : 0);
272
273   C = [0,0]; // by definition
274   T = [ 0, epp4[1] ];
275   G = T + [0,10];
276
277   B0 = C + [0,-1] * button_cutout_depth;
278   B1 = B0 + [0,1] * epsilon;
279
280   r0 = 0.5 * (T[1] - B0[1]);
281   A = [  -(l + button_l_fudge)/2 + r0, 0.5 * (T[1] + B0[1]) ];
282   H = A + [0,-1] * delta;
283
284   D = A + [-2,0] * r0;
285   F = D + [0,10];
286
287   E0 = 0.5 * (D + A);
288   E1 = E0 + [1,0] * epsilon;
289
290   I0 = [ E0[0], H[1] ];
291   I1 = [ E1[0], H[1] ];
292
293   hull(){
294     for (m=[0,1]) mirror([m,0])
295       circleat(H, r0 - epsilon);
296   }
297   for (m=[0,1]) mirror([m,0]) {
298     difference(){
299       polygon([ E1,
300                 I1,
301                 H,
302                 B1,
303                 G,
304                 F,
305                 D
306                 ]);
307       circleat(D, r0 + epsilon);
308     }
309   }
310 }
311
312 module CatchCatchProfile(){
313   hull(){
314     for (c=[ cppR, cppQ ])
315       circleat(c, cp_rQ);
316   }
317   hull(){
318     circleat(lpp12, lp_r12);
319     circleat(lpp12 + [5,0], lp_r12);
320     rectfromto(cppP, cppP + [5,0.1]);
321   }
322   polygon([cppJ, cppS, cppT, cppU, cppV, cppQ, cppR]);
323 }
324
325 module CatchCutProfile(){
326   polygon([ cppB,
327             cppA,
328             cppD,
329             cppF,
330             cppF + [0,-10],
331             cppF + [-10,-10],
332             lpp12 + [-10,0],
333             lpp12 + [10,0]
334             ]);
335 }
336
337 module Flip_rhs(yn=[0,1]) {
338   for ($rhsflip=yn) {
339     translate([phone_width/2, 0, 0])
340       mirror([$rhsflip,0,0])
341       translate([-phone_width/2, 0, 0])
342       children();
343   }
344 }
345
346 module Flip_bot(yn=[0,1]) {
347   for ($botflip=yn) {
348     translate([0, -phone_height/2, 0])
349       mirror([0, $botflip, 0])
350       translate([0, phone_height/2, 0])
351       children();
352   }
353 }  
354
355 module AroundEdges(fill_zstart, fill_th, fill_downwards=0){
356   // sides
357   Flip_rhs(){
358     translate([0, -phone_cnr_rad, 0])
359       rotate([90,0,0])
360       linear_extrude(height = phone_height - phone_cnr_rad*2)
361       children(0);
362   }
363   // corners
364   Flip_rhs() Flip_bot() {
365     translate([+1,-1] * phone_cnr_rad)
366       intersection(){
367         rotate_extrude()
368           intersection(){
369             mirror([1,0,0])
370               translate([-1,0] * phone_cnr_rad)
371               children(0);
372             rectfromto([0,-20],[10,20]);
373           }
374         translate([-10, 0, -20] + 0.01 * [+1,-1, 0] )
375           cube([10,10,40]);
376       }
377   }
378   // top and bottom
379   Flip_bot(){
380     translate([ phone_width - phone_cnr_rad, 0,0 ])
381       rotate([90,0,-90])
382       linear_extrude(height = phone_width - phone_cnr_rad*2)
383       children(0);
384   }
385   // fill
386   translate([0,0, fill_zstart])
387     mirror([0,0, fill_downwards])
388     linear_extrude(height = fill_th)
389     rectfromto([+1,-1] * phone_cnr_rad,
390                [phone_width, -phone_height] + [-1,+1] * phone_cnr_rad);
391 }
392
393 module CaseAperture(pos, dia, $fn) {
394   theta = 180/$fn;
395   translate([ pos[0] + bumper[0],
396               -epp2i[0],
397               -pos[1] ])
398     rotate([-90, theta, 0])
399     cylinder(r = dia/2 / cos(theta),
400              h = 60);
401 }
402
403 module SideButton(y, y_ref_sign, l){
404   // y_ref_sign:
405   //   +1  measured from top    of actual phone to top    of button
406   //   -1  measured from bottom of actual phone to bottom of button
407   //    0  y is centre of button in coordinate system
408   $button_l= l;
409   eff_y = y_ref_sign > 0 ?         -bumper [1] -y -l/2 :
410           y_ref_sign < 0 ? (-phone -bumper)[1] +y +l/2 :
411           y;
412   //echo(eff_y);
413   translate([0, eff_y, 0])
414     children();
415 }
416
417 module LidButtonishLeg(y, y_ref_sign, l=buttonishleg_default_l_is_fudge) {
418   $button_leg_only = true;
419   SideButton(y, y_ref_sign, l) children();
420 }
421
422 module Buttons(){
423   Flip_rhs(1) SideButton(15.580, +1, 8.9) children(); // power
424   Flip_rhs(1) SideButton(48.700, -1, 8.920) children(); // camera
425   Flip_rhs(0) SideButton(30.800, +1, 21.96) children(); // volume
426   Flip_rhs(   ) LidButtonishLeg(14, -1) children();
427 //  Flip_rhs(0) LidButtonishLeg(20, +1, 20) children();
428 }
429
430 module Struts(x_start, z_min, th){
431   // if th is negative, starts at z_min and works towards -ve z
432   // and object should then be printed other way up
433   for (i= [1 : 1 : case_struts_count]) {
434     translate([0,
435                0,
436                z_min])
437       mirror([0,0, th<0 ? 1 : 0])
438       translate([0,
439                  -phone_height * i / (case_struts_count+1),
440                  case_struts_solid_below])
441       linear_extrude(height= abs(th)
442                      -(case_struts_solid_below+case_struts_solid_above))
443       rectfromto([               x_start, -0.5 * case_struts_width ],
444                  [ phone_width - x_start, +0.5 * case_struts_width ]);
445   }
446 }
447
448 module OrdinaryRearAperture(rhs,bot, pos){
449   Flip_rhs(rhs) Flip_bot(bot)
450     linextr(-20, 20)
451     mirror([0,1])
452     translate(pos + bumper)
453     children();
454 }
455
456 module MicroUSB(){
457   Flip_bot(1){
458     rotate([90,0,0])
459       mirror([0,0,1])
460       linextr(-epp2i[0], 60)
461       translate([0.5 * phone_width, 0, 0])
462       rectfromto([-microusb_width/2, epp2i[1] + microusb_below],
463                  [+microusb_width/2, epp0[1] + -microusb_above]);
464   }
465 }
466
467 module OrdinaryRearApertures(){
468   // rear speaker
469   OrdinaryRearAperture(1,1, rearspeaker_pos_bl)
470     rectfromto(-rearspeaker_gap,
471                rearspeaker_size + rearspeaker_gap);
472
473   // finger hole to remove phone
474   OrdinaryRearAperture(1,0, [ fingerpushhole_dias[0]/2 + epp2i[0],
475                               phone[1]/2 ])
476     scale(fingerpushhole_dias)
477     circle(r= 0.5 );
478 }
479
480 module RearCameraAperture(){
481   Flip_rhs(1)
482     mirror([0, 0, 1])
483     linear_extrude(height = 20)
484     mirror([0, 1, 0])
485     translate(bumper)
486     rectfromto(camera_pos_tl, camera_pos_br);
487 }
488
489 module HingeLidProfile(){
490   hull(){
491     circleat(hppT, hp_r1);
492     circleat(lpp12, lp_r12);
493     polygon([lpp10,
494              lpp13 + [2,0],
495              lpp12,
496              hppT]);
497   }
498 }
499
500 module HingeBaseProfile(){
501   difference(){
502     hull(){
503       circleat(hppB, hp_r1);
504       circleat(hppE, hp_r1);
505       circleat(epp2o, case_th_bottom);
506       circleat(hppB + [10,0], hp_r1);
507     }
508     polygon([epp5, epp1, epp2i, epp3, bppL]);
509   }
510 }
511
512 module HingeLeverOuterProfile(){
513   hull(){
514     circleat(hppT, hp_r2);
515     circleat(hppB, hp_r2);
516   }
517 }
518
519 module HingeLeverInnerProfile(){
520   for (c = [hppT, hppB]) {
521     hull()
522       for (x=[-20,20])
523         for (y=[0, c[1] - hppM[1]])
524           translate([x,y])
525             circleat(c, hp_rn);
526   }
527 }
528
529 module Flip_hinge(){
530   hinge_origin = [0, -(phone_height - hppB[0]), hppB[1]];
531   translate(hinge_origin)
532     rotate([180,0,0])
533     translate(-hinge_origin)
534     children();
535 }
536
537 module HingePortion(x0,x1){
538   Flip_rhs() Flip_bot(1)
539     translate([x0,0,0])
540     mirror([1,0,0])
541     rotate([90,0,-90])
542     linear_extrude(height=x1-x0)
543     children(0);
544 }
545
546 module CatchPortion(width){
547   translate([phone_width/2, 0,0])
548     rotate([90,0,-90])
549     linextr(-width/2, width/2)
550     children(0);
551 }
552
553 module CaseBase(){
554   AroundEdges(epp3[1], case_th_bottom, 1)
555     EdgeProfile();
556 }
557
558 module Case(){ ////toplevel
559   difference(){
560     union(){
561       CaseBase();
562
563       // ledge (fixed keeper)
564       intersection(){
565         rotate([90, 0, 0])
566           linear_extrude(height = phone_height + phone_cnr_rad * 2)
567           KeeperProfile(1);
568
569         // outline of the whole case, to stop it protruding
570         translate([0,0, -25])
571           linear_extrude(height = 50)
572           hull()
573           Flip_bot()
574           circleat([+1,-1] * phone_cnr_rad, phone_cnr_rad + case_th_side/2);
575       }
576
577       // hinge
578       HingePortion(hex20, hex21) HingeBaseProfile();
579     }
580
581     // slot for keeper
582     Flip_rhs(1)
583       translate([0, -phone_cnr_rad, 0])
584       rotate([90, 0, 0])
585       linear_extrude(height = phone_height + phone_cnr_rad * 2)
586       minkowski(){
587         KeeperProfile();
588         rectfromto([ -keeper_gap_x,    -keeper_gap_z_bot ],
589                    [ keeper_gap_x_holes,    +keeper_gap_z_top ]);
590       }
591
592     // front camera
593     RearCameraAperture();
594
595     // struts (invisible, because they're buried in the case)
596     Struts(epp2i[0], epp2i[1] - case_th_bottom, case_th_bottom);
597
598     Buttons(){
599       mirror([1,0,0])
600         rotate([90,0,90]) {
601           intersection(){
602             translate([0,0,-10])
603               linear_extrude(height= 20)
604               ButtonPlan($button_l, 0,1);
605             if ($button_leg_only)
606               rotate([-90,90,0])
607                 translate([phone_width/2, -400, kppe[1]])
608                 mirror([$rhsflip,0,0]) cube([400, 800, 50]);
609           }
610           translate([0,0, -bppR[0]])
611             linear_extrude(height= 20)
612             ButtonPlan($button_l, 1,1);
613         }
614     }
615
616     // apertures along top edge
617     CaseAperture(jack_pos, jack_dia, 8);
618     Flip_rhs(1)
619       CaseAperture(noisecancelmic_pos, noisecancelmic_dia, 20);
620
621     OrdinaryRearApertures();
622
623     MicroUSB();
624
625     // gaps for the lid's hinge arms
626     HingePortion(hex20 - hinge_x_arms_gap,
627                  hex21 + hinge_x_arms_gap)
628       minkowski(){
629         HingeLidProfile();
630         circle(r= hinge_r_arms_gap, $fn= 8);
631       }
632
633     // screw holes in the hinge arms
634     HingeScrews();
635
636     // catch striker
637     CatchPortion(catch_width + catch_side_gap*2)
638       CatchCutProfile();
639   }
640 }
641
642 module Lid(){ ////toplevel
643   difference(){
644     union(){
645       AroundEdges(lpp10[1], lpp13[1] - lpp10[1], 0)
646         LidEdgeProfile();
647
648       // button covers
649       Buttons(){
650         intersection(){
651           rotate([90,0,90])
652             translate([0,0,-10])
653             linear_extrude(height= 20)
654             ButtonPlan($button_l, 1,0);
655           rotate([90,0,0])
656              translate([0,0,-100])
657             linear_extrude(height= 200)
658             ButtonCoverProfile();
659         }
660       }
661
662       // hinge arms
663       HingePortion(hex20, hex21) HingeLidProfile();
664
665       // catch
666       CatchPortion(catch_width)
667         CatchCatchProfile();
668     }
669     Struts(lpp10[0] + strut_min_at_end, lpp13[1], -case_th_lid);
670
671     // screw holes in the hinge arms
672     HingeScrews();
673   }
674 }
675
676 module HingeLever(){ ////toplevel
677   difference() {
678     // outer body, positive
679     HingePortion(hex22, hex22 + phone_width/2)
680       HingeLeverOuterProfile();
681
682     // space for the screws
683     HingePortion(hex23, hex24)
684       HingeLeverInnerProfile();
685
686     // bores for the screws
687     HingeScrews();
688
689     // space for the charging cable
690     MicroUSB();
691     Flip_hinge() MicroUSB();
692   }
693 }
694
695 module HingeLeverPrint(){ ////toplevel
696   rotate([90,0,0])
697     HingeLever();
698 }
699
700 module TestSelectLength(){
701   translate([-30, -200, -20])
702     cube([30 + 15, 250, 40]);
703 }
704
705 module TestLength(){ ////toplevel
706   intersection(){
707     Case();
708     TestSelectLength();
709   }
710 }
711
712 module TestLengthRight(){ ////toplevel
713   intersection(){
714     Case();
715     Flip_rhs(1)
716       TestSelectLength();
717   }
718 }
719
720 module TestSelectWidth(){
721   translate([-30, -(phone_height - 25), -20])
722     mirror([0, 1, 0])
723     cube([200, 50, 40]);
724 }
725
726 module TestWidth(){ ////toplevel
727   intersection(){
728     Case();
729     TestSelectWidth();
730   }
731 }
732
733 module TestLidWidthPrint(){ ////toplevel
734   rotate([0,180.0]) intersection(){
735     Lid();
736     TestSelectWidth();
737   }
738 }
739
740 module TestSelectRearAperture(){
741   minkowski(){
742     union() children();
743     translate([20, 0,0])
744       cube([42, 2, 1], center=true);
745   }
746 }
747
748 module TestSelectCamera(){
749   minkowski(){
750     TestSelectRearAperture()
751       RearCameraAperture();
752     cube([0.1, 50, 0.1]);
753   }
754 }
755
756 module TestSelectOrdinaryRearApertures(){
757   TestSelectRearAperture()
758     OrdinaryRearApertures();
759 }
760
761 module TestCamera(){ ////toplevel
762   intersection(){
763     Case();
764     TestSelectCamera();
765   }
766 }
767
768 module TestLidByCamera(){ ////toplevel
769   intersection(){
770     Lid();
771     TestSelectCamera();
772   }
773 }
774
775 module TestLidByCameraPrint(){ ////toplevel
776   rotate([180,0,0]) TestLidByCamera();
777 }
778
779 module DemoByCamera(){ ////toplevel
780   color("blue") TestLidByCamera();
781   color("red")  TestCamera();
782 }
783
784 module OneKeeper(){ ////toplevel
785   translate([0, -phone_cnr_rad, 0])
786     rotate([90, 0, 0])
787     linear_extrude(height = phone_height - phone_cnr_rad * 2)
788     KeeperProfile();
789 }
790
791 module OneKeeperPrint(){ ////toplevel
792   rotate([0,180,0])
793     OneKeeper();
794 }
795
796 module LidPrint(){ ////toplevel
797   rotate([0,180,0])
798     Lid();
799 }
800
801 module TestSelectFrame(){
802   include = [1,-1] * (epp2i[0] + 4);
803
804   difference(){
805     cube(1000, center=true);
806     translate([0,0, -100])
807       linear_extrude(height=200)
808       rectfromto(include,  inside_br - include);
809   }
810 }
811
812 module TestFrameCase(){ ////toplevel
813   intersection(){
814     Case();
815     union(){
816       TestSelectFrame();
817       TestSelectCamera();
818       TestSelectOrdinaryRearApertures();
819     }
820   }
821 }
822
823 module TestFrameLidPrint(){ ////toplevel
824   rotate([0,180,0]) intersection(){
825     Lid();
826     TestSelectFrame();
827   }
828 }
829
830 module Keeper(){ ////toplevel
831   Flip_rhs()
832     OneKeeper();
833 }
834
835 module ButtonPlanForDemo(z, deep, cut){
836   translate([0,0,z])
837     ButtonPlan(8, deep, cut);
838 }
839
840 module HingeScrews(){
841   Flip_rhs() Flip_bot(1){
842     for (c= [ hppT, hppB ])
843       translate([ hex20,
844                   -c[0],
845                   c[1] ]){
846         rotate([0,90,0])
847           translate([0,0,-.2])
848           cylinder( r= hingescrew_shaft_dia/2,
849                     h = hingescrew_shaft_len+0.2 );
850         rotate([0,-90,0])
851           translate([0,0,+.1])
852           cylinder( r= hingescrew_head_dia/2, h = hingescrew_head_th );
853       }
854   }
855 }
856
857 module DemoFrame(){ ////toplevel
858   color("red") TestFrameCase();
859   color("blue") intersection(){ Lid(); TestSelectFrame(); }
860   color("black") HingeScrews();
861   %HingeLever();
862 }
863
864 module DemoHingedFrame(){ ///toplevel
865   color("red") TestFrameCase();
866   translate([0,0, -2*hp_k])
867   color("blue") intersection(){ Lid(); TestSelectFrame(); }
868
869   Flip_hinge(){
870     color("orange") HingeLever();
871     color("black") HingeScrews();
872   }
873 }
874
875 module DemoHinge(){ ////toplevel
876   DemoFrame();
877   translate([0,0, -hp_k*3])
878     DemoHingedFrame();
879 }
880
881 module DemoProfiles(){ ////toplevel
882   LidEdgeProfile();
883   %EdgeProfile();
884   KeeperProfile();
885   translate([0,0,-1]) color("black") KeeperProfile(1);
886
887   translate([20,0]) {
888     LidEdgeProfile();
889     %EdgeProfile();
890
891     demopoint_QR = [ bppS[0], bppQ[1] - 0.1];
892   
893     color("blue") ButtonCoverProfile();
894     color("red") {
895       rectfromto(bppQ, demopoint_QR);
896       rectfromto(bppR, demopoint_QR);
897     }
898   }
899
900   translate([-20,0]) {
901     color("black") ButtonPlanForDemo(-2, 0,1);
902     color("red" )  ButtonPlanForDemo(-4, 1,1);
903     color("blue")  ButtonPlanForDemo(-6, 1,0);
904   }
905
906   translate([0, -30]) {
907     %LidEdgeProfile();
908     %EdgeProfile();
909     color("blue") HingeLidProfile();
910     color("red")  HingeBaseProfile();
911     color("black") translate([0,0,-2]) HingeLeverOuterProfile();
912     color("orange") translate([0,0,-1]) HingeLeverInnerProfile();
913   }
914
915   translate([20,-30]) {
916     %EdgeProfile();
917     %LidEdgeProfile();
918     //translate([0,0,1]) CatchCutProfile();
919     color("blue") CatchCatchProfile();
920     color("red") difference(){ EdgeProfile(); CatchCutProfile(); }
921   }
922 }
923
924 //EdgeProfile();
925 //KeeperProfile();
926 //CaseBase();
927 //%Case();
928 //Keeper();
929 //LidEdgeProfile();
930 //KeeperProfile();
931 //DemoProfiles();