From 88a203b1ca7a3b564b33fd2785fdc19ca7deb745 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 31 Oct 2018 02:09:05 +0000
Subject: [PATCH] ksafe-base: dcover wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 ksafe-base.scad | 40 ++++++++++++++++++++++++++++++++++++++--
 1 file changed, 38 insertions(+), 2 deletions(-)

diff --git a/ksafe-base.scad b/ksafe-base.scad
index 3811769..89482c9 100644
--- a/ksafe-base.scad
+++ b/ksafe-base.scad
@@ -30,11 +30,13 @@ string_depth = 6.0;
 thumbslot_depth = 5.0;
 thumbslot_width = 15.0;
 thumbslot_between = 10;
+ksafecover_lip = 4.62;
 dcover_endthick = 3.0;
 dcover_mainthick = 5.0;
-dcover_slop_height = 0.25;
+dcover_slop_height = 0.35;
 dcover_slop_depth = 0.25;
-dcover_slop_inside = 1.25;
+dcover_slop_inside = 1.50;
+dcover_commonvertoff = 0.00; // slop_height or slop_inside is added too
 
 // ----- calculated -----
 
@@ -57,6 +59,19 @@ yw11 = yw2 + anchor_wall_space;
 yw12 = yw11 + wall_thick;
 yw13 = -yw6;
 
+cpp1 = dpp1 + [  dcover_slop_depth, dcover_slop_height ];
+cpp2 = dpp2 + [ -dcover_slop_depth, dcover_slop_height ];
+cppH = cpp1 + [ 0, dcover_endthick ];
+cppA = [ cpp2[0], dpp3[1] + dcover_slop_inside ];
+cppK = cppA + [ 0, dcover_mainthick ];
+cppZ = [ -ksafecover_lip, -dcover_commonvertoff ];
+cppD = cppZ + [ 0, -dcover_slop_inside ];
+cppE = cppD + [ 0, -dcover_mainthick ];
+cppC = [ dcover_slop_inside, cppD[1] ];
+cppF = cppC + dcover_mainthick * [1,-1];
+cppB = [ cppC[0], cppA[1] ];
+cppG = [ cppF[0], cppK[1] ];
+
 // anchor
 
 anchor_b = anchor_thick + anchor_rad;
@@ -176,6 +191,26 @@ module BaseProfile(){
   SomeBaseProfile($xppI, $xppF);
 }
 
+module DCoverProfileRaw(){
+  polygon([ cpp1,
+	    cpp2,
+	    cppA,
+	    cppB,
+	    cppC,
+	    cppD,
+	    cppE,
+	    cppF,
+	    cppG,
+	    cppK,
+	    cppH ],
+	  convexity = 10);
+}
+
+module DCoverProfile(){
+  translate(-cppZ)
+    DCoverProfileRaw();
+}
+
 module SWalls(ymin, ymax, t_bevel) {
   upp_app_Vars(t_bevel) {
     translate([0,ymin,0])
@@ -270,6 +305,7 @@ module DemoProfiles(){ ////toplevel
   translate([0,0,2]) color("black") NearAnchorProfile();
   translate([0,0,4]) color("blue") UsualProfile();
   translate([0,0,-4]) color("pink") WebProfile();
+  translate([0,0,6]) color("purple") DCoverProfile();
 }
 
 module RimTest(){ ////toplevel
-- 
2.30.2