A = (3.6999999999999997, 4.4)
B = Point(Circle[A, 4])
a = Segment(A, B)
C = Point(Circle[B, 4])
b = Segment(B, C)
c = Circle(C, 4)
d = Circle(A, 4)
D_1, D = Intersect(d, c)
P, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)