V = Intersect(b, c)
e: x = x(V) - 6
A = (-11.923990498812351, 3.6817102137767224)
B: (x(A), 10)
α = 0.3839724354387525 rad (slider from 0*° to 180*°, step 0.0174532925199433)
B_1 = Rotate(B, α, A)
a = Line(A, B_1)
eixcon = OrthogonalLine(V, xAxis)
Inters = Intersect(a, eixcon)
d: x = x(Inters) - 3
D_1 = Intersect(a, b)
D_2 = Intersect(a, c)
ll_2 = If(x(D_1) > x(D_2), Ray[D_1, A])
A_1 = Intersect(a, d)
a_1 = Ray(Inters, A_1)
α_3 = Angle(eixcon, a_1)
α_1 = Angle(B, A, Rotate[B, α, A])
C_1 = Intersect(c, e)
c_1 = Ray(V, C_1)
θ = Angle(eixcon, c_1)
C = Point(c)
D = Point(b)
Polígon1, v, c_2, d_1 = Polygon(C, D, V)
E = Point(b)
F = Point(c)
Polígon2, f, v_1, e_1 = Polygon(V, E, F)
ε: 180° - θ
ll = If((α > θ) ∧ (α < ε), Segment[D_1, D_2])
G = Point(a)
ss = If(α < θ, Ray[D_2, G])