A = Intersect(xAxis, yAxis)
ControlPupila = Point(Ray[A, Vector[(0, 1)]])
c = Circle(A, ControlPupila)
C = Intersect(c, xAxis, 1)
AB = Distance(A, ControlPupila)
Foco = Point(Segment[A, ControlPupila])
C' = Mirror(Foco, xAxis)
B' = Mirror(ControlPupila, xAxis)
h = Ellipse(Foco, C', B')
B = Intersect(h, xAxis, 1)
D = Intersect(c, xAxis, 2)
AD = Distance(A, D)
Circunferencia = Point(Segment[A, C])
d_1 = Circle(Circunferencia, ControlPupila)
e = CircleArc(Circunferencia, B', ControlPupila)
P = Point(Ray[B, Vector[(-1, 0)]])
f = Segment(P, ControlPupila)
g = Segment(P, B')
d = Segment(ControlPupila, B')
α = Angle(B', ControlPupila, P)
β = Angle(ControlPupila, B', P)
i = Segment(P, A)
texto1: "α = " + α + "
β = " + β + "
d = " + d + " cm
Distancia P-ojo = " + i + " cm"