fairphone-case: prop: make more variables special and introduce PropProfileAssignment...

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

diff --git a/fairphone-case.scad b/fairphone-case.scad
index 600b18f0f80840d9451677fca8b4da08162fcba4..fb75586d32d7f93b207a55e616e48a9d945cb068 100644 (file)
--- a/fairphone-case.scad
+++ b/fairphone-case.scad
@@ -277,10 +277,10 @@ prlp10 = lpp10 + [1,1] * prl_r10o
 
 // prop
 
-prpp10 = [0,0];
-prpp11 = [0, prop_taper_len];
+$prpp10 = [0,0];
+$prpp11 = [0, prop_taper_len];
 
-prp_r10 = prl_r10;
+$prp_r10 = prl_r10;
 
 // ---------- modules ----------
 
@@ -624,78 +624,85 @@ module CaseBase(){
 
 function prop_x(gamma) = hp_k / (2 * sin(gamma/2)) - hppT[0];
 
-module PropProfile(gamma, cut=0, rot=0){ ////toplevel
+module PropProfileAssignments(gamma){
   // https://en.wikipedia.org/wiki/Solution_of_triangles#Two_sides_and_the_included_angle_given_(SAS)
   x = prop_x(gamma);
   p = phone_height - prlp10[0] - hppB[0];
   b = p + x;
 
-  q = phone_height - hppT[0]; // prpp7[0] is 0 by definition
+  q = phone_height - hppT[0]; // $prpp7[0] is 0 by definition
   a = q + x;
   c = sqrt(a*a + b*b - 2*a*b*cos(gamma));
-  alpha = acos( (b*b + c*c - a*a) / (2*b*c) );
+  $prp_alpha = acos( (b*b + c*c - a*a) / (2*b*c) );
 
-  theta = 90 - alpha;
-  beta = 180 - alpha - gamma;
+  $prp_theta = 90 - $prp_alpha;
+  beta = 180 - $prp_alpha - gamma;
   psi = 90 - beta;
 
-  echo("abc", a,b,c);
+  //echo("abc", a,b,c);
 
   v1 = [ [ cos(psi), -sin(psi) ],    // x
         [ sin(psi),  cos(psi) ] ];  // y
 
-  prpp7 = [0, c + (lpp13[1] - prpp10[1]) ];
+  $prpp7 = [0, c + (lpp13[1] - $prpp10[1]) ];
 
-  prp_r1 = prc_r1;
-  prp_r11 = prop_main_th/2;
+  $prp_r1 = prc_r1;
+  $prp_r11 = prop_main_th/2;
 
-  prpp1 = prpp7 + [1,0] *
+  $prpp1 = $prpp7 + [1,0] *
     // this is approximate, but will do
     (prop_main_th/2 + prop_prop_gap + prcp1[0] - epp4[0]);
-  prpp3 = prpp1 +
-    v1[0] * -prp_r1 +
+  $prpp3 = $prpp1 +
+    v1[0] * -$prp_r1 +
     v1[1] * ((prcp2[1] - prcp1[1]) - prop_prop_gap);
-  prpp12 = prpp3 + v1[0] *
-    (prop_end_dia + prop_caserecess_taper * (prpp1[1] - prpp3[1]));
-  prp_r8 = prop_main_th;
-  prpp4 = [ prop_main_th/2, prpp3[1] ];
-  prp_r5 = prp_r8;
-  prpp5 = [ prpp12[0] - prp_r5,
-           prpp3[1] - prop_prong_h + prp_r5 ];
-  prpp6 = prpp4 + [0,-1] * (prop_prong_h +
-         prop_prong_heel_slope * (prpp5[0] - prpp4[0]));
-  prpp8 = prpp4 + [0,-1] * prp_r8;
-  prpp9 = prpp8 + [-1,0] * prp_r8;
-
-  //#circleat(prpp3,1);
-  //#circleat(prpp12,1);
-
-  if (!cut) {
-    hull(){
-      translate(prpp8)
-       intersection(){
-         circle(prp_r8);
-         polygon([[-20,-0], [0,0], [20,20]]);
-        }
-      rectfromto(prpp6, prpp9);
-      translate(prpp5) intersection(){
-       circle(prp_r5);
-       polygon([[-10,-10], [0,0], [10,0]]);
+  $prpp12 = $prpp3 + v1[0] *
+    (prop_end_dia + prop_caserecess_taper * ($prpp1[1] - $prpp3[1]));
+  $prp_r8 = prop_main_th;
+  $prpp4 = [ prop_main_th/2, $prpp3[1] ];
+  $prp_r5 = $prp_r8;
+  $prpp5 = [ $prpp12[0] - $prp_r5,
+           $prpp3[1] - prop_prong_h + $prp_r5 ];
+  $prpp6 = $prpp4 + [0,-1] * (prop_prong_h +
+         prop_prong_heel_slope * ($prpp5[0] - $prpp4[0]));
+  $prpp8 = $prpp4 + [0,-1] * $prp_r8;
+  $prpp9 = $prpp8 + [-1,0] * $prp_r8;
+
+  children();
+}
+
+module PropProfile(gamma, cut=0, rot=0){ ////toplevel
+  PropProfileAssignments(gamma){
+
+    //#circleat($prpp3,1);
+    //#circleat($prpp12,1);
+
+    if (!cut) {
+      hull(){
+       translate($prpp8)
+         intersection(){
+           circle($prp_r8);
+           polygon([[-20,-0], [0,0], [20,20]]);
+         }
+       rectfromto($prpp6, $prpp9);
+       translate($prpp5) intersection(){
+         circle($prp_r5);
+         polygon([[-10,-10], [0,0], [10,0]]);
+       }
+       rectfromto($prpp12 + [0,-0.1], $prpp3);
+      }
+      hull(){
+       circleat($prpp1, $prp_r1);
+       rectfromto($prpp12 + [0,-0.1], $prpp3);
       }
-      rectfromto(prpp12 + [0,-0.1], prpp3);
-    }
-    hull(){
-      circleat(prpp1, prp_r1);
-      rectfromto(prpp12 + [0,-0.1], prpp3);
     }
-  }
-  // main shaft
-  rotate([0,0, rot*-theta]){
-    hull(){
-      extra = cut ? prop_recess_slop : 0;
-      rectfromto(prpp6, prpp9);
-      circleat(prpp11, prp_r11 + extra);
-      circleat(prpp10, prp_r10 + extra);
+    // main shaft
+    rotate([0,0, rot*-$prp_theta]){
+      hull(){
+       extra = cut ? prop_recess_slop : 0;
+       rectfromto($prpp6, $prpp9);
+       circleat($prpp11, $prp_r11 + extra);
+       circleat($prpp10, $prp_r10 + extra);
+      }
     }
   }
 }
@@ -1057,24 +1064,25 @@ module DemoPropAngleSelect(c){
 }
 
 module DemoPropAngle(ang){
-  hL = [0, -(phone_height - hppT[0]), hppT[1]];
-  hC = [0, -(phone_height - hppB[0]), hppB[1] + hp_k*2];
+  hL = [0, -(phone_height - hppT[0]), hppT[1] - hp_k*2];
+  hC = [0, -(phone_height - hppB[0]), hppB[1]];
 
-  DemoPropAngleSelect("red")  Case();
+  translate(hL)
+    rotate([ang/2,0,0])
+    translate(-hL)
+    translate(hC)
+    rotate([ang/2,0,0])
+    translate(-hC) {
+      DemoPropAngleSelect("red") Case();
+
+      color("orange")
+       translate([prop_x_pos, -prcp1[0], prcp1[1]])
+       rotate([90,0,-90])
+       Prop();
+    }
 
   translate([0,0, -hp_k*2])
-    translate(hC)
-    rotate([-ang/2,0,0])
-    translate(-hC)
-    translate(hL)
-    rotate([-ang/2,0,0])
-    translate(-hL)
     DemoPropAngleSelect("blue") Lid();
-
-  color("orange")
-    translate([prop_x_pos, -prlp10[0], prlp10[1]])
-    rotate([90,0,90])
-    Prop();
 }
 
 module DemoPropAngles(){ ////toplevel