From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 27 Jan 2018 01:37:58 +0000 (+0000)
Subject: fairphone-case: wip prop profile, fixes
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=67c90f7ce0d5bc86a81967f53add66dae867b223

fairphone-case: wip prop profile, fixes

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/fairphone-case.scad b/fairphone-case.scad
index c321dbe..a4fc59f 100644
--- a/fairphone-case.scad
+++ b/fairphone-case.scad
@@ -654,7 +654,7 @@ module PropProfile(gamma, cut=0){ ////toplevel
   prpp3 = prpp1 +
     v1[0] * -prp_r1 +
     v1[1] * ((prcp2[1] - prcp1[1]) - prop_prop_gap);
-  prpp12 = prpp3 + [1,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] ];
@@ -666,19 +666,20 @@ module PropProfile(gamma, cut=0){ ////toplevel
   prpp8 = prpp4 + [0,-1] * prp_r8;
   prpp9 = prpp8 + [-1,0] * prp_r8;
 
-  //#circleat(prpp5,1);
+  //#circleat(prpp3,1);
+  //#circleat(prpp12,1);
 
   if (!cut) {
     hull(){
       translate(prpp8)
 	intersection(){
 	  circle(prp_r8);
-	  rectfromto([-20,-0], [20,20]);
+	  polygon([[-20,-0], [0,0], [20,20]]);
         }
       rectfromto(prpp6, prpp9);
       translate(prpp5) intersection(){
 	circle(prp_r5);
-	rectfromto([-10,-10], [10,0]);
+	polygon([[-10,-10], [0,0], [10,0]]);
       }
       rectfromto(prpp12 + [0,-0.1], prpp3);
     }
@@ -1113,7 +1114,7 @@ module DemoProfiles(){ ////toplevel
 	//PropProfile(10, 1);
     }
     translate(prlp10)
-      PropProfile(15, 0);
+      PropProfile(60, 0);
   }
 }