A = Intersect(xAxis, yAxis)
r = 3.8 (slider from -5 to 5, step 0.1)
c = Circle(A, r)
B = Intersect(c, yAxis, 2)
C = Intersect(c, yAxis, 1)
D = Intersect(c, xAxis, 2)
d = Circle(D, r)
a = OrthogonalLine(B, yAxis)
b = OrthogonalLine(C, yAxis)
E = Intersect(d, xAxis, 2)
e = Circle(E, r)
F = Intersect(c, xAxis, 1)
G = Intersect(e, xAxis, 2)
f = OrthogonalLine(F, xAxis)
g = OrthogonalLine(G, xAxis)
H = Intersect(a, f)
I = Intersect(b, f)
J = Intersect(b, g)
K = Intersect(a, g)
polígono1, h, k, j, i = Polygon(H, K, J, I)
l = Segment(I, K)