A = (-1, 0)
B = (1, 2)
a = Line(A, B)
b = LineBisector(B, A)
C = Point(b)
c = Circle(A, C)
d = Circle(C, Segment[C, A])
e = Circle(B, Segment[C, B])
D, E = Intersect(e, c)
Vieleck1, a_1, c_1, b_1, e_1 = Polygon(A, C, B, E)
F = (5, 1)
G = (4, 0)
f = Segment(F, G)
H = (3, 2)
I = (5, 2)
g = Segment(H, I)