A: (0, 0, 0)
B: (1, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, tahkABCD, tahkADHE, tahkABFE, tahkBCGF, tahkCDHG, tahkEFGH, servAD, servAB, servBC, servCD, servAE, servDH, servEH, servEF, servBF, servFG, servCG, servGH = Cube(A, B, C)
f = 1 (slider from 0 to 1, step 0.05)
b, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, tahkIJKL, tahkILNM, tahkIJRQ, tahkJKTS, tahkKLVU, tahkMNOP, servIL, servIJ, servJK, servKL, servLN, servMN, servIM, servIQ, servQR, servJR, servJS, servST, servKT, servKU, servUV, servLV, servNO, servOP, servMP = Net(a, f)