Oeil.html
Author: YF

cristallin

rétine

axe optique

O = Point(yAxis)
R = (2.5, 0)
C1 = (0, 0.5)
C2 = (0, -0.5)
c = CircumcircleArc(C1, R, C2)
R1 = (1.7, 1.2)
R2 = (1.7, -1.2)
a = Segment(R2, R1)
R0 = Intersect(a, xAxis)
b = Segment(O, R0)
f' = 1 (slider from 1 to 1.6999, step 0.001)
F': (f', 0)
F'_2 = Mirror(F', O)
a' = -0.864 (slider from -1.2 to 1.2, step 0.001)
A_1: (1.7, a')
d = Ray(A_1, O)
e = Ray(A_1, F')
B = Intersect(e, yAxis)
f = Segment(A_1, B)
C: B + (-1, 0)
g = Ray(B, C)
A = Intersect(d, g)
h = Ray(A, F'_2)
D_1 = Intersect(h, yAxis)
i = Ray(D_1, A)
j = Segment(D_1, A_1)
k = Ray(C1, A)
l = Ray(C2, A)
m = Segment(C1, A_1)
n = Segment(C2, A_1)
α = Angle(A, O, F'_2)
u = Vector(O, C1)
v = Vector(O, C2)
p = Line(O, F')
D = Intersect(g, yAxis)
q = Segment(D, A_1)