Construção de Sólidos

A = (1.5534927302018033, 2.143859166262299, 0)
B = Intersect(zAxis, xAxis)
C = (4.998126643195334, 0.3893390306394142, 0)
D = Point(zAxis)
a, faceABC, faceABD_{1}, faceBCD_{1}, faceACD, arestaAB_{1}, arestaBC_{1}, arestaAC, arestaAD_{1}, arestaBD_{1}, arestaCD_{1} = Pyramid(A, B, C, D)
E = (-1.1338920103134882, -1.9467926859938167, 0)
F = (4.482505649967287, -2.0364670191804244, 0)
b, faceBEF, faceBDE_{1}, faceDEF, faceBDF_{1}, arestaBE_{1}, arestaEF, arestaBF_{1}, arestaBD_{2}, arestaDE_{1}, arestaDF_{1} = Pyramid(B, E, F, D)
c, faceBCF, faceCDF, faceBCD, faceBDF, arestaCF, arestaBC, arestaBF, arestaDF, arestaCD, arestaBD_{3} = Pyramid(F, C, B, D)
G = (-2.812306023051274, 3.7080568707031247, 0)
d, faceABG, faceADG, faceBDG_{1}, faceABD, arestaAG, arestaBG_{1}, arestaAB, arestaAD, arestaDG_{1}, arestaBD_{4} = Pyramid(A, G, B, D)
e, faceBEG, faceDEG, faceBDE, faceBDG, arestaEG, arestaBE, arestaBG, arestaDG, arestaDE, arestaBD = Pyramid(G, E, B, D)
H = PointIn(faceCDF)
f = Sphere(D, H)
I = PointIn(f)
J = PointIn(f)
g = Sphere(I, J)
h = 0.29 (slider from 0 to 1, step 0.01)
i, K, L, M, N, O, P, faceKLM, faceKLN, faceLMO, faceKMP, arestaKL, arestaLM, arestaKM, arestaKN, arestaLN, arestaLO, arestaMO, arestaMP, arestaKP = Net(c, h)