A = (8, -2)
B = (8, 8)
f = Line(A, B)
g = OrthogonalLine(B, f)
C = Point(f)
r = 5 (slider from 0 to 10, step 0.1)
c = Circle(C, r)
M = Point(c)
h = Ray(A, M)
P = Intersect(h, g)
i = OrthogonalLine(P, g)
j = OrthogonalLine(M, i)
H = Intersect(j, i)
lieu1 = Locus(H, M)
t1, m, p, h_1 = Polygon(P, H, M)