1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
rs = [25.75, 23.25, 24.25, 22.25, 19.75, 21.25, 18.75, 16.25]/2;
ds = [2.20, 2.33, 2.38, 2.14, 1.93, 1.67, 1.67, 1.67];
$fn = 100;
toleranz = 1.02;
eps = 0.1;
d = 1.5;
delta = 1.5;
l = 50*ds[2];
Muenze = 0;
iMax = floor(l/5/ds[Muenze])-1;
scale(toleranz)
difference() {
translate([-rs[Muenze]-d-delta,-l/2-d,-rs[2]-d])
cube([2*rs[Muenze]+2*d+2*delta,l+2*d,rs[2]+d]);
rotate([-90,0,0])
for(i = [-iMax/2:iMax/2])
translate([(i+iMax/2)%2 == 0 ? -delta : delta, 0, 5*ds[Muenze]*(i-1/2)-eps])
cylinder(h = 5 * ds[Muenze] + 2*eps, r = rs[Muenze]);
};
|