+module Holes(){
+ for (m=[0,1]) {
+ mirror([1-m,0])
+ translate([arch_width/2, 50, 0])
+ rotate([90,0,0])
+ for (h=holes[m]) {
+ translate(h)
+ cylinder(r=hole_dia/2, h=100, $fn=20);
+ }
+ }
+}
+
+module MainCutout(){
+ ArchCircle(arch_in_rad);
+}
+
+module Arch(){
+ difference(){
+ rotate([0,0,180]){
+ linear_extrude(height=arch_breadth) {
+ difference(){
+ ArchProfile(false);
+ MainCutout();
+ }
+ }
+ difference(){
+ translate([0,0, arch_breadth - pbase_thick])
+ linear_extrude(height=pbase_thick){
+ difference(){
+ hull(){
+ ArchProfile(true);
+ ArchProfile(false);
+ }
+ intersection(){
+ MainCutout();
+ translate([0, -inner_pbase_thick
+ - (inner_pbase_rad - arch_in_rad)])
+ ArchCircle(inner_pbase_rad);
+ }
+ }
+ }
+ }
+ }
+ Holes();
+ }
+}