A = (4.9, 1.3)
c = Circle(A, 5.0)
B = Point(c)
a = Line(B, A)
C, D = Intersect(c, a)
b = Segment(B, D)
E = Point(c)
d = Segment(B, E)
e = Segment(E, D)
f = OrthogonalLine(A, b)
g = Line(E, b)
F = Point(d)
G = Point(e)
Vieleck1, g_1, f_1, e_1 = Polygon(F, E, G)
h = Line(E, f)
k = Circle(E, Segment[E, G])
H, I = Intersect(k, h)
i = LineBisector(I, G)
F' = Mirror(F, i)
E' = Mirror(E, i)
G' = Mirror(G, i)
Vieleck1', g', f', e' = Polygon(F', E', G')