B = (-1, 1)
A = (-1, 2)
poly1, f, g, h, i, j, C, D, E = Polygon(A, B, 5)
aM = 0 (slider from 0 to 252 + (36 * 252 / 36) + 100, step 0.1)
a3: Min[Max[aM - 50, 0], 252]°
l1: {A, B, C, D, E}
a: Min[aM, 252]°
l2 = Sequence(Sequence[Segment[l1(j), l1(j + k)], k, 1, Length[l1] - j], j, 1, Length[l1])
A' = Rotate(A, a, A)
D' = Rotate(D, a, A)
E' = Rotate(E, a, A)
t1_1, e', a', d' = Polygon(A', D', E')
D'_1 = Rotate(D, (-a), D)
E'_1 = Rotate(E, (-a3), D)
A'_1 = Rotate(A, (-a3), D)
t2_1, e'_1, a'_1, d'_1 = Polygon(A'_1, D'_1, E'_1)
k = Segment(A, D)
l = Segment(A, C)
m = Segment(E, C)
n = Segment(E, B)
p = Segment(D, B)
q = Segment(A, B)
r = Segment(B, C)
s = Segment(C, D)
t = Segment(D, E)
b = Segment(E, A)
E'_2 = Mirror(E, r)
C' = Mirror(C, r)
m' = Segment(E'_2, C')
E'_3 = Mirror(E, r)
B' = Mirror(B, r)
n' = Segment(E'_3, B')
poly2, c, d, e, f_1, g_1, F, G, H = Polygon(D, A, 5)
I = Centroid(poly2)
a2: Min[(36 / 252 * Max[aM - 252 - 100, 0]), 36]°
poly2' = Rotate(poly2, (-a2), I)
t1 = Min(a2 / (36°), 1)
poly2'' = Dilate(poly2', 1 - t1 + (2 / (sqrt(5) + 1) * t1), I)
J = Centroid(poly1)
t2 = Min(a2 / (36°), 1)
u = Vector(I, J)
poly2''' = Translate(poly2'', Vector[(t2 * u)])
q1 = Polygon({A, B, C, D})
h_1 = Ray(A, B)
i_1 = Ray(D, C)
K = Intersect(h_1, i_1)
v = Vector(B, K)
w = Vector(C, K)
t3: Min[Max[aM - 252, 0], 25] / 25
B'_1 = Translate(B, Vector[(t3 * v)])
t4: Min[Max[aM - 252 - 50, 0], 25] / 25
C'_1 = Translate(C, Vector[(t4 * w)])
j_1 = Segment(B, B'_1)
k_1 = Segment(C, C'_1)