From 7f8ebb3f39ddbb42ae342fcbb5fb5e3a1baa63f5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 9 Aug 2015 13:07:56 +0100
Subject: [PATCH] brompton-computer-guard: Provide web on inside

---
 brompton-computer-guard.scad | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index 88f1994..efb3a8a 100644
--- a/brompton-computer-guard.scad
+++ b/brompton-computer-guard.scad
@@ -21,6 +21,11 @@ echo(arch_alpha,arch_beta);
 arch_in_rad = arch_width/2 / sin(arch_beta);
 arch_to_chord = arch_in_rad * cos(arch_beta);
 
+inner_pbase_thick = 6;
+echo(inner_pbase_thick);
+
+inner_pbase_rad = arch_in_rad * 2;
+
 end_thick = arch_thick;
 
 holes = [[[  5  , 5  ], [16  , 21]], // left
@@ -83,7 +88,12 @@ module Arch(){
 	      ArchProfile(true);
 	      ArchProfile(false);
 	    }
-	    MainCutout();
+	    intersection(){
+	      MainCutout();
+	      translate([0, -inner_pbase_thick
+			 - (inner_pbase_rad - arch_in_rad)])
+		ArchCircle(inner_pbase_rad);
+	    }
 	  }
 	}
       }
-- 
2.30.2