$ Koostas: Maario \; Lemmik $
$ 9\; TJ : Püramiidid\;ja\;Kuup$

A = Intersect(yAxis, xAxis)
B = Point(yAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, tahkABCD, tahkADHE, tahkABFE, tahkBCGF, tahkCDHG, tahkEFGH, servAD, servAB, servBC_{1}, servCD, servAE, servDH, servEH, servEF, servBF, servFG, servCG, servGH = Cube(A, B, C)
b = 1 (slider from -0 to 1, step 0.01)
c, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, tahkIJKL_{1}, tahkILNM_{1}, tahkIJRQ_{1}, tahkJKTS_{1}, tahkKLVU_{1}, tahkMNOP_{1}, servIL_{1}, servIJ_{1}, servJK_{1}, servKL_{1}, servLN_{1}, servMN_{1}, servIM_{1}, servIQ_{1}, servQR_{1}, servJR_{1}, servJS_{1}, servST_{1}, servKT_{1}, servKU_{1}, servUV_{1}, servLV_{1}, servNO_{1}, servOP_{1}, servMP_{1} = Net(a, b)
f = Segment(E, B)
g = Segment(I, F)
h = Segment(B, G)
i = Segment(F, C)
j = Segment(C, H)
k = Segment(L, G)
l = Segment(L, E)
m = Segment(H, I)
W = Intersect(f, g)
Z = Intersect(h, i)
A_1 = Intersect(j, k)
B_1 = Intersect(l, m)
p = Segment(T, B)
q = Segment(C, S)
r = Segment(B, Q)
s = Segment(R, A)
t = Segment(U, D)
e = Segment(V, C)
f_1 = Segment(D, M)
g_1 = Segment(M, O)
h_1 = Segment(P, N)
i_1 = Segment(N, A)
C_1 = Intersect(f_1, i_1)
D_1 = Intersect(g_1, h_1)
E_1 = Intersect(s, r)
O_1 = Intersect(q, p)
P_1 = Intersect(e, t)
p_1 = Line(A_1, W)
q_1 = Line(B_1, Z)
j_1 = OrthogonalLine(C_1, xOyPlane)
k_1 = OrthogonalLine(D_1, q_1, space)
l_1 = OrthogonalLine(E_1, p_1, space)
m_1 = OrthogonalLine(O_1, q_1, space)
d = OrthogonalLine(P_1, p_1, space)
Q_1 = Intersect(p_1, d)
n = OrthogonalLine(C_1, tahkILNM_{1})
n_1 = OrthogonalLine(D_1, tahkMNOP_{1})
r_1 = OrthogonalLine(E_1, tahkIJRQ_{1})
s_1 = OrthogonalLine(O_1, tahkJKTS_{1})
t_1 = OrthogonalLine(P_1, tahkKLVU_{1})
F_1 = Point(n)
a_1 = Segment(C_1, F_1)
G_1 = Point(n_1)
b_1 = Segment(D_1, G_1)
H_1 = Point(r_1)
c_1 = Segment(E_1, H_1)
I_1 = Point(s_1)
d_1 = Segment(O_1, I_1)
J_1 = Point(t_1)
e_1 = Segment(P_1, J_1)
o, tahkJKTS, tahk2, tahk1, tahk3, tahk4, servJS, servJK_{2}, servKT, servST, serv3, serv1, serv2, serv4 = Pyramid(S, J, K, T, I_1)
u, tahkKLVU, tahk5, tahk7, tahk8, tahk6, servKL_{2}, servLV, servUV, servKU, serv5, serv6, serv8, serv7 = Pyramid(K, L, V, U, J_1)
v, tahkILNM, tahk9, tahk10, tahk12, tahk11, servIL_{2}, servIM, servMN_{2}, servLN, serv10, serv9, serv11, serv12 = Pyramid(L, I, M, N, F_1)
w, tahkMNOP, tahk13, tahk14, tahk16, tahk15, servMN, servMP, servOP, servNO, serv14, serv13, serv16, serv15 = Pyramid(N, M, P, O, G_1)
o_1, tahkIJRQ, tahk17, tahk19, tahk20, tahk18, servIJ_{2}, servJR, servQR, servIQ, serv17, serv18, serv20, serv19 = Pyramid(I, J, R, Q, H_1)
f_2 = Segment(F, L)
g_2 = Segment(G, I)
K_1 = Intersect(g_2, f_2)
v_1, tahkIJKL, tahk21, tahk22, tahk24, tahk23, servIJ, servIL, servKL, servJK, serv22, serv21, serv24, serv23 = Pyramid(J, I, L, K, K_1)