chiark / gitweb /
brompton-computer-guard: swap difference/union, nfc
[reprap-play.git] / brompton-computer-guard.scad
index b720bf1d879a30cc17e7e662d4afad57dad561de..709ee115d5f1dabc7dc373ede9efe944cf717782 100644 (file)
@@ -23,21 +23,24 @@ 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(){
+      union(){
+       ArchCircle(arch_in_rad + arch_thick);
+       for (m=[0,1])
+         mirror([m,0])
+           translate([arch_width/2,0])
+           square([end_width, end_thick]);
       }
-      for (m=[0,1])
-       mirror([m,0])
-         translate([arch_width/2,0])
-         square([end_width, end_thick]);
+      ArchCircle(arch_in_rad);
     }
   }
 }