P = Point(c)
Vieleck1, a, b, d = Polygon((0.0, 0.0), (x(P), 0.0), P)
x_P = Segment((0.0, 0.0), (x(P), 0.0))
y_P = Segment((x(P), 0.0), P)
r = Segment((0.0, 0.0), P)
Text1: "x_P^2 + y_P^2 = " + (x_P^(2.0)) + " + " + (y_P^(2.0)) + "= " + (x_P^(2.0) + y_P^(2.0))