A = (0, 0)
B = (1, 0)
многоугольник1, f, g, h, C = Polygon(A, B, 3)
D = Midpoint(f)
j = Segment(C, D)
n = Line(A, B)
расстояниеAB = Distance(A, B)
t = 0.19 (slider from 0 to 2, step 0.01)
A_1: (t, 0)
c = Circle(A_1, j)
B_2, B_{3} = Intersect(c, g)
d = Circle(B_{3}, j)
F, G = Intersect(d, c)
A_2: (t, 0)
p = Circle(A_2, j)
C_{3}, J = Intersect(p, h)
q = Circle(C_{3}, j)
H, I = Intersect(q, p)
r_{2} = If(0.5 ≤ t < 1, CircleArc[I, A_2, C_{3}])
c_1 = Circle(B, t - 1)
B_1 = Intersect(c_1, g)
d_1 = Circle(B_1, j)
K, C_2 = Intersect(d_1, h)
e_1 = Circle(C_2, j)
L, M = Intersect(e_1, d_1)
f_1 = If(1 ≤ t < 1.5, CircleArc[L, C_2, B_1])
g_1 = If(1 ≤ t < 1.5, CircleArc[M, B_1, C_2])
h_1 = Circle(B, t - 1)
B_4 = Intersect(h_1, g)
k_1 = Circle(B_4, j)
A_3, Q = Intersect(k_1, f)
p_1 = Circle(A_3, j)
N, O_{1} = Intersect(k_1, p_1)
q_1 = If(1.5 ≤ t ≤ 2, CircleArc[N, B_4, A_3])
r_1 = If(1.5 ≤ t ≤ 2, CircleArc[O_{1}, A_3, B_4])
s_1 = Circle(B_2, j)
E, P = Intersect(c, s_1)
t_1 = If(0 ≤ t ≤ 0.5, CircleArc[P, B_2, A_1])
c_2 = If(0 ≤ t ≤ 0.5, CircleArc[E, A_1, B_2])
e = If(0 ≤ t < 0.5, CircleArc[F, B_{3}, A_1])
R = Intersect(c, g, 1)
S = Intersect(c, e, 1)
i = Segment(A_1, S)
T = Midpoint(i)
U = Intersect(c, r_{2}, 1)
l = Segment(A_1, U)
V = Midpoint(l)
W = Intersect(f_1, g_1, 2)
m = Segment(B_4, W)
Z = Midpoint(B_4, W)
C_1 = Intersect(q_1, r_1, 1)
a = Segment(B_4, C_1)
D_1 = Midpoint(C_1, B_4)
E_1 = Intersect(q_1, r_1, 1)
F_1 = Intersect(q_1, r_1, 2)
b = Segment(B_4, F_1)
G_1 = Midpoint(B_4, F_1)
O = Centroid(многоугольник1)
r = Segment(O, D)
s = If(0.5 ≤ t < 1, CircleArc[H, C_{3}, A_2])
k = If(0 ≤ t < 0.5, CircleArc[G, A_1, B_{3}])