X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=lock-inframe-bracket.scad;h=6df5733e8e1a26d8dc25a9fdb4dd5bba10979ad7;hp=5b14c9d321d47ebc1103cb09e727689f0afa8759;hb=efe66e97688a445eb96db3c0f3f4d805ab644113;hpb=6c5eea64f002a2e610bcabd9026b869ab3544a4e

diff --git a/lock-inframe-bracket.scad b/lock-inframe-bracket.scad
index 5b14c9d..6df5733 100644
--- a/lock-inframe-bracket.scad
+++ b/lock-inframe-bracket.scad
@@ -1,21 +1,38 @@
 // -*- C -*-
 
-tube_dia = 27.5 + 0.5;
+tube_dia = 27.5 + 1.625;
 lock_w = 42.5 + 0.5;
 lock_d = 28.0 + 0.5;
 main_h = 45.0;
 backflange_d = 12;
+lockshaft_dia = 14.35;
 
-back_gap = 7;
+cliprecess_h = 16;
+total_h = 45;
+
+back_gap = 10;
 main_th = 2.5;
+tube_th = 2.25;
+
 midweb_d = 3;
+clip_th = 3.5;
+clip_gap = 2.5;
+clip_d = 22.0;
+
+mountscrew_dia = 4 + 0.5;
+clipbolt_dia = 5 + 0.1;
+
+backflange_th = 3.5;
+
+$fn=50;
 
 // calculated
 
+lockshaft_r = [1, 1] * lockshaft_dia / 2;
 front_th = main_th;
 
-tube_or = tube_dia/2 + main_th;
-back_ohw = back_gap/2 + main_th;
+tube_or = tube_dia/2 + tube_th;
+back_ohw = back_gap/2 + backflange_th;
 backflange_ymin = tube_or+backflange_d;
 
 lock_0y = tube_dia/2 + lock_d/2 + midweb_d;
@@ -54,4 +71,111 @@ module MainPlan(){
   }
 }
 
-MainPlan();
+lockshaft_or = lockshaft_r + [clip_th,clip_th];
+cliprecess_ymax = cliprecess_h - lockshaft_r[1];
+clip_ymin = cliprecess_ymax - total_h;
+clip_ogap = clip_gap + clip_th*2;
+
+module ClipElevationPositive(){
+  hull(){
+    oval(lockshaft_or);
+    translate([0, -lockshaft_or[1] * sqrt(2)])
+      square(center=true, 0.5);
+  }
+  translate([-lockshaft_or[0], 0])
+    square([lockshaft_or[0]*2, cliprecess_ymax]);
+  translate([-clip_ogap/2, 0]) mirror([0,1]) square([clip_ogap, -clip_ymin]);
+}
+
+module ClipElevationNegative(){
+  hull(){
+    for (y=[0, cliprecess_ymax+1])
+      translate([0, y])
+	oval(lockshaft_r);
+  }
+  translate([-clip_gap/2, 1]) mirror([0,1]) square([clip_gap, 2-clip_ymin]);
+}
+
+module ClipElevation(){
+  difference(){
+    ClipElevationPositive(1);
+    ClipElevationNegative(0);
+  }
+}
+
+module ExtrudeClipElevation(extra=0){
+  translate([0,
+	     lock_0y + lock_d/2 + clip_d + extra,
+	     -clip_ymin])
+    rotate([90,0,0])
+    linear_extrude(height= clip_d + extra*2, convexity=100)
+    children(0);
+}
+
+module ThroughHole(r, y, z) {
+  translate([-50, y, z])
+    rotate([0, 90, 0])
+    cylinder(r=r, h=100, $fn=20);
+}
+
+module ThroughHoles(){
+  for (z=[ 1/4, 3/4 ]) {
+    ThroughHole( mountscrew_dia/2,
+		 -tube_or -0.5*backflange_d,
+		 total_h * z );
+  }
+
+  ThroughHole( clipbolt_dia/2,
+	       lock_0y + lock_d/2 + clip_d/2 + front_th/2,
+	       total_h - cliprecess_h - clip_th - clip_d/2 );
+}
+
+module MainPositive(){
+  difference(){
+    union(){
+      linear_extrude(height=total_h, convexity=100) MainPlan();
+      ExtrudeClipElevation() ClipElevationPositive();
+    }
+    ExtrudeClipElevation(1) ClipElevationNegative();
+  }
+}
+
+module Bracket(){ //// toplevel
+  difference(){
+    MainPositive();
+    ThroughHoles();
+  }
+}
+
+module TestTopEdge(){ //// toplevel
+  intersection(){
+    translate([0,0, -total_h])
+      translate([0,0, 4])
+      Bracket();
+    translate([-200,-200,0])
+      cube([400,400,100]);
+  }
+}
+
+module TestClipBoltHole(){ //// toplevel
+  intersection(){
+    union(){
+      translate([0, 0, -5])
+	Bracket();
+      translate([-4, lock_0y + lock_d/2 + 1, 0])
+	cube([8, 4, 1.5]);
+    }
+    translate([-200, lock_0y + lock_d/2 + 0.1])
+      cube([400, 400, total_h-20]);
+  }
+}
+
+//MainPlan();
+//ClipElevationPositive();
+//ClipElevation();
+//MainPositive();
+//%ThroughHoles();
+//TestTopEdge();
+//TestClipBoltHole();
+
+//Bracket();