O = (0.9186604306728539, 1.2268949605945494)
B = (1.5875610679508614, 1.2338773272500385)
c = Circle(O, B)
a = Line(B, O)
A = Intersect(c, a, 2)
C = Point(c)
poli1, a_1, b, c_1 = Polygon(B, C, A)
d = OrthogonalLine(C, c_1)
H = Intersect(a, d)
e = Segment(C, H)
α = Angle(A, C, B)
poli2, f, g, h, i, D, E = Polygon(H, C, 4)
k = Circle(H, A)
F = Intersect(k, d, 1)
p = CircleArc(H, A, F)
j = OrthogonalLine(F, d)
l = OrthogonalLine(B, j)
G = Intersect(l, j)
poli3, h_1, b_1, g_1, f_1 = Polygon(H, B, G, F)
Testopoli2: "Area quadrato= " + poli2 + ""
Testopoli3: "Area di  " + (Name[H]) + (Name[B]) + (Name[G]) + (Name[F]) + " = " + poli3