X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=brompton-computer-guard.scad;h=efb3a8a129bd7bdfac21ca94a86c19401c152cc3;hp=94803d23bc4f14ab2b5542681a74053796872af4;hb=ec88462f1c9599abe3f58ffbe82700580eb271ae;hpb=892cd79fc5a6853ac9efce9fc5d1cd75c1670599

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index 94803d2..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
@@ -64,23 +69,33 @@ module Holes(){
 }
 
 module MainCutout(){
-  translate([0,0,-1]) linear_extrude(height=100)
-    ArchCircle(arch_in_rad);
+  ArchCircle(arch_in_rad);
 }
 
 module Arch(){
   difference(){
     rotate([0,0,180]){
-      difference(){
-	linear_extrude(height=arch_breadth) ArchProfile(false);
-	MainCutout();
+      linear_extrude(height=arch_breadth) {
+	difference(){
+	  ArchProfile(false);
+	  MainCutout();
+	}
       }
       difference(){
-	linear_extrude(height=pbase_thick) hull(){
-	  ArchProfile(true);
-	  ArchProfile(false);
+	linear_extrude(height=pbase_thick){
+	  difference(){
+	    hull(){
+	      ArchProfile(true);
+	      ArchProfile(false);
+	    }
+	    intersection(){
+	      MainCutout();
+	      translate([0, -inner_pbase_thick
+			 - (inner_pbase_rad - arch_in_rad)])
+		ArchCircle(inner_pbase_rad);
+	    }
+	  }
 	}
-	MainCutout();
       }
     }
     Holes();