scaffold-clamp: wip vhook

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

diff --git a/scaffold-clamp-common.scad b/scaffold-clamp-common.scad
index f67d5eb1e8b4fbf65f341fe17d13e3f0a1b0296e..3207b5e208a23f6a662c8da94bc658991818a3e1 100644 (file)
--- 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])