From d0959efd1fd145dcb05f69c1592e5d162a0c3903 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 5 Nov 2020 18:18:51 +0000
Subject: [PATCH] scaffold-clamp: wip

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

diff --git a/scaffold-clamp.scad b/scaffold-clamp.scad
index 730dfaf..ef1fdd8 100644
--- a/scaffold-clamp.scad
+++ b/scaffold-clamp.scad
@@ -6,7 +6,7 @@ tube_dia = 48.3;
 
 th = 7;
 
-pin_gap = 1.0; // around
+pin_gap = 1.5; // around
 
 smooth_r = 10;
 
@@ -20,6 +20,8 @@ open_gap = 10;
 pin_dia = th;
 hole_dia = th + pin_gap;
 
+hinge_gap = pin_gap;
+
 hinge_o_r = 0.5 * hole_dia + th;
 
 hinge_x = -0.5 * tube_dia - hinge_o_r;
@@ -31,7 +33,7 @@ flats_y = open_gap/2 + th;
 $fa = 3;
 $fs = 0.1;
 
-module Plan() {
+module MainPlan() {
   difference(){
     offset(r=-smooth_r) offset(delta=smooth_r)
       union(){
@@ -43,7 +45,40 @@ module Plan() {
     circle(r = tube_dia/2);
     rectfromto([0,       -open_gap/2],
 	       [max_x+1, +open_gap/2]);
+    translate([hinge_x, 0]) circle(r= hole_dia/2);
+  }
+}
+
+module Portion(d=0) {
+  translate([hinge_x, 0]) circle(r= hinge_o_r + d);
+  rectfromto([hinge_x*2, 0],
+	     [max_x+10, -(tube_dia/2+th+10)]);
+}
+
+module MainPlanA(){
+  intersection(){
+    MainPlan();
+    Portion(0);
+  }
+}
+
+module MainPlanB(){
+  difference(){
+    MainPlan();
+    Portion(hinge_gap);
+  }
+}
+
+module PlanDemo(){
+  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([max_x - hinge_x + 20, 0]) color("blue") MainPlanA();
 }
 
-Plan();
+PlanDemo();
-- 
2.30.2