$\Large%v$

$\Large%v$

A0: (0, 0)
A0': A0 + (1, 0)
A = Point(Segment[A0, A0'], 0)
s = 12 (slider from 12 to 24, step 2)
l1 = RemoveUndefined(Sequence[If[Mod[s, k] ≟ 0, A + (Div[s, k], 0)], k, 1, sqrt(s)])
B = Point(l1)
C: B + (0, s / abs(x(A) - x(B)))
D: A + (0, s / abs(x(A) - x(B)))
q1, g, h, i, j = Polygon(A, B, C, D)
E = (10.802179848704366, -18.044346453166064)
F = (25.64368013177612, -18.044346453166064)