cad-things/transforms.scad at master · chyvonomys/cad-things · GitHub

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
cube_vertices =
[
    [-1, -1, -1],
    [-1, +1, -1],
    [+1, +1, -1],
    [+1, -1, -1],

    [-1, -1, +1],
    [-1, +1, +1],
    [+1, +1, +1],
    [+1, -1, +1]
];

cube_faces =
[
    [0, 1, 2],  [2, 3, 0], // -z
    [7, 6 ,5],  [5, 4, 7], // +z
    [2, 6, 7],  [7, 3 ,2], // +x
    [0, 4, 5],  [5, 1, 0], // -x
    [1, 5, 6],  [6, 2, 1], // +y
    [3, 7, 4],  [4, 0, 3]  // -y
];

tr =
[
    [1, -1, 0, 0]/sqrt(2),
    [1, 1, 0, 0]/sqrt(2),
    [0, 0, 1, 0],
    [0, 0, 0, 1]
];

b = tr * [10, 10, 10, 1];

echo(b);

function transform_vertices(vs, m) = [
    for (i = [0:len(vs)-1])
    let (t = m * [vs[i][0], vs[i][1], vs[i][2], 1])
    [t[0], t[1], t[2]] / t[3]
];

color("turquoise")
polyhedron(points = transform_vertices(cube_vertices, tr), faces = cube_faces);