maglite-holder.scad

   1 // -*- C -*-
   2
   3 dxf_off = [ -40, -85 ];
   4
   5 torch_lit_dia = 37.5;
   6 torch_big_dia = 56.5;
   7 torch_tot_len = 256;
   8 torch_big_len = 60;
   9
  10 torch_clear = 30;
  11 torch_clear_below = 10;
  12
  13 stem_width = 20;
  14 stem_thick = 4;
  15
  16 $fa=5;
  17
  18 // calculated
  19
  20 above = torch_big_len + torch_clear + torch_clear_below;
  21
  22 holes = [ 172, 265 ];
  23
  24 stem_below = stem_width/2;
  25
  26 stem_len = holes[1] - above + stem_below;
  27
  28 torch_out = stem_thick + torch_big_dia/2;
  29
  30 module Torch(){
  31   mirror([0,0,1]){
  32     hull(){
  33       rotate_extrude()
  34         translate(dxf_off)
  35         import(file="maglite-holder-torch-curve.dxf",
  36                convexity=10, center=true);
  37     }
  38     translate([0,0, -1])
  39       cylinder(r=torch_lit_dia/2, h= torch_tot_len - torch_big_len + 1);
  40   }
  41 }
  42
  43 module Bracket(){
  44   difference(){
  45     translate([-stem_width/2, -stem_thick, -stem_len])
  46       cube([stem_width, stem_thick, stem_len]);
  47   }
  48 }
  49
  50 module Demo(){
  51   %translate([0, -torch_out, 0])
  52     Torch();
  53   Bracket();
  54 }
  55
  56 Demo();