From 1c2598d6ca5949c0cbac8212ff0195dbab600ba3 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 27 May 2014 22:43:11 +0100
Subject: [PATCH] brompton-computer-guard: pbase

---
 brompton-computer-guard.scad | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

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();
   }
-- 
2.30.2