Реализации алгоритмов/Задача о принадлежности точки многоугольнику: различия между версиями

Содержимое удалено Содержимое добавлено
м оформление (нужно дооформить)
Строка 147:
for i:=0 to npol do
begin
if ((((myP[i].y<=y) and (y<myP[j].y)) or ((myP[j].y<=y) and (y<myP[i].y))) and
(x>(myP[j].x-myP[i].x)*(y-myP[i].y) / (myP[j].y-myP[i].y)+myP[i].x))
then inPoly:=not inPoly;