chimney-cable-retainer.scad

   1 // -*- C -*-
   2
   3 include <utils.scad>
   4
   5 inrear_d = 15;
   6 general_d = 8;
   7 general_th = 5;
   8 between_cables = 150;
   9 around_cables = 20;
  10 cable_dia = 10;
  11
  12 total_d = 40;
  13 above_h = 40;
  14
  15 // calculated
  16
  17 cable_x = around_cables + cable_dia/2;
  18 total_x = cable_x * 2 + between_cables;
  19
  20 module CoreElevation(){
  21   rectfromto([ 0, 0 ],
  22              [ total_d, general_th ]);
  23   rectfromto([ 0, 0 ],
  24              [ general_th, above_h ]);
  25 }
  26
  27 module Retainer(){ ////toplevel
  28   difference(){
  29     union(){
  30       linextr_x_yz(0, total_x)
  31         mirror([1,0])
  32         CoreElevation();
  33     }
  34
  35     for (x = [cable_x, total_x - cable_x])
  36       translate([x, 0, 0])
  37       linextr(-100, 100)
  38       hull(){
  39         translate([ 0, -(general_th + cable_dia/2) ])
  40           circle(r = cable_dia/2);
  41         translate([ 0, -(total_d + 1)])
  42           square([ cable_dia, 1], center=true);
  43       }
  44   }
  45 }