A = (2, -2)
B = (-2, -2)
C = (-2, 2)
D = (2, 2)
hulknurk1, a, b, c, d = Polygon(A, B, C, D)
E = Point(Circle[C, Distance[D, C], Segment[D, C]])
e, F, G, H, I, J, tahkCDFE, tahkDFJG, tahkCDGH, tahkCEIH, tahkEFJI, tahkGHIJ, servDF, servCD, servCE, servEF, servDG, servFJ, servGJ, servGH, servCH, servHI, servEI, servIJ = Cube(D, C, E)
f = 1 (slider from 0 to 1, step 0.01)
g, K, L, M, N, O, P, Q, R, S, T, U, V, W, Z, tahkKLMN, tahkKNPO, tahkKLTS, tahkLMVU, tahkMNZW, tahkOPQR, servKN, servKL, servLM, servMN, servNP, servOP, servKO, servKS, servST, servLT, servLU, servUV, servMV, servMW, servWZ, servNZ, servPQ, servQR, servOR = Net(e, f)
n = 3 (slider from 0 to 3, step 1)