hole-repair-20191117.scad

   1 // -*- C -*-
   2
   3 post_dia = 23.0;
   4 post_height = 20;
   5
   6 th = 4;
   7
   8 nom_hole = 25;
   9 min_r = 15 + nom_hole/2;
  10 maj_r = 15 + nom_hole/2;
  11
  12 postwall_th = 2;
  13
  14 $fa=1;
  15 $fs=1;
  16
  17 module Profile(r) {
  18   polygon([ [0,    0],
  19             [r,    0],
  20             [r-th, th],
  21             [0,    th] ]);
  22 }
  23
  24 module Body(){
  25   hull(){
  26     for (x= [-1,+1] * (maj_r-min_r))
  27       translate([x,0,0])
  28         rotate_extrude()
  29         Profile(min_r);
  30   }
  31 }
  32
  33 module Post(){
  34   difference(){
  35     translate([0,0,-1])
  36       cylinder(r= post_dia/2, h= post_height+1);
  37     translate([0,0,-2])
  38       cylinder(r= post_dia/2 - postwall_th, h= post_height+3);
  39   }
  40 }
  41
  42 module Cover(){
  43   rotate([0,180,0]) Body();
  44   Post();
  45 }
  46
  47 //Body();
  48 //Post();
  49 Cover();