From ca91740b64fe47a1d398fddea5b0fac259715e84 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 27 May 2014 22:34:44 +0100
Subject: [PATCH] brompton-computer-guard: break out ArchCircle, nfc

---
 brompton-computer-guard.scad | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

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])
-- 
2.30.2