a = 6 (slider from 1 to 10, step 1)
A: (2, 2)
c = Circle(A, a)
B = Point(c)
mnohouholník1, f, g, h, C = Polygon(A, B, 3)
D_1 = Midpoint(h)
E_1 = Midpoint(g)
i = OrthogonalLine(D_1, xOyPlane)
j = OrthogonalLine(E_1, xOyPlane)
b = Sphere(D_1, a - 2)