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 = 22 + nom_hole/2;
  10
  11 module Profile(r) {
  12   prof_r = th/(1-cos(45));
  13   prof_R = r - prof_r * cos(45);
  14
  15   intersection(){
  16     hull(){
  17       translate([0, th-prof_r]){
  18         translate([1,0])
  19           square(center=true, 2*[1,prof_r]);
  20         translate([prof_R, 0])
  21           circle(prof_r, $fa=1,$fs=1);
  22       }
  23     }
  24     square([r, th]);
  25   }
  26 }
  27
  28 Profile(maj_r);