Δείξε τα μισά τετράγωνα

o = 0 (slider from 0 to 3, step 0.1)
g(x) = If[(x  <  1) ∨ (x ≥ 2), 0, 1]
f(x) = If[(x  <  0) ∨ (x ≥ 1), 0, 1]
C = (5.26, 1.7)
B = (0.42, 1.74)
c = Semicircle(B, C)
A = Point(c)
πολύγ.3, k, l, m, n, H, I = Polygon(C, B, 4)
d = Circle(B, H)
Q_1: (((o - 1) * x(H)) + ((2 - o) * x(C)), ((o - 1) * y(H)) + ((2 - o) * y(C)))
h = Ray(B, Q_1)
Q = Intersect(d, h)
r(x) = If[(x  <  2) ∨ (x > 3), 0, 1]
b: (f(o) * (((1 - o) * y(A)) + (o * y(C)))) + (g(o) * y(Q)) + (r(o) * y(H))
a: (f(o) * (((1 - o) * x(A)) + (o * x(C)))) + (g(o) * x(Q)) + (r(o) * x(H))
P: (a, b)
πολύγ.1, e, i, j, p, D, E = Polygon(B, A, 4)
q = Circle(B, E)
Q_2: (((2 - o) * x(E)) + ((o - 1) * x(A)), ((2 - o) * y(E)) + ((o - 1) * y(A)))
s = Ray(B, Q_2)
F = Intersect(q, s)
t = OrthogonalLine(A, k)
G = Intersect(k, t)
a_1: (f(o) * x(E)) + (g(o) * x(F)) + (r(o) * (((3 - o) * x(A)) + ((o - 2) * x(G))))
b_1: (f(o) * y(E)) + (g(o) * y(F)) + (r(o) * (((3 - o) * y(A)) + ((o - 2) * y(G))))
P_1: (a_1, b_1)
u = 0 (slider from 0 to 3, step 0.1)
πολύγ.4, c_1, d_1, e_1, f_1, J, K = Polygon(A, C, 4)
g_1 = Circle(C, I)
h_1 = Circle(C, J)
Q_3: (((2 - u) * x(B)) + ((u - 1) * x(I)), ((2 - u) * y(B)) + ((u - 1) * y(I)))
Q_4: (((2 - u) * x(J)) + ((u - 1) * x(A)), ((2 - u) * y(J)) + ((u - 1) * y(A)))
i_1 = Ray(C, Q_4)
j_1 = Ray(C, Q_3)
L = Intersect(h_1, i_1)
M = Intersect(g_1, j_1)
a_2: (f(u) * (((1 - u) * x(A)) + (u * x(B)))) + (g(u) * x(M)) + (r(u) * x(I))
b_2: (f(u) * (((1 - u) * y(A)) + (u * y(B)))) + (g(u) * y(M)) + (r(u) * y(I))
P_2: (a_2, b_2)
a_3: (f(u) * x(J)) + (g(u) * x(L)) + (r(u) * (((3 - u) * x(A)) + ((u - 2) * x(G))))
b_3: (f(u) * y(J)) + (g(u) * y(L)) + (r(u) * (((3 - u) * y(A)) + ((u - 2) * y(G))))
P_3: (a_3, b_3)
πολύγ.2, p_1, p_2, b_4 = Polygon(P_1, B, P)
πολύγ.5, p_3, p_4, c_2 = Polygon(P_3, C, P_2)
α = Angle(B, A, C)
β = Angle(C, G, A)
v = false