A: (1, 2, 3)
B = (1.8444557711720329, 3.8175730760675446, 4)
f: z = 0
C = Point(Circle[A, Distance[B, A], Segment[B, A]])
D = Point(Circle[A, Distance[B, A], Segment[B, A]])
a, E, F, G, H, I, tahkABED, tahkBEIF, tahkABFG, tahkADHG, tahkDEIH, tahkFGHI, servBE, servAB, servAD, servDE, servBF, servEI, servFI, servFG, servAG, servGH, servDH, servHI = Cube(B, A, D)
l = 1 (slider from -5 to 5)
b, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, tahkJKLM, tahkJMON, tahkJKSR, tahkKLUT, tahkLMWV, tahkNOPQ, servJM, servJK, servKL, servLM, servMO, servNO, servJN, servJR, servRS, servKS, servKT, servTU, servLU, servLV, servVW, servMW, servOP, servPQ, servNQ = Net(a, l)