Пересечение прямой и круга

[CoGnaC]

Подскажите пожалуйста, как отследить пересечение прямой и круга?
Есть линия, и точки центра круга(p1,p2), как это сделать?
procedure Tenemy1.draw(laser1,laser2:boolean; p1,p2:integer);

 var
  a:integer;
  k,b:real;
 begin
   a:=random(getmaxx);
   k:=(a-1)/(1-getmaxx);
   b:=(y-1)/(getmaxx-1);
   Circle(0,0,ER2);
   if laser1 then
    begin
     line(0,0,getmaxx,a);
     if (4*sqr(k)*sqr(b)-4*(sqr(k)+1)*(sqr(b)-sqr(hr))<0) then {Hr - радиус круга }
      circle(getmaxx div 2,getmaxx div 2,40);
    end;
   Circle(getmaxx,0,ER2);
   if laser2 then
    line(getmaxx,0,0,random(getmaxx));
 end;

[Stilet]

Пройдись по всем точкам линии и определи попадает ли она в окружность.

[_Dmitry]

Можно математически найти точки пересечения прямой и окружности:
(x-x0)^2+(y-y0)^2=R^2 - окружность,
y=kx+b - прямая.
Решаем систему, получаем квадратное уравнение (2 корня - 2 координаты). Линия между этими координатами и проходит внутри круга.
Если система не имеет решений - линия и круг не пересекаются. Если корень один - линия касается круга.

[CoGnaC]

а как пройтись по линии? При каждом изменении переменных х и у нужно пересчитывать коэффицент к и b ? И сравнивать квадраты этих координат с квадратом радиуса?

[Stilet]

Один раз высчитай к и b а потом будеш получать Y
И сравнивай попадения точки в "радиус"

[CoGnaC]

_Dmitry, пробывал, но как-то не получилось С этого впринципе и начинал.
Stilet, у меня проблемы возникают с построение уравнения для прямой . Если точка первая (0,0) а вторая (getmaxx,a), то получается что b=0...Находил b и к из системы уравнений, составленных для двух точек.

[CoGnaC]

ай, сорри глупанул сильно))
то нормально что b=0, ща попробую сделать, потом отпишусь

[Plague]

_Dmitry прав
все сводится к решению квадратного уравнения вида:
a1*x^2 + b1*x + c1 = 0

где:
a1 = 1+k^2
b1 = -2*x0 + 2*k*b - 2*k*y0
c1 = b^2 + x0^2 - 2*b*y0 + y0^2 - R^2

[CoGnaC]

Спасибо всем, получилось как сказал Stilet(перебором всех точек). Если есть у кого свободное время, покажите пжл как математически можно это было сделать..