A = (2.3, 6.2)
B = (2.3, -4.266666666666667)
a = 0 (slider from 0 to 1, step 0.02)
C = Rotate(B, 90.0°, A)
D = Rotate(A, 90.0°, C)
P, a_1, c, d, b = Polygon(A, C, D, B)
E = Point(a_1)
F = Rotate(A, 90.0°, E)
G = Rotate(E, 90.0°, F)
e = OrthogonalLine(F, d)
f = OrthogonalLine(F, c)
H = Intersect(c, f)
I = Intersect(d, e)
J: F + a * Vector[F, C]
K: I + a * Vector[F, C]
L: G + a * Vector[F, C]
M: F + a * Vector[E, A]
N: E + a * Vector[E, A]
O: C + a * Vector[E, A]
Q: C + a * Vector[H, D]
R: H + a * Vector[H, D]
S: F + a * Vector[H, D]
T, k, l, j = Polygon(L, J, K)
U, o, n, m = Polygon(N, M, O)
V, i, g, b_1 = Polygon(G, B, I)
W, r, s, q = Polygon(S, Q, R)