From 0f68fb954dddaf11e5bf3ea473b345f60d7e37a4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 5 Nov 2020 20:55:42 +0000
Subject: [PATCH] scaffold-clamp: wip straphook

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 Makefile                   |  2 +-
 scaffold-clamp-common.scad | 51 ++++++++++++++++++++++++--------------
 2 files changed, 33 insertions(+), 20 deletions(-)

diff --git a/Makefile b/Makefile
index 5f95a4d..c269060 100644
--- a/Makefile
+++ b/Makefile
@@ -22,7 +22,7 @@ FILAMENTSPOOL_AUTOS += filamentspool-storarm3
 QUACKSES = $(addprefix quacks-ingredients-L, 1 2 3 4 5)
 QUACKS_SCADS = $(addsuffix .scad, $(QUACKSES))
 
-USING_AUTOS ?= $(FILAMENTSPOOL_AUTOS) xeno-drivebay-bracket dungeonquest-cone anke-gps-bracket cable-hole-trunking-cover anglepoise-neck crossbar-computer-led-mount wardrobe-hook knifeblock pandemic-counter pattress-boxes-3-cover bike-lipo-box earring-stand bike-stalk-led-mount sewing-table sewing-table-test sewing-table-jig maglite-holder poster-tube-lid poster-tube-lid-coarse fairphone-case fairphone-battery-case lock-inframe-bracket ksafe-base $(QUACKSES) quacks-ingredients-demos mic-table-clamp nook-case nook-case-test scaffold-clamp-common.scad scaffold-clamp-tensioner.scad scaffold-clamp-straphook.scad
+USING_AUTOS ?= $(FILAMENTSPOOL_AUTOS) xeno-drivebay-bracket dungeonquest-cone anke-gps-bracket cable-hole-trunking-cover anglepoise-neck crossbar-computer-led-mount wardrobe-hook knifeblock pandemic-counter pattress-boxes-3-cover bike-lipo-box earring-stand bike-stalk-led-mount sewing-table sewing-table-test sewing-table-jig maglite-holder poster-tube-lid poster-tube-lid-coarse fairphone-case fairphone-battery-case lock-inframe-bracket ksafe-base $(QUACKSES) quacks-ingredients-demos mic-table-clamp nook-case nook-case-test scaffold-clamp-common.scad scaffold-clamp-tensioner scaffold-clamp-straphook
 
 AUTO_INCS += sealing-box.scad sewing-table.scad \
 	     poster-tube-lid-parametric.scad $(QUACKS_SCADS)
diff --git a/scaffold-clamp-common.scad b/scaffold-clamp-common.scad
index 590d08c..51f0d8c 100644
--- a/scaffold-clamp-common.scad
+++ b/scaffold-clamp-common.scad
@@ -20,12 +20,16 @@ hinge_z_gap = 1;
 
 hinge_units = 4;
 
-// vhook
+// ---------- vhook ----------
 
 vhook_th = 14;
 
+// ---------- hhook ----------
+
+hhook_inner = 40;
+hhook_th = 4;
 
-// calculated
+// ========== calculated ==========
 
 pin_dia = th;
 hole_dia = th + pin_gap;
@@ -151,22 +155,6 @@ module HalfClampX(flatten=false){
   }
 }
 
-module PlanDemo(){ ////toplevel
-  MainPlan();
-  translate([0,0,-4]) color("red") Portion(1);
-  translate([0,0,-2]) color("grey") Portion(0);
-
-  translate([0, tube_dia*1.5]) {
-    MainPlanB();
-    MainPlanA();
-  }
-
-  translate([0, -tube_dia*1.5]) {
-    VHookPlanDemo();
-  }
-//  translate([max_x - hinge_x + 20, 0]) color("blue") MainPlanA();
-}
-
 // ---------- vhook ----------
 
 module VHookProfile() {
@@ -219,7 +207,7 @@ module VHookPartA(){ ////toplevel
 }
 
 module VHookPlanDemo(){
-  VHookPlan();
+  MainPlanA();
   translate([0, vhook_ctr, 5])
     for (m=[0,1]) {
       mirror([0,m])
@@ -227,6 +215,12 @@ module VHookPlanDemo(){
     }
 }
 
+// ---------- hhook ----------
+
+module HHookPlanDemo(){
+  MainPlanA();
+}
+
 // ---------- misc ----------
 
 module GeneralB(){ ////toplevel
@@ -237,6 +231,25 @@ module DummyA(){ ////toplevel
   HalfClampX();
 }
 
+module PlanDemo(){ ////toplevel
+  MainPlan();
+  translate([0,0,-4]) color("red") Portion(1);
+  translate([0,0,-2]) color("grey") Portion(0);
+
+  translate([0, tube_dia*1.5]) {
+    MainPlanB();
+    MainPlanA();
+  }
+
+  translate([0, -tube_dia*1.5]) {
+    VHookPlanDemo();
+  }
+  translate([tube_dia*4, 0]) {
+    HHookPlanDemo();
+  }
+//  translate([max_x - hinge_x + 20, 0]) color("blue") MainPlanA();
+}
+
 module Demo(){ ////toplevel
   color("red") rotate([180,0,0]) GeneralB();
   color("blue") DummyA();
-- 
2.30.2