A = (-1.18, -0.58)
C = Point(Circle[A, 9])
a_2 = Segment(A, C)
b_2 = OrthogonalLine(C, a_2)
B_1 = Point(Circle[C, 4])
c_2 = Segment(C, B_1)
D = Intersect(c_2, b_2)
d = Circle(C, B_1)
E, F = Intersect(d, b_2)
e = Line(E, a_2)
G = Point(Circle[A, 5])
f = Segment(A, G)
g = Circle(A, G)
B', B = Intersect(g, e)
Vieleck1, c, a, b = Polygon(A, B, C)
Vieleck2, c_1, a_1, h = Polygon(A, B', C)
i = OrthogonalLine(B, a_2)
I = Intersect(i, a_2)
j = Segment(I, B)
k = Ray(C, A)
l = OrthogonalLine(B', k)
H = Intersect(l, k)
m = Segment(H, B')