Показать сообщение отдельно
  #5  
Старый 11.10.2010, 23:54
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от Uniq!
lmikle, ты просто убил меня своим постом))))

И чем же я тебя убил?
Тем, что нарисовать несложно? Дык действительно не сложно.
Рассчитываешь координаты в абсолютном пространстве. Далее рассчитываешь коэф. масштабирования (просто деление). Ну а уж вызвать MoveTo и 3 раза LineTo вообще не представляет сложности.

Для расчета:
1. Для стороны a координаты бдут (0,0)-(a,0).
2. координаты одного из концов сторон b и c будут (0,0) и (a,0) соответсвенно
3. Для вычисления третьей координаты надо решить уравнение, описывающее окружности радиусов b и c относительно точки пересечения.
Ответить с цитированием