15 arch_alpha = atan(arch_height / (arch_width/2));
16 arch_beta = 2*arch_alpha;
17 echo(arch_alpha,arch_beta);
18 arch_in_rad = arch_width/2 / sin(arch_beta);
19 arch_to_chord = arch_in_rad * cos(arch_beta);
21 end_thick = arch_thick;
23 holes = [[[ 5 , 5 ], [16 , 21]], // left
24 [[ 18.5, 4.5], [ 4.5, 22]]]; // right
26 module ArchCircle(rad){
27 translate([0,-arch_to_chord])
37 ArchCircle(arch_in_rad + arch_thick);
40 translate([arch_width/2,0])
41 square([end_width, end_thick]);
43 ArchCircle(arch_in_rad);
51 translate([arch_width/2, 50, 0])
55 cylinder(r=hole_dia/2, h=100, $fn=20);
63 linear_extrude(height=arch_breadth) ArchProfile();