Форум: "Потрепаться";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

... а при нем задача...   Найти похожие ветки 

← →
Юрий Зотов   (2001-12-24 17:49) [14]

Ребра, векторы, произведения какие-то... Не знаю такого :о)

type
TTriangle: array[0..2] of TPoint;

function PointInTriangle(T: TTriangle; P: TPoint): boolean;
var
R: HRGN;
begin
R := CreatePolygonRgn(@T, 3, ALTERNATE);
Result := PtInRegion(R, P.X, P.Y);
DeleteObject(R)
end;

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.023 c