Question: Peoblem with animation

On considère un cercle fixe O et un point fixe A extérieur. Une sécante variable BC à ce cercle passe par un point fixe J.
Démontrer que le cercle ABC passe par un second point fixe P.
restart;
Proc := proc(m)
local xA, yA, xB, yB, xC, yC, xJ, yJ, tx, dr, Oo, c1, r, eqBJ, eq1, sol;
_EnvHorizontalName := 'x'; _EnvVerticalName := 'y';
xJ := 5; yJ := 1; geometry:-point(A, 2, 4); geometry:-point(J, xJ, yJ); geometry:-point(Oo, 0, 0);
r := 3; c1 := plottools[geometry:-circle]([0, 0], r, color = blue);
eqBJ := y = m*(x - xJ) + yJ; geometry:-line(BJ, eqBJ, [x, y]);
eq1 := x^2 + y^2 = r^2; sol := solve({eqBJ, eq1}, {x, y}, explicit);
xB := subs(sol[1], x); yB := subs(sol[1], y);
geometry:-point(B, xB, yB); xC := subs(sol[2], x); yC := subs(sol[2], y);
geometry:-point(C, xC, yC); geometry:-circle(c2, [A, B, C]); geometry:-line(AB, [A, B]); geometry:-line(AC, [A, C]);
eqBJ := y = m*(x - xJ) + yJ; geometry:-line(BJ, eqBJ, [x, y]);
eq1 := x^2 + y^2 = r^2; sol := solve({eqBJ, eq1}, {x, y},explicit);
xB := subs(sol[1], x); yB := subs(sol[1], y); geometry:-point(B, xB, yB);
xC := subs(sol[2], x); yC := subs(sol[2], y); geometry:-point(C, xC, yC);
geometry:-circle(c2, [A, B, C]); geometry:-line(AB, [A, B]); geometry:-line(AC, [A, C]);
tx := plots:-textplot([[geometry:-coordinates(A)[], "A"], [geometry:-coordinates(B)[], "B"], [geometry:-coordinates(C)[], "C"], [geometry:-coordinates(J)[], "J"]], font = [times, bold, 16], align = [above, right]);
dr := geometry:-draw([AB(color = black), c2(color = magenta), A(color = blue, symbol = solidcircle, symbolsize = 16),
B(color = red, symbol = solidcircle, symbolsize = 16), C(color = red, symbol = solidcircle, symbolsize = 16),
J(color = red, symbol = solidcircle, symbolsize = 16)]); plots:-display([dr, c1, tx], axes = normal, view = [-5 .. 6, -4 .. 6], scaling = constrained);
end proc;
plots:-animate(Proc, [m], m = -0.9 .. 0.2*Pi, frames = 50);
Error, (in plots/animate) two lists or Vectors of numerical values expected
NULL;
I am trying to find out point P; Thank you for your help.