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

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 scaffold-clamp-common.scad | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/scaffold-clamp-common.scad b/scaffold-clamp-common.scad
index f67d5eb..3207b5e 100644
--- a/scaffold-clamp-common.scad
+++ b/scaffold-clamp-common.scad
@@ -174,11 +174,16 @@ module VHookProfile() {
     circle(r = vhook_th/2);
 }
 
-module VHookHookMain(){ ////toplevel
+module VHookHookMain(outer=false){ ////toplevel
   rotate([0,90,0])
     rotate_extrude(convexity=10)
     rotate([0,0,90])
-    VHookProfile();
+    hull(){
+      VHookProfile();
+      if (outer) {
+	translate([0,-vhook_outer_dia]) square(center=true, vhook_th);
+      }
+    }
 }
 
 module VHookPartA(){ ////toplevel
@@ -194,6 +199,14 @@ module VHookPartA(){ ////toplevel
       }
     }
 
+    intersection(){
+      VHookHookMain(outer=true);
+      linextr_y_xz(0, vhook_outer_dia/2) hull(){
+	VHookProfile();
+	translate([0,-0.1]) square(center=true, [vhook_th, 0.2]);
+      }
+    }
+
     intersection(){
       VHookHookMain();
       translate([0,0, -vhook_outer_dia])
-- 
2.30.2