radiacni-stit.scad

   1 include <yenyalib.scad>
   2
   3 $fn = 128;
   4 infty = 500;
   5 inner_d = 80;
   6 outer_d = 95;
   7 cone_h = 20;
   8 wall = 1.5;
   9 base_wall = 3;
  10 cone_angle = atan((outer_d-inner_d)/(2*cone_h));
  11 shield_h = 80;
  12 shield_twist = 30;
  13 blade_wall = 2.5;
  14 blades = 12;
  15 blade_w = 4*inner_d/blades;
  16 blade1_w = 4;
  17 blade_rot = 16;
  18 shield_r1 = inner_d/2 - blade_w/2*sin(blade_rot) - 1.5*wall;
  19 shield_r2 = 1.1*shield_r1;
  20
  21 beam_w = 10;
  22 beam_h = 15;
  23 beam_l = inner_d/2 + 60;
  24 beam_end_l = 20;
  25 beam_end_h = 0.35*beam_h;
  26
  27 for (angle = [0:30:360]) Rz(angle) {
  28         // main blades
  29         linear_extrude(height = shield_h, twist = shield_twist,
  30                 center=false, scale=shield_r2/shield_r1) {
  31                         Ty(shield_r1) Rz(blade_rot) {
  32                                 Sx(blade_w/blade_wall) circle(r=blade_wall/2);
  33                                 Tx(-blade_w/3) Ty(blade_wall/2) Sx(0.5) circle(r=blade_wall/2);
  34                         }
  35                 }
  36         // counter-direction struts
  37         linear_extrude(height = shield_h, twist = -shield_twist,
  38                 center=false, scale=shield_r2/shield_r1)
  39                 Ty(shield_r1)
  40                         Sx(blade1_w/blade_wall) circle(r=blade_wall/2);
  41 }
  42
  43 // top cone
  44 difference() {
  45         union() {
  46                 cylinder(r1 = inner_d/2, r2 = outer_d/2, h = cone_h);
  47                 // beam
  48                 Tz(beam_w/3) Ry(90) Sx(3*beam_h/(2*beam_w))
  49                          cylinder(r = beam_w/2, h = beam_l);
  50                 // beam_end
  51
  52         }
  53         Tz(-eps) cylinder(r1 = inner_d/2 - wall/cos(cone_angle),
  54                 r2 = outer_d/2 - wall/cos(cone_angle),
  55                 h = cone_h + 2*eps);
  56         // z negative
  57         translate([-infty/2, -infty/2, -infty]) cube(infty);
  58         // beam end
  59         translate([beam_l-beam_end_l, -beam_w/2, beam_end_h])
  60                 cube([beam_end_l+eps, beam_w, beam_h]);
  61         // beam screw hole
  62         Tx(beam_l-beam_w/2) Tz(-eps) cylinder(r=2.5, h = beam_end_h + 2*eps);
  63
  64 }
  65
  66 // base plate
  67 cylinder(r = inner_d/2, h = base_wall);
  68
  69 clip_d = 50+0.25;
  70 // clips
  71 clip_r1 = 1.5;
  72 clip_r2 = 8*clip_r1;
  73 clip_end_r = 5;
  74 clip_h = 3.25;
  75 Tz(base_wall)
  76 for (angle = [0:120:360]) Rz(angle) difference() {
  77         hull() {
  78                 Tx(clip_d/2) Sy(clip_r2/clip_r1)
  79                         cylinder(r = clip_r1, h = clip_h + wall);
  80                 Tx(clip_d/2) Ty(clip_r2-clip_end_r) difference() {
  81                         cylinder(r = clip_end_r, h = clip_h + wall);
  82                         translate([0, -2*clip_end_r, -eps])
  83                                 cube([4*clip_end_r, 4*clip_end_r, clip_h + wall +2*eps]);
  84                 }
  85         }
  86         Tz(-eps) difference() {
  87                 cylinder(r = clip_d/2, h = clip_h+eps);
  88                 Ty(clip_r2-clip_end_r) Tz(-eps)
  89                         cube([clip_d, clip_d, clip_h+3*eps]);
  90         }
  91 }