scaffold-clamp: wip straphook

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/scaffold-clamp-common.scad b/scaffold-clamp-common.scad
index 51f0d8ce422679a84a25c51bd98b912eefb59c11..1354f25ea67242c7b7c3f6b8374a1eb96757ab99 100644 (file)
--- a/scaffold-clamp-common.scad
+++ b/scaffold-clamp-common.scad
@@ -26,8 +26,9 @@ vhook_th = 14;
 
 // ---------- hhook ----------
 
-hhook_inner = 40;
+hhook_inside = 40;
 hhook_th = 4;
+hhook_l = 40;
 
 // ========== calculated ==========
 
@@ -64,6 +65,12 @@ vhook_y0 = -max(main_r, (tube_dia/2 + vhook_th));
 vhook_ctr = vhook_y0 - vhook_inside/2;
 vhook_outer_dia = vhook_inside + vhook_th*2;
 
+// calculated - hhook
+
+hhook_outer_dia = hhook_inside + hhook_th*2;
+
+hhook_ctr = -max(main_r + hhook_inside/2,
+                tube_dia/2 + hhook_outer_dia/2);
 
 $fa = 3;
 $fs = 0.1;
@@ -217,8 +224,27 @@ module VHookPlanDemo(){
 
 // ---------- hhook ----------
 
+module HHookHookPlan(){
+  translate([0, hhook_ctr]){
+    difference(){
+      circle(r = hhook_outer_dia/2);
+      circle(r = hhook_inside/2);
+      rectfromto([-hhook_outer_dia, -hhook_outer_dia],
+                [0,                +hhook_outer_dia]);
+    }
+    translate([0, -(hhook_inside/2 + hhook_th/2)]){
+      hull(){
+       for (x=[0.1, -hhook_l]) {
+         translate([x,0]) square(center=true, hhook_th);
+       }
+      }
+    }
+  }
+}
+
 module HHookPlanDemo(){
   MainPlanA();
+  HHookHookPlan();
 }
 
 // ---------- misc ----------