chiark / gitweb /
hole-repair-20191117: wip
[reprap-play.git] / hole-repair-20191117.scad
1 // -*- C -*-
2
3 post_dia = 23.0;
4 post_height = 20;
5
6 th = 4;
7
8 nom_hole = 22;
9 min_r = 15 + nom_hole/2;
10 maj_r = 30 + 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             [maj_r,    0],
20             [maj_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     cylinder(r= post_dia/2, h= post_height);
36     translate([0,0,-1])
37       cylinder(r= post_dia/2 - postwall_th, h= post_height+2);
38   }
39 }
40
41 //Body();
42 Post();