1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
$fn = 50;
face_width = 14;
bevel_margin = 1;
cube_width = face_width + (2 * bevel_margin);
face_depth = cube_width / 2;
fd = face_depth;
pip_radius = 1.5;
pip_spacing = face_width / 3;
ps = pip_spacing;
difference() {
minkowski() {
cube(face_width, true);
sphere(bevel_margin);
}
// I want to take advantage of OpenSCAD's x-y-z dot notation for vectors
// Face 1 is on top (+z), clockwise 1-2-3, (+y,+x)
// Faces 4-5-6, will then be (-x, -y, -z)
// Faces 2 & 3 point together to face 6
// a wall of face 6 is against face 5
// Face 1
translate([0, 0, fd])
sphere(pip_radius);
// Face 2
translate([ps, fd, -ps])
sphere(pip_radius);
translate([-ps, fd, ps])
sphere(pip_radius);
// Face 3
translate([fd, ps, -ps])
sphere(pip_radius);
translate([fd, 0, 0])
sphere(pip_radius);
translate([fd, -ps, ps])
sphere(pip_radius);
// Face 4
translate([-fd, ps, ps])
sphere(pip_radius);
translate([-fd, ps, -ps])
sphere(pip_radius);
translate([-fd, -ps, ps])
sphere(pip_radius);
translate([-fd, -ps, -ps])
sphere(pip_radius);
// Face 5
translate([ps, -fd, ps])
sphere(pip_radius);
translate([ps, -fd, -ps])
sphere(pip_radius);
translate([0, -fd, 0])
sphere(pip_radius);
translate([-ps, -fd, ps])
sphere(pip_radius);
translate([-ps, -fd, -ps])
sphere(pip_radius);
// Face 6
translate([ps, ps, -fd])
sphere(pip_radius);
translate([ps, -ps, -fd])
sphere(pip_radius);
translate([0, ps, -fd])
sphere(pip_radius);
translate([0, -ps, -fd])
sphere(pip_radius);
translate([-ps, ps, -fd])
sphere(pip_radius);
translate([-ps, -ps, -fd])
sphere(pip_radius);
}
|
