Quadrat zu Rechteck mit einer vorgegebner Seitenlänge
mit Hilfe des Kathetensatzes

A = (-8, 1)
B = Point(Circle[A, 7])
f = Segment(A, B)
Vieleck1, g, h, i, j, C, D = Polygon(A, B, 4)
k = Line(D, C)
c = Circle(B, 8)
E, F = Intersect(c, k)
l = Segment(B, F)
m = OrthogonalLine(C, l)
G = Intersect(m, l)
d = Circle(B, G)
n = OrthogonalLine(B, l)
H, I = Intersect(d, n)
p = OrthogonalLine(F, l)
q = OrthogonalLine(H, n)
J = Intersect(q, p)
v1, b, h_1, j_1, f_1 = Polygon(B, H, J, F)