Точка в N-многоугольнике

[Alex Cones]

Такая ситуация - есть многоугольник, заданный массивом точек (X1, Y1, X2, Y2, ... , XN, YN) И есть целевая точка XT, YT.

Есть ли способ узнать, находится ли точка внутри многоугольника, если считать, что он выпуклый?

[russian-stalker]

Оно?

[Alex Cones]

Да оно, вот только в сях я не ахти. Давно пора наать учить, но как-то передергивает от этой мысли. Не подмогнете перевести?

int pnpoly(int npol, float * xp, float * yp, float x, float y)
 {
   int c = 0;
   for (int i = 0, j = npol - 1; i < npol; j = i++) 
   {
     if ((((yp[i]<=y) && (y<yp[j])) || ((yp[j]<=y) && (y<yp[i]))) &&
       (x > (xp[j] - xp[i]) * (y - yp[i]) / (yp[j] - yp[i]) + xp[i]))
         c = !c;
   }
   return c;
 }

[russian-stalker]

Примерно так, хотя в делфи можно `прочитать` размер массива прямо в функции, но, думаю, вы сами сможете оптимизировать функцию под себя:

function pnpoly(npol:integer; xp:array of real; yp:array of real; x:real; y:real):boolean;
var
 i,j:integer;
 c:boolean;
begin
   c:=false;
   i := 0;
   j:= npol -1;
   while (i<npol) do
   begin
     if ((((yp[i]<=y) and (y<yp[j])) or ((yp[j]<=y) and (y<yp[i]))) and
       (x > (xp[j] - xp[i]) * (y - yp[i]) / (yp[j] - yp[i]) + xp[i])) then
         c := not c;
     j:= i;
     inc(i);
   end;
   pnpoly := c;
end;

[Alex Cones]

Спасибо, как будет время, проверю, сейчас занят немного.