fairphone-case: ButtonPlan: fix lengths, with fudge

[reprap-play.git] / fairphone-case.scad

diff --git a/fairphone-case.scad b/fairphone-case.scad
index 81d2dfd41df9854134830e7c62e9bc339759cf43..a9f199a365a0543bb834ac82ea004c7043bb5773 100644 (file)
--- a/fairphone-case.scad
+++ b/fairphone-case.scad
@@ -44,9 +44,11 @@ lid_lip = 1.75;
 $fa = 5;
 $fs = 0.1;
 
-// calculated
+button_l_fudge = 4.5;
 
-// could be changed
+// ---------- calculated ----------
+
+// ----- could be changed -----
 lid_buttoncover_gap = lid_gap_x;
 lid_buttoncover_overlap = case_th_lip + keeper_gap_z_top;
 
@@ -75,14 +77,15 @@ lpp11 = [ lpp10[0],            epp5[1] + lid_gap_z ];
 lpp12 = [ epp4[0] + lid_lip,   lpp11[1] ];
 lpp13 = [ lpp12[0],            lpp12[1] + lid_lip ];
 
-bppM = epp4 + [0,1] * lid_gap_z;
+// button profile
+bppM = epp4 + [0,5];
 bppN = [ 0.5 * (epp0[0] + epp4[0]), bppM[1] ];
 bppR = [ bppN[0] + lid_buttoncover_gap, -button_cutout_depth ];
 bppS = [ epp1[0], bppR[1] ];
 bppQ = [ bppM[0], bppR[1] - lid_buttoncover_overlap ];
 bppP = bppQ + [0,1] * lid_buttoncover_gap;
 bppO = [ bppN[0], bppP[1] ];
-bppL = lpp10 + [1,0];
+bppL = lpp10 + [5,0];
 bppK = [ bppL[0], bppN[1] ];
 bppJ = [ bppN[0], bppL[1] ];
 
@@ -130,14 +133,53 @@ module LidEdgeProfile(){
 module ButtonCoverProfile(){
   intersection(){
     polygon([ bppM, bppP, bppO, bppJ, bppL, bppK ]);
-    *hull(){
+    hull(){
       EdgeProfile();
       LidEdgeProfile();
     }
   }
 }
 
-module ButtonPlan(){
+module ButtonPlan(l, deep, cut){
+  bigger =
+    (deep ? lid_buttoncover_overlap : 0) +
+    (cut  ? 0 : -lid_buttoncover_gap);
+
+  d_D1_y =
+    (cut  ? 0 : lid_buttoncover_gap);
+
+  C = [0,0]; // by definition
+  T = [ 0, epp4[1] ];
+  G = T + [0,10];
+  B0 = C + [0,-1] * button_cutout_depth;
+  r0 = 0.5 * (T[1] - B0[1]);
+  A = [  -(l + button_l_fudge)/2 + r0, 0.5 * (T[1] + B0[1]) ];
+  r1 = r0 + bigger;
+  // | D1 - A | = r1 * 2
+  // D1_y = T_y - r1 + d_D1_y
+  // =>    4 * r1^2   =  (r1-r0 + d_D1_y)^2 + (D1_x - A_x)^2
+  // =>    D1_x =  A_x + v/~ [  4 * r1^2   -   (r1-r0 + d_D1_y)^2 ]
+  D1  = [ A[0] - sqrt( 4*r1*r1 - pow(bigger + d_D1_y, 2) ),
+         T[1] - r1 + d_D1_y ];
+  E1  = 0.5 * (D1 + A);
+  F1  = D1 + [0,10];
+
+  hull(){
+    for (m=[0,1]) mirror([m,0])
+      circleat(A, r1);
+  }
+  for (m=[0,1]) mirror([m,0]) {
+    difference(){
+      polygon([ E1,
+               A,
+               B0,
+               G,
+               F1,
+               D1
+               ]);
+      circleat(D1, r1);
+    }
+  }
 }
 
 module CaseBase_rhsflip(yn=[0,1]) {
@@ -314,6 +356,12 @@ module Keeper(){ ////toplevel
     OneKeeper();
 }
 
+module ButtonPlanForDemo(colour, z, deep, cut){
+  color(colour)
+    translate([0,0,z])
+    ButtonPlan(8, deep, cut);
+}
+
 module DemoProfiles(){ ////toplevel
   LidEdgeProfile();
   %EdgeProfile();
@@ -331,6 +379,12 @@ module DemoProfiles(){ ////toplevel
       rectfromto(bppR, demopoint_QR);
     }
   }
+
+  translate([-20,0]) {
+    ButtonPlanForDemo("grey", -1, 0,1);
+    ButtonPlanForDemo("blue", -2, 1,0);
+    ButtonPlanForDemo("red",  -3, 1,1);
+  }
 }
 
 //EdgeProfile();