Oeil

Cristallin

Objet

Image

A = (5, 0.8)
B = (5, -0.8)
a = Segment(A, B)
b = LineBisector(a)
D = Intersect(a, b)
d = Line(A, B)
G = Point(b)
H = (-0.22, 2.52)
f = OrthogonalLine(H, b)
I = Intersect(f, b)
g = Segment(I, H)
h = OrthogonalLine(H, d)
J = Intersect(d, h)
j = Ray(H, D)
c = CircumcircleArc(A, G, B)
C, R = Intersect(c, j)
e = Ray(J, C)
F' = Intersect(e, b)
E' = Dilate(F', 1 / Distance[F', D]^(2), D)
k = Ellipse(A, B, E')
i = OrthogonalLine(C, b)
F = Intersect(i, b)
l = Segment(F, C)
m = Segment(H, A)
n = Segment(A, C)
p = Segment(H, C)
K = (6.058230155002349, 1.6003823391263503)
q = Circle(I, H)
L, M = Intersect(q, b)
r = Circle(F, C)
O, P = Intersect(r, b)
N, Q = Intersect(c, k)
s = CircumcircleArc(Q, G, N)