R = 3 (slider from 0 to 5, step 1)
A = (0.92, 1.4825)
c = Circle(A, R)
B = (5.02, 1.4625)
a = Line(A, B)
b = OrthogonalLine(A, a)
C, D = Intersect(c, b)
E = Midpoint(A, D)
F = Midpoint(A, C)
d = Line(D, a)
e = Line(E, a)
f = Line(F, a)
g = Line(C, a)
G, H = Intersect(c, e)
I, J = Intersect(c, f)
h = Segment(I, H)
i = Segment(J, G)
poly1, c_1, j, h_1, d_1, g_1, i_1 = Polygon(C, J, H, D, G, I)