Linsenabbildung

A = Point(xAxis)
a = OrthogonalLine(A, xAxis)
B_1 = Point(a)
G = Vector(A, B_1)
b = OrthogonalLine(B_1, yAxis)
C = Intersect(yAxis, b)
c = Segment(B_1, C)
F1 = Point(xAxis)
F2 = Point(xAxis)
d = Ray(C, F2)
D = Intersect(yAxis, xAxis)
e = Ray(B_1, D)
E = Intersect(d, e)
f = OrthogonalLine(E, xAxis)
F = Intersect(f, xAxis)
B = Vector(F, E)
H = Point(yAxis)
I = Point(yAxis)
g = Segment(H, I)
h = Line(F1, F2)
J = Intersect(c, g)
i = Ray(J, F1)
K = Intersect(i, e)
j = OrthogonalLine(K, h)
L = Intersect(j, h)
u = Vector(L, K)