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 pbase_tab = 15;
  14 pbase_thick = 2;
  15
  16 // computed
  17
  18 arch_alpha = atan(arch_height / (arch_width/2));
  19 arch_beta = 2*arch_alpha;
  20 echo(arch_alpha,arch_beta);
  21 arch_in_rad = arch_width/2 / sin(arch_beta);
  22 arch_to_chord = arch_in_rad * cos(arch_beta);
  23
  24 end_thick = arch_thick;
  25
  26 holes = [[[  5  , 5  ], [16  , 21]], // left
  27          [[ 18.5, 4.5], [ 4.5, 22]]]; // right
  28
  29 module ArchCircle(rad){
  30   translate([0,-arch_to_chord])
  31     circle(rad, $fa=0.1);
  32 }
  33
  34 module ArchProfile(pbase){
  35   intersection(){
  36     translate([-200,0])
  37       square([400,200]);
  38     difference(){
  39       union(){
  40         ArchCircle(arch_in_rad + arch_thick);
  41         for (m=[0,1])
  42           mirror([m,0])
  43             translate([arch_width/2,0])
  44             square([end_width, pbase ? pbase_tab : end_thick]);
  45       }
  46       ArchCircle(arch_in_rad);
  47     }
  48   }
  49 }
  50
  51 module Holes(){
  52   for (m=[0,1]) {
  53     mirror([1-m,0])
  54       translate([arch_width/2, 50, 0])
  55       rotate([90,0,0])
  56       for (h=holes[m]) {
  57         translate(h)
  58           cylinder(r=hole_dia/2, h=100, $fn=20);
  59       }
  60   }
  61 }
  62
  63 module Arch(){
  64   difference(){
  65     rotate([0,0,180]) union(){
  66       linear_extrude(height=arch_breadth) ArchProfile(false);
  67       linear_extrude(height=pbase_thick) ArchProfile(true);
  68     }
  69     Holes();
  70   }
  71 }
  72
  73 Arch();