A = Point(xAxis)
B = Point(xAxis)
C = Point(yAxis)
D = Point(yAxis)
a = Line(A, B)
b = Line(C, D)
O = Intersect(a, b)
E = Point(a)
c = Circle(O, E)
F = Point(c)
d = Line(F, a)
e = Line(F, b)
G = Intersect(a, e)
H = Intersect(b, d)
f = Segment(G, H)
g = 0.7 (slider from 0 to Radius[c], step 0.1)
h = Circle(G, g)
P = Intersect(h, f, 1)
luogo1 = Locus(P, F)
i = OrthogonalLine(P, a)
j = OrthogonalLine(P, b)
I = Intersect(a, i)
J = Intersect(b, j)
poli1, h_1, o, g_1 = Polygon(O, G, H)
poli2, h_2, j_1, p = Polygon(J, P, H)
poli3, p_1, i_1, g_2 = Polygon(I, G, P)