W, A, B, C, D, E, F, Fläche1, Fläche2, Fläche3, Fläche4, Fläche5, Fläche6, Kante1, Kante2, Kante3, Kante4, Kante5, Kante6, Kante7, Kante8, Kante9, Kante10, Kante11, Kante12 = Cube((1, 1), (1, 3), Vector[(0, 0, 1)])
M: {{2, 1, 1}, {0, 2, 0}, {0, 0, 2}}
v = Vector((5, 4, 3))
A' = ApplyMatrix(M, A)
B' = ApplyMatrix(M, B)
C' = ApplyMatrix(M, C)
D' = ApplyMatrix(M, D)
E' = ApplyMatrix(M, E)
F' = ApplyMatrix(M, F)
a = Segment(A', B')
G = Intersect(Kante5, Kante2)
H = Intersect(Kante9, Kante2)
G' = ApplyMatrix(M, G)
H' = ApplyMatrix(M, H)
b = Segment(A', H')
c = Segment(B', G')
d = Segment(G', H')
e = Segment(A', E')
f = Segment(B', F')
g = Segment(G', C')
h = Segment(H', D')
i = Segment(C', D')
j = Segment(F', E')
k = Segment(F', C')
l = Segment(D', E')
A'' = Translate(A', v)
B'' = Translate(B', v)
C'' = Translate(C', v)
D'' = Translate(D', v)
E'' = Translate(E', v)
F'' = Translate(F', v)
G'' = Translate(G', v)
H'' = Translate(H', v)
A''_1 = Translate(A', v)
B''_1 = Translate(B', v)
a' = Segment(A''_1, B''_1)
A''_2 = Translate(A', v)
H''_1 = Translate(H', v)
b' = Segment(A''_2, H''_1)
B''_2 = Translate(B', v)
G''_1 = Translate(G', v)
c' = Segment(B''_2, G''_1)
G''_2 = Translate(G', v)
H''_2 = Translate(H', v)
d' = Segment(G''_2, H''_2)
A''_3 = Translate(A', v)
E''_1 = Translate(E', v)
e' = Segment(A''_3, E''_1)
B''_3 = Translate(B', v)
F''_1 = Translate(F', v)
f' = Segment(B''_3, F''_1)
G''_3 = Translate(G', v)
C''_1 = Translate(C', v)
g' = Segment(G''_3, C''_1)
H''_3 = Translate(H', v)
D''_1 = Translate(D', v)
h' = Segment(H''_3, D''_1)
C''_2 = Translate(C', v)
D''_2 = Translate(D', v)
i' = Segment(C''_2, D''_2)
F''_2 = Translate(F', v)
E''_2 = Translate(E', v)
j' = Segment(F''_2, E''_2)
F''_3 = Translate(F', v)
C''_3 = Translate(C', v)
k' = Segment(F''_3, C''_3)
D''_3 = Translate(D', v)
E''_3 = Translate(E', v)
l' = Segment(D''_3, E''_3)