A = (1.36, 0.08)
B = (4.04, 0.08)
a = Line(A, B)
P = Point(a)
C = (9.08, 4.7)
D = (14.52, 4.68)
c = Segment(C, D)
E = (7.48, 3.22)
F = (12.16, 3.16)
b = Ray(E, F)
G = racinecarrée(E, F, C, D)
d = Circle(P, Segment[E, G])
e = OrthogonalLine(A, a)
Q = Intersect(d, e, 2)
f = Circle(A, Q)
g = Circle(B, Segment[A, P])
H = Intersect(f, g, 1)
M = Intersect(f, g, 1)
M' = Intersect(f, g, 2)

Tool: racine carrée (command racinecarrée)
1/2droite AB et [DE]=X
Input: A, B, D, E
Output: H

b = Ray(A, B)
c = Circle(A, 1)
C = Intersect(c, b, 1)
d = Circle(C, Segment[D, E])
F = Intersect(d, b, 1)
e = Semicircle(A, F)
a = OrthogonalLine(C, b)
G = Intersect(e, a, 1)
f = Circle(A, Segment[C, G])
H = Intersect(f, b, 1)

Tool: QUOTIENT Y/X (command QUOTIENTY)
1/2 DROITE AB PUISY ET X
Input: A, B, Y, X
Output: Z

a = Ray(A, B)
c = Circle(A, 1)
C = Intersect(c, a, 1)
X = Point(a)
Y = Point(a)
b = OrthogonalLine(A, a)
D = Intersect(c, b, 2)
d = Line(X, D)
e = Line(C, D)
f = Line(Y, d)
E = Intersect(b, f)
g = Line(E, e)
Z = Intersect(g, a)