Cardano \; kuup

A = Intersect(yAxis, xAxis)
B = Point(xAxis)
f = Ray(A, B)
C = Point(f)
D = Point(f)
E = Point(Circle[D, Distance[A, D], Segment[A, D]])
a, F, G, H, I, J, tahkADEF, tahkAFJG, tahkADHG, tahkDEIH, tahkEFJI, tahkGHIJ, servAF, servAD, servDE, servEF, servAG, servFJ_{1}, servGJ, servGH, servDH_{1}, servHI, servEI, servIJ = Cube(A, D, E)
K = Point(Circle[C, Distance[A, C], Segment[A, C]])
b, L, M, N, O, P, tahkACKL, tahkALPM, tahkACNM, tahkCKON, tahkKLPO, tahkMNOP_{1}, servAL, servAC, servCK, servKL, servAM, servLP, servMP_{1}, servMN_{1}, servCN, servNO_{1}, servKO, servOP_{1} = Cube(A, C, K)
c: x(O)
p: z = x(O)
g = IntersectPath(p, tahkDEIH)
Q, R = Intersect(p, tahkDEIH)
q = OrthogonalPlane(O, servAF)
S = Intersect(g, q)
T = Point(Circle[S, Distance[O, S], Segment[O, S]])
d, U, V, W, Z, A_1, tahkOSTU, tahk1, tahkOSWV, tahkSTZW, tahk2, tahk3, servOU, servOS, servST, servTU, servOV_{1}, serv1, serv2, servVW_{1}, servSW, servWZ, servTZ, serv3 = Cube(O, S, T)
e, B_1, C_1, D_1, tahkMNOP, tahk7, tahk5, tahk4, tahk6, tahk8, servOP, servMP, servMN, servNO, servOV, serv6, serv4, serv5, serv7, serv9, serv10, serv8 = Prism(O, P, M, N, V)
h, E_1, F_1, G_1, tahk12, tahk10, tahk14, tahk13, tahk9, tahk11, serv14, serv16, serv15, serv13, servFJ, serv19, serv17, serv18, serv11, serv20, serv21, serv12 = Prism(J, B_1, V, A_1, F)
i, H_1, I_1, J_1, tahk18, tahk15, tahk19, tahk20, tahk16, tahk17, servHW, servVW, serv25, serv24, servDH, serv27, serv26, serv28, serv22, serv29, serv30, serv23 = Prism(H, W, V, D_1, D)
j, K_1, L_1, M_1, tahk23, tahk21, tahk24, tahk25, tahk22, tahk26, serv31, serv33, serv34, serv32, servET, serv38, serv35, serv39, serv36, serv40, serv41, serv37 = Prism(E, G_1, K, H_1, T)
P_1 = PointIn(tahk10)
N_1 = (-5, 3, 3)
k = Segment(P_1, N_1)
Q_1 = Point(k)
u = Vector(P_1, Q_1)
h' = Translate(h, u)
R_1 = PointIn(tahk2)
S_1 = (2.738179622681031, 7.4863703590906, 2.8413288430413832)
l = Segment(R_1, S_1)
T_1 = Point(l)
v = Vector(R_1, T_1)
d' = Translate(d, v)
U_1 = PointIn(tahk16)
V_1 = (5.300987218602657, -5.132428678611613, 3.3404812073594634)
m = Segment(U_1, V_1)
W_1 = Point(m)
w = Vector(U_1, W_1)
i' = Translate(i, w)
O_1 = PointIn(tahk22)
Z_1 = (9.509979185632645, 2.7431276065176586, 0.4325437361257918)
n = Segment(O_1, Z_1)
A_2 = Point(n)
r = Vector(O_1, A_2)
j' = Translate(j, r)
B_2 = PointIn(tahkACNM)
C_2 = (0.509748259352282, -2.73232747266168, 0.7030454072713512)
s = Segment(B_2, C_2)
D_2 = Point(s)
t = Vector(B_2, D_2)
b' = Translate(b, t)
E_2 = PointIn(tahk5)
F_2 = (-1.428470400011193, 0.5146284753520486, 1.7053030291784808)
f_1 = Segment(E_2, F_2)
G_2 = Point(f_1)
u_1 = Vector(E_2, G_2)
e' = Translate(e, u_1)