From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 16 Dec 2012 18:47:16 +0000 (+0000)
Subject: cable-hole-trunking-cover: wip, before mirroring
X-Git-Tag: filamentspool-v2-release~608
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=04195250c42a874f5d9a5860cd49fe6742b5f60a

cable-hole-trunking-cover: wip, before mirroring
---

diff --git a/cable-hole-trunking-cover.scad b/cable-hole-trunking-cover.scad
index 889a97b..ce44475 100644
--- a/cable-hole-trunking-cover.scad
+++ b/cable-hole-trunking-cover.scad
@@ -5,6 +5,8 @@ holedia = 25.4;
 sidewidth = 5;
 tapewidth = 7;
 
+innerz = 10;
+
 basex = holedia + sidewidth*2;
 basey = holedia + tapewidth*2;
 
@@ -12,9 +14,13 @@ bevelz = 3;
 bevelslope = 0.75;
 bevely = bevelz * bevelslope;
 
+sideslop = 0.5;
+
 basebaset = 2;
 basebevelt = 3;
 
+endwallt = 2;
+
 module sheared_cube(sz, xperz, yperz) {
   multmatrix([[1,0,xperz,0],
 	      [0,1,yperz,0],
@@ -34,10 +40,23 @@ module Base(){
     translate([basex/2, basey/2, -1])
       cylinder(r=holedia/2, h=bevelz+2);
   }
-    
-//  sheared_cube([10,20,30], 0.5, 3);
-//  cube([basew, baseh, 0.1]);
-//  translate([
+
+  rotate([90, 0, 90])
+    linear_extrude(height=endwallt)
+    polygon([[0,     0],
+	     [basey, 0],
+	     [basey + bevely, bevelz],
+	     [basey + bevely, innerz],
+	     [      - bevely, innerz],
+	     [      - bevely, bevelz]]);
+}
+
+module Lid(){
+  translate([0, basey + sideslop, 0])
+    sheared_cube([basex, basebevelt, bevelz], 0, bevelslope);
+  translate([0, -basebevelt - sideslop, 0])
+    sheared_cube([basex, basebevelt, bevelz], 0, -bevelslope);
 }
 
 Base();
+Lid();