AVVIA ANIMAZIONE

FERMA ANIMAZIONE

PRIMO TEOREMA DI EUCLIDE

A = (3, 0)
B = (13.148125684812374, 0)
c = Semicircle(A, B)
C = Point(c)
t1, b, a, c_1 = Polygon(A, C, B)
f = OrthogonalLine(C, c_1)
D = Intersect(c_1, f)
g = Segment(C, D)
ACEF, h, i, j, k, E, F = Polygon(A, C, 4)
l = OrthogonalLine(A, c_1)
d = Circle(A, B)
G, H = Intersect(d, l)
m = OrthogonalLine(H, f)
I = Intersect(f, m)
q1, a_1, d_1, i_1, h_1 = Polygon(A, D, I, H)
BCKJ, n, p, q, r, J, K = Polygon(C, B, 4)
s = OrthogonalLine(B, m)
L = Intersect(s, m)
q2, d_2, b_1, l_1, i_2 = Polygon(D, B, L, I)
Testopoli2: "Area di " + (Name[BCKJ]) + " = " + BCKJ
Puntopoli2 = PointIn(BCKJ)
Testoq2: "Area di  " + (Name[D]) + (Name[B]) + (Name[L]) + (Name[I]) + " = " + q2
Puntoq2 = PointIn(q2)
Testopoli1: "Area di " + (Name[ACEF]) + " = " + ACEF
Puntopoli1 = PointIn(ACEF)
Testoq1: "Area di  " + (Name[A]) + (Name[D]) + (Name[I]) + (Name[H]) + " = " + q1
Puntoq1 = PointIn(q1)