X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=fairphone-case.scad;h=b781957575f5c684fd266d355dbcc854857e9e6c;hp=d77e7b9976fc178175df07ef31b1db2bb3d441f7;hb=8f760c16548a66f4921aeaf726acfbb9e17a3d4c;hpb=147a75d9b19067fbe4b595a5d4fb278c06a9c29d

diff --git a/fairphone-case.scad b/fairphone-case.scad
index d77e7b9..b781957 100644
--- a/fairphone-case.scad
+++ b/fairphone-case.scad
@@ -521,6 +521,15 @@ module LidEdgeProfile(){
   }
 }
 
+module LidEdgeFoldClearanceProfile(){
+  polygon([ lpp10,
+	    lpp11,
+	    lpp11 + [-20,  0],
+	    lpp11 + [-20, 20],
+	    lpp11 + [+20, 20],
+	    lpp10 + [+20,  0] ]);
+}
+
 module ButtonCoverProfile(){
   intersection(){
     polygon(concat([ bppM, bppP, bppO, bppJ ],
@@ -1055,19 +1064,27 @@ module LidAdhocMultiprintFrame(phase){
   }
 }
 
+module LidAroundEdges(){
+  AroundEdges(lpp10[1], lpp13[1] - lpp10[1], 0)
+    children();
+}
+
 module Lid(){ ////toplevel
   skew_centre = [0, lpp11[0], lpp11[1]];
   difference(){
     union(){
-      intersection_for(skew=[0,1]){
+      intersection(){
+	LidAroundEdges()
+	  LidEdgeProfile();
+
 	translate(skew_centre)
 	  multmatrix([[ 1, 0, 0, 0 ],
-		      [ 0, 1, 0, 0 ],
+		      [ 0, 1, -2, 0 ],
 		      [ 0, 0, 1, 0 ],
 		      [ 0, 0, 0, 1 ]])
 	  translate(-skew_centre)
-	  AroundEdges(lpp10[1], lpp13[1] - lpp10[1], 0)
-	  LidEdgeProfile();
+	  LidAroundEdges()
+	  LidEdgeFoldClearanceProfile();
       }
 
       // button covers