toolbox-inserts: wip inner bevel

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

diff --git a/toolbox-inserts.scad b/toolbox-inserts.scad
index af6b1fb8cce9bf921e582b42d7bd423c639e628d..b88e2fda0b0d8c3cc62592cabcb76cf4066adafd 100644 (file)
--- a/toolbox-inserts.scad
+++ b/toolbox-inserts.scad
@@ -26,6 +26,16 @@ module DriverHandlePositive() { ////toplevel
 module WallMinkowskiSphere(wall=well_surround_wall) { ////toplevel
   sphere($fn=8, r=wall/2);
 }
+module WallMinkowskiInner(wall=well_surround_wall) { ////toplevel
+  translate([0,0, -wall/2]) rotate_extrude($fn=8){
+    difference(){
+      rectfromto([0,0], wall/2 * [1,1]);
+
+      translate(wall/2 * [1,0])
+       circle($fn=8, r= wall/2);
+    }
+  }
+}
 
 module WellSurround(half_height, wall=well_surround_wall) {
   // WellSurround(half_height) {
@@ -59,7 +69,7 @@ module WellSurround(half_height, wall=well_surround_wall) {
          projection(cut=true)
          children(0);
 
-       WallMinkowskiSphere(wall);
+       WallMinkowskiInner(wall);
       }
        
       /*      hull(){