From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 5 Nov 2020 21:21:15 +0000 (+0000)
Subject: scaffold-clamp: wip straphook
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=727af55d0c76dc6a135250a854f7f135880ec1fc;p=reprap-play.git

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 51f0d8c..1354f25 100644
--- 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 ----------