A = (8.180055827149612, -2.2899525748231837)
B = (12.462949141416637, -2.2899525748231837)
a = Segment(A, B)
M = Midpoint(a)
b = OrthogonalLine(B, a)
c = Circle(B, M)
C_1 = Intersect(c, b, 2.0)
d = Ray(A, C_1)
e = Circle(C_1, B)
D_1 = Intersect(e, d, 2.0)
f = Circle(A, D_1)
g = Circle(B, Segment[A, D_1])
D = Intersect(f, g, 1.0)
h = Circle(B, A)
C = Intersect(f, h, 1.0)
k = Circle(A, B)
E = Intersect(g, k, 2.0)
Vieleck1, a_1, b_1, c_1, d_1, e_1 = Polygon(A, B, C, D, E)