t = 0.94 (slider from 0 to 1, step 0.01)
AnimT(x) = (sin((pi / 2 * x)))^(2)
A = (4, 3)
B = (5, 3)
poly1, f, g, h, i, C, D = Polygon(A, B, 4)
j = Segment(A, C)
k = Segment(B, D)
E = Intersect(j, k)
c = CircleArc(Midpoint[A, B], B, E)
t1, b, a, e = Polygon(A, E, B)
F = Point(c, AnimT(t))
l = Ray(A, F)
m = OrthogonalLine(B, l)
G = Intersect(m, l)
n = OrthogonalLine(C, m)
p = OrthogonalLine(D, n)
H = Intersect(m, n)
I = Intersect(n, p)
J = Intersect(p, l)
t2, g_1, a_1, b_1 = Polygon(A, B, G)
t3, h_1, b_2, c_1 = Polygon(B, C, H)
t4, d, c_2, i_1 = Polygon(C, I, D)
t5, a_2, d_1, j_1 = Polygon(D, J, A)
q1, h_2, i_2, j_2, g_2 = Polygon(H, I, J, G)