O = (-2, 3)
A = (-1, 3)
c = Circle(O, A)
a = Line(A, O)
B = Point(c)
C = Intersect(c, a, 2)
poli1, b, d, c_1 = Polygon(C, B, A)
α = Angle(C, B, A)
e = OrthogonalLine(B, c_1)
H = Intersect(e, a)
f = Segment(B, H)
g = Circle(C, A)
h = OrthogonalLine(C, c_1)
i = OrthogonalLine(H, c_1)
D, E = Intersect(g, h)
j = OrthogonalLine(E, i)
F = Intersect(i, j)
poli2, c_2, h_1, f_1, e_1 = Polygon(C, H, F, E)
poli3, k, l, m, n, G, I = Polygon(C, B, 4)
poli4, p, q, r, s, J, K = Polygon(B, A, 4)
t = OrthogonalLine(A, c_1)
L = Intersect(j, t)
poli5, h_2, a_1, l_1, f_2 = Polygon(H, A, L, F)
Testopoli5: "Area di  " + (Name[H]) + (Name[A]) + (Name[L]) + (Name[F]) + " = " + poli5
Testopoli2: "Area di  " + (Name[C]) + (Name[H]) + (Name[F]) + (Name[E]) + " = " + poli2
Testopoli3: "Area quadrato= " + poli3 + ""
Testopoli4: "Area quadrato  = " + poli4 + ""