Форум: "Media";
Текущий архив: 2011.01.02;
Скачать: [xml.tar.bz2];
ВнизНаходится ли точка в полигоне 2D? Найти похожие ветки
← →
Moroz4 (2008-04-22 15:16) [0]как узнать находится ли точка в полигоне 2D?
← →
DVM © (2008-04-22 15:27) [1]PtInRegion + CreatePolygonRgn
← →
MBo © (2008-04-22 15:38) [2]http://local.wasp.uwa.edu.au/~pbourke/geometry/insidepoly/
http://tog.acm.org/editors/erich/ptinpoly/
http://en.wikipedia.org/wiki/Point_in_polygon
← →
DVM © (2008-04-22 15:42) [3]
function PtInPolygon(const Points: TPoints; P: TPoint): Boolean;
var
Cnt, I, J: Integer;
begin
Result := False;
Cnt := Length(Points);
J := Cnt - 1;
for I := 0 to Cnt - 1 do
begin
if ((Points[I].y <= P.y) and (P.y < Points[J].y)) or
((Points[J].y <= P.y) and (P.y < Points[I].y)) then
begin
if (P.x < (Points[J].x - Points[I].x) * (P.y - Points[I].y) /
(Points[J].y - Points[I].y) + Points[I].x) then
Result := not Result;
end;
J := I;
end;
end;
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2011.01.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c