KeyseVitoria_ModuloInterativo3D

A = (-5.17520634442587, -5.257773054786028, 0)
B = (4, -6, 0)
pol1, f, g, h, C = Polygon(A, B, 3, xOyPlane)
b, G, H, I, faceABHG, faceBCIH, faceACIG, faceGHI, arestaAG, arestaBH, arestaCI, arestaGH, arestaHI, arestaGI = Prism(pol1, 8)
c, J, K, L, faceGHKJ, faceHILK, faceGILJ, faceJKL, arestaGJ, arestaHK, arestaIL, arestaJK, arestaKL, arestaJL = Prism(faceGHI, 8)
d, E, faceEJK, faceEKL, faceEJL, arestaEJ, arestaEK, arestaEL = Pyramid(faceJKL, 8)
i = 0.93 (slider from 0 to 1, step 0.01)
j, U, V, W, Z, A_1, B_1, faceUVW, faceUVZ, face2, face1, arestaUV, arestaVW, arestaUW, arestaUZ, arestaVZ, aresta2, aresta3, aresta4, aresta1 = Net(d, i)