From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 27 May 2014 21:34:44 +0000 (+0100)
Subject: brompton-computer-guard: break out ArchCircle, nfc
X-Git-Tag: filamentspool-v2-release~369
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=ca91740b64fe47a1d398fddea5b0fac259715e84;p=reprap-play.git

brompton-computer-guard: break out ArchCircle, nfc
---

diff --git a/brompton-computer-guard.scad b/brompton-computer-guard.scad
index b720bf1..6a484ee 100644
--- 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])