A = Intersect(xAxis, yAxis)
T = Point(xAxis)
M = Midpoint(A, T)
c = Circle(T, A)
a_1 = OrthogonalLine(T, xAxis)
B_1 = Intersect(c, a_1, 2.0)
g = Segment(M, B_1)
d = Circle(M, B_1)
B = Intersect(d, b_1, 2.0)
e = Segment(A, T)
f = Segment(T, B)
b = Segment(T, B)
a = Segment(A, T)
Text1: "Goldener\quad Schnitt: \quad a/b \approx" + (a / b)