"протягивание" линии от выбранной точки Опции

[andriano]

Зачем еще раз что-то УЗНАВАТЬ, что и так ЗНАЕШЬ?

[blackhard]

Ну вот основную часть я сделал теперь все рисуется.Теперь вопрос в том как правильно сделать это "с возможностью обозначения точек и проведения стандартных линий в треугольнике." по формулировки понятно что сделать это нужно только для треугольников.Так вот как распознать что нарисовано треугольник или нет.Я решил сделать так , для каждой новой линии сохранять ее координаты

trel=record
  x1,y1,x2,y2:integer;
  end;

var
  tr:array [0..100]of trel;

массив записей для 4х координат линий.Так вот как потом эти данные проанализировать?

[andriano]

Наверное, надо анализировать не потом, а сразу.
Собственно, и анализа особого не нужно: хранить лучше не отдельными линиями, а полигонами. У тебя же линию можно прерывать. Вот участок, который ты рисуешь без перерывов - будет ломаной. А если конечная точка ломаной совпадает (с заданной погрешностью) с ее началом - то будет полигон. Если полигон состоит из трех сегментов - это треугольник.

[blackhard]

Вопрос конечно не совсем по Delphi, но по задаче.Может кто знает как выразить координаты высоты и биссектрисы. Если известны координаты всех вершин треугольника?

[andriano]

Честно говоря, не совсем понятно, что в денном контексте означает слово "знает".
Любая формула выводится, неужели кто-то их специально запоминает?

[blackhard]

И всетаки может ктонибудь поможет вывести формулу для нахождения координат основания высоты.У меня никак не выходит.Вот че у меня получилось:

Код

k1=(Yb-Yc)/(Xb-Xc)
K2=(Xc-Xb)/(Yb-Yc)
X=(-k2*Xa+Ya-((Xb*Yc-Xc*Yb)/(Xb-Xc)))/(K1-K2)
Y=k1*X+(Xb*Yc-XcYb)/(Xb-Xc)

это координаты основания высоты проведенной из точки А.
Вот уравнение высоты:

Код

Y=k2*X-k2*Xa+Ya

Высота проводится но она либо не достает до основания либо пересекает его и идет дальше.

[andriano]

Очевидно, точка, до которой идет высота, должна лежать на одной прямой с точками противолежащей стороны. Т.е. удовлетворять тому же уравнению прямой, что и они.

[#$# PaVeL #$#]

Хотел бы посоветовать использовать TPaintBox, a HE TImage, решение связанно с тем, что TImage делает кучу всяких ненужных перерисовок, А TPaintBox рисует только то, что ему сказали...