From e49d64bbd1f327371e8ec4dad8423f66ceb4295c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 20 Jan 2018 01:00:48 +0000
Subject: [PATCH 1/1] fairphone-case: LidEdge

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 fairphone-case.scad | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/fairphone-case.scad b/fairphone-case.scad
index ddf5791..bfa7d41 100644
--- a/fairphone-case.scad
+++ b/fairphone-case.scad
@@ -29,6 +29,10 @@ keeper_gap_x_holes = 0.75;
 
 case_lip = 1.25;
 
+lid_gap_x = 0.25;
+lid_gap_z = 0.25;
+lid_lip = 1.75;
+
 $fa = 5;
 $fs = 0.1;
 
@@ -53,6 +57,11 @@ kppb = [ kppe[0] - keeper_th_x, kppc[1] ];
 kppf = kppe - [0,1] * keeper_inner_height;
 kppa = [ kppb[0], kppf[1] ];
 
+lpp10 = [ epp5[0] + lid_gap_x, kppc[1] + lid_gap_z ];
+lpp11 = [ lpp10[0],            epp5[1] + lid_gap_z ];
+lpp12 = [ epp4[0] + lid_lip,   lpp11[1] ];
+lpp13 = [ lpp12[0],            lpp12[1] + lid_lip ];
+
 module rectfromto(a,b) {
   ab = b - a;
   translate([min(a[0], b[0]), min(a[1], b[1])])
@@ -79,6 +88,21 @@ module EdgeProfile(){
   }
 }
 
+module LidEdgeProfile(){
+  polygon([ lpp10,
+	    lpp11,
+	    lpp12,
+	    lpp13,
+	    lpp13 + [10, 0],
+	    lpp10 + [10, 0]
+	    ]);
+  intersection(){
+    circleat(lpp12, r=lid_lip);
+    rectfromto( lpp12 + [-10,   0],
+		lpp12 + [+10, +10] );
+  }
+}
+
 module CaseBase_rhsflip(yn=[0,1]) {
   for (rhs=yn) {
     translate([phone_width/2, 0, 0])
@@ -205,8 +229,17 @@ module Keeper(){ ////toplevel
     OneKeeper();
 }
 
+module DemoProfiles(){ ////toplevel
+  LidEdgeProfile();
+  %EdgeProfile();
+  KeeperProfile();
+}
+
 //EdgeProfile();
 //KeeperProfile();
 //CaseBase();
 //%Case();
 //Keeper();
+//LidEdgeProfile();
+//KeeperProfile();
+//DemoProfiles();
-- 
2.30.2