Vous avez dit carré ?

A = (-11.164659424259629, 13.383760838181058)
B = (-7.164659424259627, 13.383760838181058)
a = Segment(A, B)
C = (-7.164659424259627, 9.383760838181068)
b = Segment(B, C)
D = (-11.164659424259629, 9.383760838181068)
c = Segment(C, D)
d = Segment(D, A)
E = (-7.694835035695028, 5.680331168446092)
F = (-2.687124160982713, 6.32998014678715)
e = Segment(E, F)
f = OrthogonalLine(F, e)
G = Point(f)
g = OrthogonalLine(E, e)
H = Point(g)
h = OrthogonalLine(H, g)
i = Segment(H, G)
j = Segment(G, F)
k = Segment(H, E)
I = (6.624511195239106, 6.167567902201886)
J = (2.4559302508839895, 4.516376748918365)
p = Circle(I, J)
l = Line(I, J)
m = OrthogonalLine(I, l)
K, L = Intersect(p, l)
M, N = Intersect(p, m)
n = Segment(L, N)
q = Segment(N, J)
r = Segment(J, M)
s = Segment(M, L)