A = (-1.99267, -1.9259980000000052)
B = (2.0088, -1.9456)
a = Segment(A, B)
c = Circle(A, B)
b_2 = OrthogonalLine(A, a)
C = Intersect(c, b_2, 2)
d = OrthogonalLine(C, b_2)
e = OrthogonalLine(B, a)
D = Intersect(d, e)
poli1, a_1, c_1, d_1, b_1 = Polygon(A, C, D, B)
h = 1 (slider from 0 to 6, step 0.1)
E = Point(Circle[B, h])
f = Segment(B, E)
g = OrthogonalLine(E, f)
h_3 = Circle(A, E)
F = Intersect(h_3, b_2, 2)
i = OrthogonalLine(F, b_2)
G = Intersect(g, i)
H = Intersect(e, i)
I = Intersect(d, g)
poli3, d_3, i_1, e_1, b_3 = Polygon(D, I, E, B)
poli4, g_1, i_2, d_4, h_2 = Polygon(G, I, D, H)
b = Segment(B, E)
Testopoli1: "Area " + (Name[A]) + (Name[C]) + (Name[D]) + (Name[B]) + " = " + poli1
Testopoli4: "Area " + (Name[G]) + (Name[I]) + (Name[D]) + (Name[H]) + " = " + poli4
Testopoli3: "Area " + (Name[D]) + (Name[I]) + (Name[E]) + (Name[B]) + " = " + poli3
poli2, f_1, h_1, d_2, c_2 = Polygon(F, H, D, C)
Testopoli2: "Area " + (Name[F]) + (Name[H]) + (Name[D]) + (Name[C]) + " = " + poli2