X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=lock-inframe-bracket.scad;h=bfa6e39699b9a8297c509adaf1ffb3143e294c47;hb=ba7c5b240dcdab5fa3f4e3f7823bb828551471f0;hp=09fe5c99fafe7dc600ac40bcd8b79ed4de528e26;hpb=7b5e2722e5e91596eac05441327a699e8bbf4898;p=reprap-play.git

diff --git a/lock-inframe-bracket.scad b/lock-inframe-bracket.scad
index 09fe5c9..bfa6e39 100644
--- a/lock-inframe-bracket.scad
+++ b/lock-inframe-bracket.scad
@@ -14,7 +14,7 @@ backflange_hole_dy = -1;
 lockshaft_dia = 14.35;
 
 cliprecess_h = 16;
-total_h = 45;
+total_h = 75;
 
 back_gap = 12.5;
 main_th = 4.50;
@@ -202,7 +202,7 @@ module MainPlan(){ ////toplevel
 
 lockshaft_or = lockshaft_r + [clip_th,clip_th];
 cliprecess_ymax = cliprecess_h - lockshaft_r[1];
-clip_ymin = cliprecess_ymax - total_h;
+clip_ymin = cliprecess_ymax - main_h;
 clip_ogap = clip_gap + clip_th*2;
 
 module ClipElevationPositive(){
@@ -262,9 +262,27 @@ module ThroughHoles(){
 
   ThroughHole( clipbolt_dia/2,
 	       lock_0y + lock_d/2 + clip_d/2 + front_th/2,
-	       total_h - cliprecess_h - clip_th - clip_d/2 );
+	       main_h - cliprecess_h - clip_th - clip_d/2 );
 }
 
+module SlopeTrimElevation(){
+  far_corner_nom = [ lock_0y + lock_d/2, main_h ];
+  round_centre = far_corner_nom + lock_d/2 * [0,1];
+  hull(){
+    translate(round_centre) circle(r= lock_d/2);
+    translate([ lock_0y - lock_d/2, total_h ]) square([ lock_d + clip_d, 1 ]);
+    translate(far_corner_nom) square([clip_d*2, 1]);
+  }
+}
+
+module SlopeTrim(){
+  rotate([0,90,0])
+    rotate([0,0,90])
+    translate([0,0, -lock_w])
+    linear_extrude(convexity=100, height=lock_w*2)
+    SlopeTrimElevation();
+}
+    
 module MainPositive(){
   difference(){
     union(){
@@ -279,6 +297,7 @@ module Bracket(){ ////toplevel
   difference(){
     MainPositive();
     ThroughHoles();
+    SlopeTrim();
   }
 }