From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 27 May 2014 21:43:11 +0000 (+0100)
Subject: brompton-computer-guard: pbase
X-Git-Tag: filamentspool-v2-release~366
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=1c2598d6ca5949c0cbac8212ff0195dbab600ba3

brompton-computer-guard: pbase
---

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index 050ba97..2673b6d 100644
--- a/brompton-computer-guard.scad
+++ b/brompton-computer-guard.scad
@@ -41,9 +41,12 @@ module ArchProfile(pbase){
 	for (m=[0,1])
 	  mirror([m,0])
 	    translate([arch_width/2,0])
+	    multmatrix([[1,pbase ? -0.75 : 0,0,0],
+			[0,1,0,0],
+			[0,0,1,0],
+			[0,0,0,1]])
 	    square([end_width, pbase ? pbase_tab : end_thick]);
       }
-      ArchCircle(arch_in_rad);
     }
   }
 }
@@ -62,9 +65,18 @@ module Holes(){
 
 module Arch(){
   difference(){
-    rotate([0,0,180]) union(){
-      linear_extrude(height=arch_breadth) ArchProfile(false);
-      linear_extrude(height=pbase_thick) ArchProfile(true);
+    rotate([0,0,180]){
+      difference(){
+	union(){
+	  linear_extrude(height=arch_breadth) ArchProfile(false);
+	  linear_extrude(height=pbase_thick) hull(){
+	    ArchProfile(true);
+	    ArchProfile(false);
+	  }
+	}
+	translate([0,0,-1]) linear_extrude(height=100)
+	  ArchCircle(arch_in_rad);
+      }
     }
     Holes();
   }