From fcce123d6477ff3039261633a8340af33bbea244 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Sep 2020 17:49:54 +0100
Subject: [PATCH] nook-case: edge ledge profile

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

diff --git a/nook-case.scad b/nook-case.scad
index eb15b63..83c6f25 100644
--- a/nook-case.scad
+++ b/nook-case.scad
@@ -6,6 +6,10 @@ nook_th = 12.41 + 0.50 - 1.50;
 nook_w = 127.12 + 0.75 - .95;
 nook_h = 123.44 + 21.88 + 21.05 + 0.75 - 1.90;
 
+edge_ledge_w = 9.60;
+edge_ledge_h = 2.44;
+edge_ledge_inc_ang = 10; // degrees
+
 usb_w = 14.5;
 usb_below = 1.5;
 
@@ -92,6 +96,8 @@ tppQ = tppP + tooth_height * [0,-1] + tooth_inward * [1,0];
 tppR = [ tppS[0] + tooth_inward, tppQ[1] ];
 tppM = (tppQ + tppR) * 0.5 + tooth_th * 0.5 * [0,1];
 
+edge_ledge_rad = edge_ledge_h;
+
 module RightSideMainProfile() {
   rectfromto(spp7, spp0);
   rectfromto(spp7, spp20);
@@ -102,6 +108,23 @@ module LeftSideMainProfile() {
   rectfromto(spp7, spp20);
 }
 
+module EdgeLedgeProfile() {
+  intersection(){
+    hull(){
+      for (t=[[0,0], [-20,0], [0,-10]]) {
+	translate(spp8
+		  + [edge_ledge_w, edge_ledge_h]
+		  + edge_ledge_rad * [ -sin(edge_ledge_inc_ang),
+				       -cos(edge_ledge_inc_ang) ]
+		  + t)
+	  circle(edge_ledge_rad);
+      }
+    }
+    translate(spp7)
+      square(30);
+  }
+}
+
 module TopTapeCutout() {
   polygon([ tppA,
 	    tppA + [-40, 0],
@@ -156,6 +179,12 @@ module Demo(){ ////toplevel
       LeftSideMainProfile();
       SideTapeCutout();
     }
+    translate([0,0,-4]) color("brown") EdgeLedgeProfile();
+    translate(concat(spp8 + [edge_ledge_w, edge_ledge_h], [2]))
+      rotate(-edge_ledge_inc_ang) {
+      color("blue") square(3);
+      color("lightblue") mirror([1,0]) square(3);
+    }
   }
   translate([0,0,0]) color("purple") difference(){
     LeftTopMainProfile();
-- 
2.30.2