From 3b574060c51de1c059a0310d159a2b3002302ea0 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 21 Oct 2012 19:52:39 +0100
Subject: [PATCH] xeno-drivebay-bracket fancy wall shape

---
 xeno-drivebay-bracket.scad | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/xeno-drivebay-bracket.scad b/xeno-drivebay-bracket.scad
index 0f18a3b..3bbff79 100644
--- a/xeno-drivebay-bracket.scad
+++ b/xeno-drivebay-bracket.scad
@@ -22,11 +22,14 @@ padw = 20;
 padl = padw;
 padholesz = 5.0;
 
-walll = basel;
 wallholeh = 6+14+2;
 wallholesz = 3.0; // fixme check
 wallholeslot = 4.5;
 
+walll = basel + webt + padl;;
+
+webw = min(basew, padw);
+
 module slothole(sz, slot, thick) {
   hull(){
     for (y = [-slot/2,slot/2]) {
@@ -48,16 +51,24 @@ module Bracket(){
   }
 
   difference(){
-    translate([0, -wallt, 0])
-      cube([walll, wallt, wallh]);
+    rotate([90,0,0]) {
+      linear_extrude(height=wallt){
+	polygon([[0,0],
+		 [0, wallh/2 + wallholesz/2 + wallt + wallt],
+		 [basel, wallh],
+		 [walll, wallh],
+		 [walll, wallh - padt - padt],
+		 [basel + webt, 0]]);
+      }
+    }
 
     translate([basel/2, 0, wallholeh])
       rotate([90,90,0])
       slothole(wallholesz, wallholeslot, wallt);
   }
 
-  translate([basel-0.01, -basew, 0])
-    cube([webt+0.02, basew, wallh]);
+  translate([basel-0.01, -webw, 0])
+    cube([webt+0.02, webw, wallh]);
 
   translate([basel+webt, -padw, wallh-padt]) {
     difference(){
-- 
2.30.2