Simulation Rayon Anamorphose
Author: L. Signac

A = Point(xAxis)
B = Mirror(A, yAxis)
C = Point(yAxis)
b = Segment(A, C)
c = Segment(C, B)
d = Segment(B, A)
D = Point(d)
a = Line(D, yAxis)
E = Intersect(b, a)
e = OrthogonalLine(E, b)
f = Mirror(a, e)
F = Intersect(f, xAxis)
G = Mirror(F, b)
u = Vector(F, E)
v = Vector(G, E)
H = Point(a)
w = Vector(E, H)