radio = 2 (slider from 0 to 5, step 0.1)
T = Intersect(zAxis, yAxis)
G = Point(zAxis)
a, c, b = Cone(T, G, radio)
C = Point(c)
f = Ray(C, Vector[T, C])
Q = Point(f)
d = Circle(f, T)
e = Circle(f, T)
g = Circle(f, Q)
h = OrthogonalLine(Q, xOyPlane)
k = Circle(h, Q)
p = Circle(h, T)
B_1, E = Intersect(c, p)
i = Ray(E, Vector[Q, E])
A = Point(i)
H = Point(f)
j = Plane(G, xOyPlane)
l = OrthogonalLine(H, xOyPlane)
M = Intersect(l, j)
m = Line(T, E)
n = Line(H, m)
q = Line(E, f)
B = Intersect(n, q)
o = Plane(G, T, E)
r = Line(M, A)
F = Intersect(r, o)
s = Line(E, G)
t = OrthogonalLine(F, s, space)
O = Intersect(s, t)
I = Mirror(T, E)
f_1 = Segment(E, B)
g_1 = Segment(A, Q)
i_1 = Segment(E, G)
j_1 = Segment(A, M)
k_1 = Segment(M, O)
l_1 = Segment(O, A)
m_1 = Segment(O, F)
n_1 = Segment(E, M)
p_1 = Segment(B, M)
q_1 = Segment(H, M)
r_1 = Segment(H, T)
s_1 = Segment(G, M)
t_1 = Segment(B, H)
a_1 = Segment(Q, T)
h_1 = Segment(T, I)