toolbox-inserts: bevel edge better

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

diff --git a/toolbox-inserts.scad b/toolbox-inserts.scad
index 4ea9b510b82204449d3061b47cd458d1abf2722d..ea99d5c9216423e09e135cc0e66eefbb160b05dd 100644 (file)
--- a/toolbox-inserts.scad
+++ b/toolbox-inserts.scad
@@ -8,6 +8,7 @@ box_x = 309.2 - 1.0;
 box_cnr_r = 23.0;
 box_main_z = 35.0 - 0.5;
 box_edge_z_hindent = 0.5;
+box_edge_bevel = 1.0;
 box_edge_width = 16;
 
 below_plane_z = 4.5;
@@ -187,18 +188,15 @@ module BoxCavityModelMainPlan() {
 
 module BoxCavityModel() { ////toplevel
   translate([ 0,0, -below_plane_z ]) {
-    linextr(0, box_main_z)
-      BoxCavityModelMainPlan();
-
     difference(){
       hull(){
-       linextr(0, 1)
+       linextr(-box_edge_z_hindent + box_edge_bevel, box_main_z)
          BoxCavityModelMainPlan();
-       linextr(-box_edge_z_hindent, 1)
-         offset(r = -box_edge_z_hindent)
+       linextr(-box_edge_z_hindent,                  box_main_z)
+         offset(r = -box_edge_bevel)
          BoxCavityModelMainPlan();
       }
-      linextr(-1, 2)
+      linextr(-10, 0)
        offset(r = -box_edge_width)
        BoxCavityModelMainPlan();
     }