Q = (4.347267297162773, -5.004617001272047)
B = (12, -5)
a = Line(Q, B)
b = OrthogonalLine(B, a)
c = Circle(B, 3)
Q' = Rotate(Q, -34*°, B)
α = Angle(Q', B, Q)
e = Ray(B, Q')
P = Intersect(c, b, 2)
d = Line(P, a)
C = Intersect(d, e)
f = Circle(C, B)
A = Intersect(f, a, 2)
Vieleck1, c_1, a_1, b_1 = Polygon(A, B, C)
abstandAB = Distance(A, B)
Midpoint(A, B)
TextAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + abstandAB