chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
rope-adjuster: 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 = 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();