A = (2.78, 0.9)
B = (5.76, 0.92)
a = Segment(A, B)
c = Circle(B, A)
b = OrthogonalLine(B, a)
d = OrthogonalLine(A, a)
C = Intersect(c, b, 2)
e = OrthogonalLine(C, b)
D = Intersect(d, e)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)