From b74aed427f0dc8a4b1808e9bd0f2bc1bc3b328bc Mon Sep 17 00:00:00 2001
From: Elena of Valhalla'' Grandi <valhalla@trueelena.org>
Date: Fri, 22 Aug 2014 11:40:05 +0200
Subject: Improved shelf support

---
 parts/shelf_support_below.scad | 33 ++++++++++++++++++++++-----------
 1 file changed, 22 insertions(+), 11 deletions(-)

diff --git a/parts/shelf_support_below.scad b/parts/shelf_support_below.scad
index 94da8d1..ed7a791 100644
--- a/parts/shelf_support_below.scad
+++ b/parts/shelf_support_below.scad
@@ -1,12 +1,23 @@
 radius = 12.25;
-len = 60;
+len = 40;
 wall = 4;
 
-screw_radius = 2.5;
+screw_radius = 1.5;
+screw_head_radius = 2.5;
+screw_head_h = 2;
+
+module screw_hole() {
+    union() {
+        translate([0, 0, -1])cylinder(r=screw_radius, h=wall+2);
+        translate([0, 0, wall-screw_head_h]) 
+            cylinder(r1=screw_radius, r2=screw_head_radius, h=screw_head_h+0.1);
+    }
+}
 
 difference() {
     union() {
-        cube([len, (radius+wall)*2, radius+wall]);
+        translate([wall, 0, 0]) 
+            cube([len-wall*2, (radius+wall)*2, radius+wall]);
         hull() {
             translate([screw_radius+wall, -screw_radius-wall, 0]) 
                 cylinder(r=screw_radius+wall, h=wall);
@@ -25,12 +36,12 @@ difference() {
             cube([len-(screw_radius+wall)*2, screw_radius+wall, wall]);
     }
     translate([-1, radius+wall, radius+wall]) rotate([0, 90, 0]) cylinder(r=radius, h=len+2);
-        translate([screw_radius+wall, -screw_radius-wall, -1])
-            cylinder(r=screw_radius, h=wall+2);
-        translate([len-screw_radius-wall, radius*2+wall*3+screw_radius, -1])
-            cylinder(r=screw_radius, h=wall+2);
-        translate([screw_radius+wall, radius*2+wall*3+screw_radius, -1])
-            cylinder(r=screw_radius, h=wall+2);
-        translate([len-screw_radius-wall, -screw_radius-wall, -1])
-            cylinder(r=screw_radius, h=wall+2);
+        translate([screw_radius+wall, -screw_radius-wall, 0])
+            screw_hole();
+        translate([len-screw_radius-wall, radius*2+wall*3+screw_radius, 0])
+            screw_hole();
+        translate([screw_radius+wall, radius*2+wall*3+screw_radius, 0])
+            screw_hole();
+        translate([len-screw_radius-wall, -screw_radius-wall, 0])
+            screw_hole();
 }
-- 
cgit v1.2.3