A = Intersect(yAxis, zAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, tahkoABCD, tahkoADHE, tahkoABFE, tahkoBCGF, tahkoCDHG, tahkoEFGH, särmäAD, särmäAB, särmäBC, särmäCD, särmäAE, särmäDH, särmäEH, särmäEF, särmäBF, särmäFG, särmäCG, särmäGH = Cube(A, B, C)
I: (1, 1, 1)
b = Sphere(I, 1)
J: (2 - sqrt(3), 2 - sqrt(3), 2 - sqrt(3))
c = Sphere(J, 2 - sqrt(3))
pallojen_ leikkauspiste = IntersectConic(b, c)
p = Plane(E, G, C)
K: (1, 1, 0)
k1, k, a_1, i = Polygon(A, I, K)
L: (x(J), y(J), 0)
k2, l, a_2, j = Polygon(A, J, L)