hole-repair-20191117.scad

   1 // -*- C -*-
   2
   3 post_dia = 23.0;
   4
   5 th = 4;
   6
   7 nom_hole = 22;
   8 min_r = 15 + nom_hole/2;
   9 maj_r = 30 + nom_hole/2;
  10
  11 //$fa=1;
  12 //$fs=1;
  13
  14 module Profile(r) {
  15   prof_r = th/(1-cos(45));
  16   prof_R = r - prof_r * cos(45);
  17
  18   intersection(){
  19     hull(){
  20       translate([0, th-prof_r]){
  21         translate([1,0])
  22           square(center=true, 2*[1,prof_r]);
  23         translate([prof_R, 0])
  24           circle(prof_r);
  25       }
  26     }
  27     square([r, th]);
  28   }
  29 }
  30
  31 module Body(){
  32   hull(){
  33     for (x= [-1,+1] * (maj_r-min_r))
  34       translate([x,0,0])
  35         rotate_extrude()
  36         Profile(min_r);
  37   }
  38 }
  39
  40 Body();