chiark - git - mdw - scad/blob - discpick-collar.scad

   1 MM = 1;
   2
   3 CUT_WD = 10*MM;
   4 BORE_DIAM = 6*MM;
   5 SPACER_HT = 7.25*MM;
   6 HEIGHT = SPACER_HT + 3*MM;
   7 THICK = 16*MM;
   8 WIDTH = 18*MM;
   9
  10 BIG = 20*MM;
  11
  12 $fa = 0.1;
  13 $fs = 0.2*MM;
  14
  15
  16 difference() {
  17   intersection() {
  18     translate([-WIDTH/2, -THICK/2, 0])
  19       cube([WIDTH, THICK, HEIGHT]);
  20     cylinder(h = HEIGHT, r = norm([CUT_WD/2, WIDTH/2]));
  21     rotate([0, 90, 0])
  22       translate([0, 0, -BIG/2])
  23       cylinder(h = BIG, r = norm([HEIGHT, CUT_WD/2]));
  24   }
  25   union() {
  26     translate([-BIG/2, -CUT_WD/2, SPACER_HT])
  27       cube([BIG, CUT_WD, BIG]);
  28     translate([0, 0, -BIG/3])
  29       cylinder(h = BIG, r = BORE_DIAM/2);
  30   }
  31 }