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();