afficher/cacher la maison

A = (-1, -1)
B = (1, -1)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
K = (-0.4997067121951226, 3.4007403512195142, 0)
c = OrthogonalLine(K, xOyPlane)
L = Point(c)
b = Ray(L, G)
d = Ray(L, F)
e = Ray(L, E)
f = Ray(L, H)
I = Intersect(b, xOyPlane)
J = Intersect(d, xOyPlane)
M = Intersect(e, xOyPlane)
N = Intersect(f, xOyPlane)
O = Intersect(arêteAB, arêteBC)
poly1, o, j, i, n, m, a_1 = Polygon(O, J, I, N, M, A)
P = Intersect(arêteBC, arêteCD)
poly2, p, i_1, j_1, m_1, n_1, d_1 = Polygon(P, I, J, M, N, D)
poly3, p_1, i_2, n_2, m_2, j_2, o_1 = Polygon(P, I, N, M, J, O)
Q = Intersect(arêteAD, arêteCD)
poly4, q, n_3, i_3, j_3, m_3, a_2 = Polygon(Q, N, I, J, M, A)
R = Point(zAxis)
g, faceEHR, faceGHR, faceFGR, faceEFR, arêteER, arêteHR, arêteGR, arêteFR = Pyramid(faceEFGH, R)
h = Ray(L, R)
S = Intersect(h, xOyPlane)
poly5, i_4, j_4, s = Polygon(J, S, I)
poly6, s_1, m_4, j_5 = Polygon(M, J, S)
poly7, s_2, n_4, m_5 = Polygon(N, M, S)
k = true