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)
O = Intersect(arêteAB, arêteBC)
P = Intersect(arêteBC, arêteCD)
Q = Intersect(arêteAD, arêteCD)
R = Point(zAxis)
g, faceEHR, faceGHR, faceFGR, faceEFR, arêteER, arêteHR, arêteGR, arêteFR = Pyramid(faceEFGH, R)
k = true