N = 1
l = 4 (slider from 0 to 10)
A = Point(xAxis)
c = Circle(A, l)
r = 14 (slider from 1 to 20)
B = Intersect(c, yAxis, N)
f = Line(A, B)
C = Dilate(B, r / l, A)
ppA = PathParameter(A)
ppAok: 0.20900414197677147
eq1 = LocusEquation(C, A)
g = Segment(C, A)
s: 16
q1, h, i, j, k = Polygon((s / 2, s / 2), (((-s)) / 2, s / 2), (((-s)) / 2, ((-s)) / 2), (s / 2, ((-s)) / 2))