EqualSides
Author: J. Doner

A = (0.39037037037037037, 0.5214814814814814)
B = Point(Circle[A, 2])
a = Segment(A, B)
C = (0.4022222222222222, 0.21925925925925924)
D = Point(Circle[C, 2.7])
b = Segment(C, D)
E = Point(b)
c = Segment(C, E)
d = Segment(D, E)
e = Circle(A, c)
f = Circle(B, d)
F = Intersect(e, f, 1)
poly1, b_1, a_1, f_1 = Polygon(A, F, B)