B = (3, 1, 0)
A = (0.9353481848067347, 1.1799294211474187)
poly1, a, b, c, d, C, D = Polygon(A, B, 4, xOyPlane)
E = Point(Circle[B, Distance[A, B], Segment[A, B]])
e, F, G, H, I, J, faceABEF, faceAFJG, faceABHG, faceBEIH, faceEFJI, faceGHIJ, edgeAF, edgeAB, edgeBE, edgeEF, edgeAG, edgeFJ, edgeGJ, edgeGH, edgeBH, edgeHI, edgeEI, edgeIJ = Cube(A, B, E)
f = 0.71 (slider from 0 to 1, step 0.01)
g, K, L, M, N, O, P, Q, R, S, T, U, V, W, Z, faceKLMN, faceKNPO, faceKLTS, faceLMVU, faceMNZW, faceOPQR, edgeKN, edgeKL, edgeLM, edgeMN, edgeNP, edgeOP, edgeKO, edgeKS, edgeST, edgeLT, edgeLU, edgeUV, edgeMV, edgeMW, edgeWZ, edgeNZ, edgePQ, edgeQR, edgeOR = Net(e, f)