A = (0, -2, 0)
B = (2, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, caraABCD, caraADHE, caraABFE, caraBCGF, caraCDHG, caraEFGH, aristaAD, aristaAB, aristaBC, aristaCD, aristaAE, aristaDH, aristaEH, aristaEF, aristaBF, aristaFG, aristaCG, aristaGH = Cube(A, B, C)
b = 0.36 (slider from 0 to 1, step 0.01)
c, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, caraIJKL, caraILNM, caraIJRQ, caraJKTS, caraKLVU, caraMNOP, aristaIL, aristaIJ, aristaJK, aristaKL, aristaLN, aristaMN, aristaIM, aristaIQ, aristaQR, aristaJR, aristaJS, aristaST, aristaKT, aristaKU, aristaUV, aristaLV, aristaNO, aristaOP, aristaMP = Net(a, b)