O = (4.26, 1.74)
r = 3.6 (slider from 1 to 5, step 0.1)
c = Circle(O, r)
P = Point(c)
Q = Mirror(P, O)
a = Segment(P, Q)
b = OrthogonalLine(O, a)
A = Intersect(c, b, 2)
M = Midpoint(O, Q)
d = Circle(M, A)
R = Intersect(d, a, 1)
t = Distance(A, R)
e = Circle(A, t)
B = Intersect(c, e, 1)
f = Circle(B, t)
C = Intersect(c, f, 1)
g = Circle(C, t)
D = Intersect(c, g, 1)
E = Intersect(c, e, 2)
poly1, a_1, b_1, c_1, d_1, e_1 = Polygon(A, B, C, D, E)