From 07f8bcfed2c42cde04d8c0e5cbbaf1f62023e8fd Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 12 Oct 2021 12:32:06 +0100
Subject: [PATCH] lock-inframe-bracket: wip taller stronger

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 lock-inframe-bracket.scad | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/lock-inframe-bracket.scad b/lock-inframe-bracket.scad
index 1e12e41..bfa6e39 100644
--- a/lock-inframe-bracket.scad
+++ b/lock-inframe-bracket.scad
@@ -268,9 +268,21 @@ module ThroughHoles(){
 module SlopeTrimElevation(){
   far_corner_nom = [ lock_0y + lock_d/2, main_h ];
   round_centre = far_corner_nom + lock_d/2 * [0,1];
-  translate(round_centre) circle(r= lock_d/2);
+  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(){
@@ -285,11 +297,8 @@ module Bracket(){ ////toplevel
   difference(){
     MainPositive();
     ThroughHoles();
+    SlopeTrim();
   }
-//  linear_extrude(convexity=100
-  rotate([0,90,0])
-    rotate([0,0,90])
-    SlopeTrimElevation();
 }
 
 module TestTopEdge(){ ////toplevel
-- 
2.30.2