Echelle contre un mur
Author: Leflon Yves - Debart Patrice

Y = (9, 8)
O = (9, -1)
OY = Line(Y, O)
X = (16, -1)
OX = Line(O, X)
OX' = Segment(O, X)
A = Point(OX')
u = Vector(X, O)
D' = Translate(A, u)
c = Circle(A, D')
B = Intersect(c, OY, 1)
AB = Segment(A, B)
I = Midpoint(B, A)
G = Point(OX)
f = OrthogonalLine(G, OX)
g = OrthogonalLine(Y, OY)
H = Intersect(f, g)
J = (16.7, 1.34)
K = (17.1, 1.74)
L = (21.5, 1.18)
A_1 = Point(Circle[A, 0.2])
AA1 = Segment(A, A_1)
B_1 = Point(Circle[B, 0.2])
BB1 = Segment(B, B_1)