From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 9 Aug 2015 12:07:56 +0000 (+0100)
Subject: brompton-computer-guard: Provide web on inside
X-Git-Tag: filamentspool-v2-release~163
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=7f8ebb3f39ddbb42ae342fcbb5fb5e3a1baa63f5

brompton-computer-guard: Provide web on inside
---

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);
+	    }
 	  }
 	}
       }