*Circle with centre and point - make multiple circles

Circle with centre and radius

Distance

Distance from center

Points on circle

Locus of point demonstration

j = 5.3 (slider from 0 to 10, step 0.1)
I = (32.77469587603387, 1.8597158294430913)
k = Circle(I, j)
A = Point(k)
l = Segment(I, A)
d = false
H = Point(k)
m = Segment(I, H)
E = Point(k)
n = Segment(I, E)
C = Point(k)
p = Segment(I, C)
B = Point(k)
q = Segment(I, B)
a = true
G = Point(k)
i = Segment(I, G)
F = Point(k)
r = Segment(I, F)
Curve(x) = NaN
D = (3.599935784816575, 2.878387620337556)
J = Point(Circle[D, j])
b = Segment(D, J)
rotate = 0 rad (slider from 0 to 6.283185307179586, step 5°)
J' = Rotate(J, rotate°, D)
α = Angle(J, D, J')
J'_1 = Rotate(J, rotate, D)
β = Angle(J, D, J'_1)

Tool: SquareTool
Tool2[ <Number>, <Point> ]
Input: side, A
Output: poly1

B = Point(Circle[A, side])
a = Segment(A, B)
c = Circle(A, side)
b = OrthogonalLine(A, a)
C = Intersect(c, b, 2)
d = Circle(C, side)
e = OrthogonalLine(C, b)
D = Intersect(d, e, 1)
poly1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)