brompton-computer-guard: Provide web on inside

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index 88f1994f0a249a631ab7ae90d598cbcbe5fb5f99..efb3a8a129bd7bdfac21ca94a86c19401c152cc3 100644 (file)
--- 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);
+           }
          }
        }
       }