Todos los puntos en el segmento

NP: 12
B_1 = Intersect(xAxis, yAxis)
ControlCircunferencia = Point(x ≤ -0.5)
c = Circle(B_1, ControlCircunferencia)
ControlPupila = Point(c)
E = Mirror(ControlPupila, xAxis)
α = Angle(E, B_1, ControlPupila)
d = CircleArc(B_1, E, ControlPupila)
D = Intersect(d, xAxis)
u = Vector(B_1, D)
h = Ray(D, u)
B = Point(h)
f = OrthogonalLine(B, xAxis)
A = Point(f)
C = Mirror(A, xAxis)
g = Segment(A, C)
j = Segment(B, E)
lista1 = Sequence(Rotate[E, (β / NP * α)], β, 0, NP, 1)
k = Segment(B, ControlPupila)
F = Point(g)
a = false
lista3 = Sequence(Segment[C, Element[lista1, a]], a, 1, NP + 1)
lista4 = Sequence(Segment[F, Element[lista1, a]], a, 1, NP + 1)
lista2 = Sequence(Segment[A, Element[lista1, a]], a, 1, NP + 1)