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