From ca4b772ea30ac993dd3e6e78b6370629d85bb8eb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 20:23:06 +0000
Subject: [PATCH] salter-scale-hook: wip Hook

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 salter-scale-hook.scad | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/salter-scale-hook.scad b/salter-scale-hook.scad
index b9dc7b7..8e9761b 100644
--- a/salter-scale-hook.scad
+++ b/salter-scale-hook.scad
@@ -19,6 +19,13 @@ ymin = yminc-thick/2;
 ymaxc = mainheight;
 ymax = mainheight+thick/2;
 
+cutdepth = rod_offset - rod_dia/2 - rearthick;
+
+cut_z0 = screw_head_dia/2;
+cut_z1 = width/2 - rearthick;
+
+cutslopez = cutdepth * 0.5;
+
 module C() {
   circle(r = thick/2, $fn=30);
 }
@@ -56,4 +63,23 @@ module ProfileDemo(){
   color("red") translate([0,0,1]) CutProfile();
 }
 
-ProfileDemo();
+module Cut(less){
+  for (m=[0,1]) {
+    mirror([0,0,m]) {
+      translate([0,0, cut_z0 + less])
+	linear_extrude(height = cut_z1 - cut_z0 - less*2)
+	CutProfile();
+    }
+  }
+}
+
+module Hook(){
+  difference(){
+    translate([0,0, -width/2])
+      linear_extrude(height=width) Profile();
+    Cut(0);
+  }
+}
+
+//ProfileDemo();
+Hook();
-- 
2.30.2