radio = 3.2 (slider from 0 to 5, step 0.1)
A_1 = Intersect(zAxis, xAxis)
G = Point(zAxis)
a, c, b = Cone(A_1, G, radio)
d = Plane(G, xOyPlane)
M = PointIn(d)
B = PointIn(d)
f = Line(G, B)
M' = Mirror(M, f)
g = Ray(G, M')
N = Point(g)
h = Segment(G, M)
i = Segment(M, N)
j = Segment(N, G)
U = Intersect(f, i)
k = Segment(G, U)
e = Plane(G, A_1, B)
p = IntersectPath(e, a)
C, D, E_1, F = Corner(p)
l = Line(G, C)
m = OrthogonalLine(U, l, space)
E = Intersect(l, m)
n = Plane(E, xOyPlane)
q = Line(M, l)
r = Line(N, l)
A = Intersect(r, n)
H = Intersect(q, n)
s = Segment(A, H)
I = Intersect(s, p)
R = Intersect(s, e)
t = Segment(E, N)
f_1 = Segment(E, U)
g_1 = Segment(E, M)
h_1 = Segment(E, H)
i_1 = Segment(E, A)
j_1 = Segment(M, H)
k_1 = Segment(N, A)