L = 1 (slider from 0 to 6, step 0.1)
N = 4 (slider from 3 to 16, step 1)
A = (1, -2)
B = Point(Circle[A, L])
a = Segment(A, B)
poly1, b, a_1, c, d, C, D = Polygon(A, B, N)