Cuadrado sobre diagonal

A

B

A = (0, -6)
B = Point(Segment[A, A + (10, 0)])
n: x(B - A)
cua1, i, j, e, f, K, L = Polygon(A, B, 4)
g = Segment(A, K)
h = Segment(B, L)
a = false
cua2, l, b, c, d, C, D = Polygon(L, B, 4)
k = Segment(K, D)
m = Segment(K, C)
pos = 1 (slider from 1 to 2, step 1)
cua1', p, q, r, s, E, F = Polygon(B + ((-n), n), B, 4)
t = Segment(B, F)
a_1 = Segment(L, E)
cua2', f_1, b_1, c_1, d_1, G, H = Polygon(F, B, 4)
e_1 = Segment(E, G)
g_1 = Segment(E, H)
I = (-3.5400000000000005, 4.539999999999998)