[Pascal] Pакрасить треугольник, если он построен следущим образом

[midletarket]

"Закрасить"
x:=GetMaxX; y:=GetMaxY;
Line((x div 2)+X1, (y div 2)-Y1;(x div 2)+X2, (y div 2)-Y2);
Line((x div 2)+X2, (y div 2)-Y2;(x div 2)+X3, (y div 2)-Y3);
Line((x div 2)+X3, (y div 2)-Y3;(x div 2)+X1, (y div 2)-Y1);

Знаю, что FloodFill, но не могу правильно выбрать точку внутри треугольника

[ROMA2PVT]

есть такая процедурка Putpixel.Поставь точку и дальше двигай её в треугольник.Как попадёшь замени на floodfill с координатами из Putpixel

[midletarket]

А как узнать, попал ли я в треугольник?

[ROMA2PVT]

ну так точка же отображается и ты увидишь.

[midletarket]

не так, мне нужно чтобы я не подбирал точки, а она сразу опадала туда, и потом я закрашиваю треугольник. Как это реализовать?

[ROMA2PVT]

я тебе объясняю.Pupixel'ем попади в этот треуголник (например putpixel(100,100,5)) и дальше когда увидишь что точка в треугольника замени putpixel(100,100,5) на floodfill(100,100,5)

[Mad_Cat]

ищи центр вписанной окружности)
как??? читать тут

[midletarket]

Самое интересное, что координаты у меня все:
x:=GetMaxX;
y:=GetMaxY;
X1:=(x div 2)+X1
Y1:=(y div 2)-Y1;
Вот и путаюсь, может как-то по-другому можно. Мол координаты точки в треугольнике (X3-X1, Y2-Y1)

[ROMA2PVT]

http://www.pascal.helpov.net/index/p...cs_programming