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

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

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index 709ee11..050ba97 100644
--- a/brompton-computer-guard.scad
+++ b/brompton-computer-guard.scad
@@ -10,6 +10,9 @@ arch_breadth = 25;
 
 hole_dia = 3 + 0.5;
 
+pbase_tab = 15;
+pbase_thick = 2;
+
 // computed
 
 arch_alpha = atan(arch_height / (arch_width/2));
@@ -28,7 +31,7 @@ module ArchCircle(rad){
     circle(rad, $fa=0.1);
 }
 
-module ArchProfile(){
+module ArchProfile(pbase){
   intersection(){
     translate([-200,0])
       square([400,200]);
@@ -38,7 +41,7 @@ module ArchProfile(){
 	for (m=[0,1])
 	  mirror([m,0])
 	    translate([arch_width/2,0])
-	    square([end_width, end_thick]);
+	    square([end_width, pbase ? pbase_tab : end_thick]);
       }
       ArchCircle(arch_in_rad);
     }
@@ -59,8 +62,10 @@ module Holes(){
 
 module Arch(){
   difference(){
-    rotate([0,0,180])
-      linear_extrude(height=arch_breadth) ArchProfile();
+    rotate([0,0,180]) union(){
+      linear_extrude(height=arch_breadth) ArchProfile(false);
+      linear_extrude(height=pbase_thick) ArchProfile(true);
+    }
     Holes();
   }
 }
-- 
2.30.2