A = (4.36893298917402, 0.1612308159506588, 0)
A_1 = Intersect(xAxis, yAxis)
G = Point(zAxis)
a, c, b = Cone(A_1, G, 2)
A_2: A
f, g = Tangent(A_2, c)
B_1, C_1 = Intersect(f, b)
D, E_1 = Intersect(g, b)
d = CircleArc(A_1, B_1, D)
E = Point(d)
h = Line(A_1, E)
A' = Mirror(A_2, h)
i = Line(E, A')
H = Point(Ray[E, A'])
j = Segment(H, G)
B = Point(j)
k = Tangent(E, c)
S = Mirror(A_2, k)
e = OrthogonalPlane(E, xAxis)
l = Line(B, A_2)
F = Intersect(l, e)
m = Line(G, E)
n = OrthogonalLine(F, m, space)
C = Intersect(m, n)
R = Mirror(A_1, E)
radio = 1 (slider from 0 to 5, step 0.01)
p = Segment(A_2, S)
O = Intersect(k, p)
o = Plane(A_2, B, C)
q = OrthogonalPlane(S, k)
r = IntersectPath(o, q)
I = Intersect(i, o)
J = Intersect(k, o)
s = Line(C, I)
t = Line(C, J)
L = Intersect(r, s)
P = Intersect(r, t)
f_1 = Segment(R, A_1)
g_1 = Segment(H, E)
h_1 = Segment(E, S)
i_1 = Segment(E, O)
j_1 = Segment(A, B)
k_1 = Segment(B, C)
l_1 = Segment(C, A)
m_1 = Segment(F, C)
n_1 = Segment(C, P)
p_1 = Segment(C, L)
q_1 = Segment(A, L)
r_1 = Segment(E, G)