brompton-computer-guard: wip pbase

[reprap-play.git] / brompton-computer-guard.scad

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index 709ee115d5f1dabc7dc373ede9efe944cf717782..050ba970646da1ad080983d4aecaec5bf323b708 100644 (file)
--- 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();
   }
 }