radio = 2 (slider from 0 to 5, step 0.1)
A_1 = Point(zAxis)
a = Plane(A_1, xOyPlane)
G = Intersect(zAxis, yAxis)
c, d, e = Cone(A_1, G, radio)
A = (-0.09830979412626561, 5.838083665047634, 3.366910162813669)
f = Plane(A, a)
B_1 = Point(d)
α = Angle(A_1, G, B_1)
g = InfiniteCone(G, zAxis, α)
h = IntersectPath(f, g)
T = Intersect(zAxis, f)
E = Point(h)
i = Line(E, T)
j = Tangent(E, h)
A' = Mirror(A, j)
k = Ray(E, A')
K = Point(k)
b, p, l = Cone(T, G, Distance[T, E])
m = Line(K, G)
L = Intersect(m, a)
n = Line(E, G)
q = Line(L, n)
B = Intersect(q, f)
r = Line(A, L)
o = Plane(G, T, E)
U = Intersect(r, o)
s = OrthogonalPlane(U, n)
O = Intersect(n, s)
t = Line(O, U)
S = Point(j)
u = Plane(A, o)
f_1 = Segment(A, L)
g_1 = Segment(A, O)
i_1 = Segment(E, K)
j_1 = Segment(E, S)
k_1 = Segment(E, A)
I = Point(i)
h_1 = Segment(T, I)
l_1 = Segment(E, O)
m_1 = Segment(L, K)
n_1 = Segment(B, E)
p_1 = Segment(B, L)
q_1 = Segment(L, O)
r_1 = Segment(U, O)
s_1 = Line(T, A_1)