AVVIA ANIMAZIONE

FERMA ANIMAZIONE

SECONDO TEOREMA DI EUCLIDE

A = (1, -1)
B = (13, -1)
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)
DEFC, g, h, i, j, E, F = Polygon(C, D, 4)
d = Circle(D, B)
G, H = Intersect(d, f)
k = OrthogonalLine(H, f)
l = OrthogonalLine(A, k)
I = Intersect(k, l)
q1, a_1, d_1, h_1, i_1 = Polygon(A, D, H, I)
Testopoli1: "Area di " + (Name[DEFC]) + " = " + DEFC
Puntopoli1 = PointIn(DEFC)
Testoq1: "Area di  " + (Name[A]) + (Name[D]) + (Name[H]) + (Name[I]) + " = " + q1
Puntoq1 = PointIn(q1)