r

r = 3.3000000000000003 (slider from 0 to 6, step 0.1)
C = (0, 0)
B: C + (r, 0)
c = Circle(C, B)
P = Point(c)
r_1 = Segment(C, P)
A = Midpoint(C, P)