Setup

r = 1 (slider from 0.5 to 2, step 0.1)
Z0: (r * cos(π / 4)) + ((ί * r) * sin(π / 4))
c = Circle((0, 0), abs(Z0))
Z1: x(Z0) + (ί * 0)
A = Rotate(Z1, ((-π)) / 2, (0, 0))
p1 = Segment(Z1, A)
Z3 = Dilate(Z0, sqrt(2) / 2, (0, 0))
Z3Aux = Rotate(Z3, ((-π)) / 2, (0, 0))
p2 = Segment(Z3, Z3Aux)
Z4 = Intersect(p1, p2)
B: r + (ί * 0)
C = Rotate(B, π / 2, (0, 0))
D = Rotate(Z1, π / 2, (0, 0))
p3 = Segment(Z0, D)
p4 = Segment(B, C)
Z5 = Intersect(p3, p4)
Shape, z0, z1, z4, z3, z5 = Polygon(Z0, Z1, Z4, Z3, Z5)
t = 0.39 (slider from 0 to π / 2, step 0.01)
Z0' = Rotate(Z0, t, (0, 0))
Z1' = Rotate(Z1, t, (0, 0))
Z4' = Rotate(Z4, t, (0, 0))
Z3' = Rotate(Z3, t, (0, 0))
Z5' = Rotate(Z5, t, (0, 0))
Shape', z0', z1', z4', z3', z5' = Polygon(Z0', Z1', Z4', Z3', Z5')
L01 = Sequence(Polygon[Rotate[Z0', ((2 * π / 4) * i), (0, 0)], Rotate[Z1', ((2 * π / 4) * i), (0, 0)], Rotate[Z4', ((2 * π / 4) * i), (0, 0)], Rotate[Z3', ((2 * π / 4) * i), (0, 0)], Rotate[Z5', ((2 * π / 4) * i), (0, 0)]], i, 0, 3)
L02 = Sequence(Rotate[Polygon[Rotate[Z0', π / 4, (0, 0)], Rotate[Z1', π / 4, (0, 0)], Rotate[Z4', π / 4, (0, 0)], Rotate[Z3', π / 4, (0, 0)], Rotate[Z5', π / 4, (0, 0)]], ((2 * π / 4) * i), (0, 0)], i, 0, 3)