AZZERA

PRIMA ANIMAZIONE

STOP!

SECONDA ANIMAZIONE

STOP!

A = Point(xAxis)
B = Point(xAxis)
poli1, f, g, h, i, C, D = Polygon(A, B, 4)
j = Segment(A, B)
E = Point(xAxis)
F = Point(Circle[E, j])
k = Segment(E, F)
poli2, l, m, n, p, G, H = Polygon(E, F, 4)
q = Segment(D, B)
I = Point(q)
r = OrthogonalLine(I, f)
s = OrthogonalLine(I, yAxis)
J = Intersect(s, i)
K = Intersect(r, h)
L = Intersect(f, j)
M = Intersect(r, f)
N, O = Intersect(g, poli1)
P = Intersect(g, s)
Q = Intersect(p, s)
c = Circle(H, Q)
R = Intersect(c, n)
S = Intersect(s, m)
poli3, t, a, b, d, T, U = Polygon(S, R, 4)
q1, j_1, i_1, k_1, d_1 = Polygon(J, I, K, D)
q2, i_2, p_1, c_1, k_2 = Polygon(I, P, C, K)
q3, m_1, i_3, p_2, b_1 = Polygon(M, I, P, B)
q4, a_1, m_2, i_4, j_2 = Polygon(A, M, I, J)
e = Segment(K, P)
t1, t_1, h_1, r_1 = Polygon(H, R, T)
t2, g_1, r_2, s_1 = Polygon(R, S, G)
t3, u, s_2, f_2 = Polygon(S, F, U)
t4, e_1, t_2, u_1 = Polygon(T, U, E)
o: 0
v: (Vector[H, J] * o)
H' = Translate(H, v)
R' = Translate(R, v)
T' = Translate(T, v)
t1', t', h', r' = Polygon(H', R', T')
w: (Vector[G, C] * o)
R'_1 = Translate(R, w)
S' = Translate(S, w)
G' = Translate(G, w)
t2', g', r'_1, s' = Polygon(R'_1, S', G')
v_1: (Vector[T, K] * o)
T'_1 = Translate(T, v_1)
U' = Translate(U, v_1)
E' = Translate(E, v_1)
t4', e', t'_1, u' = Polygon(T'_1, U', E')
w_1: (Vector[F, M] * o)
S'_1 = Translate(S, w_1)
F' = Translate(F, w_1)
U'_1 = Translate(U, w_1)
t3', u'_1, s'_1, f' = Polygon(S'_1, F', U'_1)