Rechteck in ein flächengleiches Quadrat
mit dem Kathetensatz

A = (-5, -3)
B = (5, -3)
C = (5, -1)
D = (-5, -1)
Rechteck, a, b, c, d = Polygon(A, B, C, D)
f = Line(D, C)
e = Circle(D, A)
E, F = Intersect(e, f)
g = Semicircle(D, C)
h = OrthogonalLine(F, c)
G = Intersect(g, h)
Quadrat, i, j, k, l, H, I = Polygon(D, G, 4)