chiark / gitweb /
b720bf1d879a30cc17e7e662d4afad57dad561de
[reprap-play.git] / brompton-computer-guard.scad
1 // -*- C -*-
2
3 arch_height = 24;
4 arch_width = 75;
5 end_width = 25;
6
7 arch_thick = 5;
8
9 arch_breadth = 25;
10
11 hole_dia = 3 + 0.5;
12
13 // computed
14
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);
20
21 end_thick = arch_thick;
22
23 holes = [[[  5  , 5  ], [16  , 21]], // left
24          [[ 18.5, 4.5], [ 4.5, 22]]]; // right
25
26 module ArchProfile(){
27   intersection(){
28     translate([-200,0])
29       square([400,200]);
30     union(){
31       translate([0,-arch_to_chord]){
32         difference(){
33           circle(arch_in_rad + arch_thick, $fa=0.1);
34           circle(arch_in_rad, $fa=0.1);
35         }
36       }
37       for (m=[0,1])
38         mirror([m,0])
39           translate([arch_width/2,0])
40           square([end_width, end_thick]);
41     }
42   }
43 }
44
45 module Holes(){
46   for (m=[0,1]) {
47     mirror([1-m,0])
48       translate([arch_width/2, 50, 0])
49       rotate([90,0,0])
50       for (h=holes[m]) {
51         translate(h)
52           cylinder(r=hole_dia/2, h=100, $fn=20);
53       }
54   }
55 }
56
57 module Arch(){
58   difference(){
59     rotate([0,0,180])
60       linear_extrude(height=arch_breadth) ArchProfile();
61     Holes();
62   }
63 }
64
65 Arch();