brompton-computer-guard: break out ArchCircle, nfc

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index b720bf1d879a30cc17e7e662d4afad57dad561de..6a484ee1c360529c7cbb59bdde46b7e0e6fe0862 100644 (file)
--- a/brompton-computer-guard.scad
+++ b/brompton-computer-guard.scad
@@ -23,16 +23,19 @@ end_thick = arch_thick;
 holes = [[[  5  , 5  ], [16  , 21]], // left
         [[ 18.5, 4.5], [ 4.5, 22]]]; // right
 
+module ArchCircle(rad){
+  translate([0,-arch_to_chord])
+    circle(rad, $fa=0.1);
+}
+
 module ArchProfile(){
   intersection(){
     translate([-200,0])
       square([400,200]);
     union(){
-      translate([0,-arch_to_chord]){
-       difference(){
-         circle(arch_in_rad + arch_thick, $fa=0.1);
-         circle(arch_in_rad, $fa=0.1);
-       }
+      difference(){
+       ArchCircle(arch_in_rad + arch_thick);
+       ArchCircle(arch_in_rad);
       }
       for (m=[0,1])
        mirror([m,0])