A = (0, 0, 0)
B = (34.75, 0, 0)
C = (0, 0, 20.61)
ipoly1, c, a, b = Polygon(A, B, C)
D = (0, 30.09, 20.61)
E = (34.75, 30.09, 0)
F = (0, 30.09, 0)
d, G, H, faceABGF, ifaceBCHG, ifaceACHF, faceFGH, arêteAF, arêteBG, arêteCH, arêteFG, arêteGH, arêteFH = Prism(ipoly1, F)
O = (7.18, 15.045, 19.67)
e = Sphere(O, 8.52)
I = (0, 6, 20.61)
J = (0, 6, 11.65)
K = (0, 24.09, 11.65)
L = (0, 24.09, 20.61)
M = (34.75, 6, 0)
N = (34.75, 24.09, 0)
g = -6 (slider from -10 to 5, step 0.05)
h, S, T, U, ifaceABTS, ifaceBCUT, ifaceACUS, ifaceSTU, arêteAS, arêteBT, arêteCU, iarêteST, iarêteTU, iarêteSU = Prism(ipoly1, g)
ipoly2, e_1, h_1, f = Polygon(H, F, E)
j = 6 (slider from -5 to 10, step 0.05)
k, V, W, Z, ifaceFHVW, ifaceEFWZ, ifaceEHVZ, ifaceVWZ, arêteHV, arêteFW, arêteEZ, iarêteVW, iarêteWZ, iarêteVZ = Prism(ipoly2, j)
i = Line(J, iarêteST)
l = Line(K, iarêteWZ)
P = Intersect(iarêteTU, i)
Q = Intersect(l, iarêteVZ)
ipoly3, s, j_1, p, m = Polygon(S, J, P, M)
n, R, A_1, B_1, ifaceJRWS, mur4, iface3, iface2, iface4, arêteSW, arêteJR, arête3, arête1, iarêteRW, arête4, iarête5, iarête2 = Prism(ipoly3, W)
mur6, q, l_1, k_1 = Polygon(L, K, Q)
mur5, p_1, j_2, i_1 = Polygon(J, I, P)
mur1, b_1, c_1, d_1, q_1, e_2, i_2 = Polygon(C, I, P, Q, E, B)
ipoly5, a_1, c_2, i_3, j_3, k_2, l_3, d_2, f_1 = Polygon(A, C, I, J, K, L, D, F)
mur2, a_2, b_2, e_3, f_2 = Polygon(A, B, E, F)
C_1 = Point(b)
C2 = (0, 0, 14.65)
r = Line(C2, a)
t = Line(C_1, c)
D_1 = Intersect(r, t)
E_1 = Intersect(r, c)
mur11, a_3, c_3, d_3, e_4 = Polygon(A, C_1, D_1, E_1)
mur10, c_4, d_4, e_5, b_3, c_5 = Polygon(C_1, D_1, E_1, B, C)
F_1 = Point(e_1)
F2 = (0, 30.09, 14.65)
g_1 = Line(F2, f)
m_1 = OrthogonalLine(F_1, e_1, ipoly2)
G_1 = Intersect(g_1, m_1)
H_1 = Intersect(g_1, h_1)
mur21, f_3, f_4, g_2, h_2 = Polygon(F, F_1, G_1, H_1)
mur20, f_5, g_3, h_3, g_4, h_4 = Polygon(F_1, G_1, H_1, G, H)
n_1 = Segment(F_1, C_1)
I_1 = Midpoint(arêteJR)
r_1 = Circle(I_1, R, ipoly5)
J_1, K_1 = Intersect(n_1, r_1)
s_1 = OrthogonalLine(I_1, arêteJR, ipoly5)
L_1, M_1 = Intersect(s_1, r_1)
F3 = Point(f_3)
F4 = Point(f_3)
t_1 = OrthogonalLine(F3, h_4, ipoly5)
m_2 = OrthogonalLine(F4, h_4, ipoly5)
N_1, O_1 = Intersect(t_1, r_1)
P_1, Q_1 = Intersect(m_2, r_1)
mur30, a_4, c_6, j_4, o_1, q_2, m_3, p_3, n_2, k_3, f_6, f_7 = Polygon(A, C_1, J_1, O_1, Q_1, M_1, P_1, N_1, K_1, F_1, F)
mur31, r_2, n_3, q_3, s_3, t_3, b_4, i_4, k_4, l_4, m_4, n_4, p_4 = Polygon(C_1, C, I, J, R, K_1, N_1, P_1, M_1, Q_1, O_1, J_1)
Echelle = Sequence(((-10), (-10), 20.61 - (1.5 * i)), i, 1, 13, 1)
PlansSectionXY = Sequence(Plane[Element[Echelle, i], Object["faceABGF"]], i, 1, 13, 1)
HBarsMur10 = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur10"]], i, 1, 13, 1)
mur1bis, l_2, p_2, s_2, t_2 = Polygon(Q, E, D, L)
HBarsMur1 = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur1"]], i, 1, 13, 1)
HBarsMur1bis = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur1bis"]], i, 1, 13, 1)
HBarsMur20 = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur20"]], i, 1, 13, 1)
HBarsMur5 = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur5"]], i, 1, 13, 1)
HBarsMur6 = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur6"]], i, 1, 13, 1)
mur31bis, r_3, l_5, d_6, f_9, k_5 = Polygon(R, L, D, F_1, K_1)
HBarsMur31 = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur31"]], i, 1, 13, 1)
HBarsMur31bis = Sequence(IntersectPath[Element[PlansSectionXY, i], Object["mur31bis"]], i, 1, 13, 1)
EchelleYZ = Sequence(((-10), 30.09 - (1.5 * i), (-10)), i, 1, 19, 1)
EchelleXZ = Sequence(((2.53 * i), (-10), (-10)), i, 1, 13, 1)
PlansSectionYZ = Sequence(Plane[Element[EchelleYZ, i], Object["mur11"]], i, 1, 19, 1)
VBarsMur1 = Sequence(IntersectPath[Element[PlansSectionYZ, i], Object["mur1"]], i, 1, 19, 1)
VBarsMur1bis = Sequence(IntersectPath[Element[PlansSectionYZ, i], Object["mur1bis"]], i, 1, 5, 1)
VBarsMur31 = Sequence(IntersectPath[Element[PlansSectionYZ, i], Object["mur31"]], i, 4, 19, 1)
VBarsMur31bis = Sequence(IntersectPath[Element[PlansSectionYZ, i], Object["mur31bis"]], i, 1, 5, 1)
PlansSectionXZ = Sequence(Plane[Element[EchelleXZ, i], Object["mur30"]], i, 1, 19, 1)
VBarsMur10 = Sequence(IntersectPath[Element[PlansSectionXZ, i], Object["mur10"]], i, 1, 13, 1)
VBarMur20 = Sequence(IntersectPath[Element[PlansSectionXZ, i], Object["mur20"]], i, 1, 13, 1)
VBarsMur4 = Sequence(IntersectPath[Element[PlansSectionXZ, i], Object["mur4"]], i, 1, 5, 1)
VBarsMur5 = Sequence(IntersectPath[Element[PlansSectionXZ, i], Object["mur5"]], i, 1, 5, 1)
VBarsMur6 = Sequence(IntersectPath[Element[PlansSectionXZ, i], Object["mur6"]], i, 1, 5, 1)
VBarsMur4_2 = Sequence(IntersectPath[Element[PlansSectionYZ, i], Object["mur4"]], i, 5, 15, 1)