Рисование стрелки

[PANDA8]

Не могу никак по этой статье http://habrahabr.ru/post/105882/ написать код для рисования стрелки с наконечником. Помогите, плиз)

[challengerr]

Если заданы две точки (x1, y1) и (x2, y2)
то пряма проходящая через эти две точки находится как определитель

x y 1
x1 y1 1
x2 y2 1

то есть x* (y1-y2) - y* (x1 - x2) + (x1*y2 - x2*y1) = 0;

Если прямая найдена в виде Ax+By+C = 0
то перпендикуляр будет иметь вид -Bx + Ay

Подставляя координаты точки находится C прямой проходящей через эту точку.

На каком языке вы это делаете?

[PANDA8]

Саму прямую я нарисовать то могу, не получается найти координаты наконечника в зависимости от наклона прямой. Язык не важен, мне бы формулы для координат наконечника стрелки)

[Smitt&Wesson]

Сообщение от PANDA8

Саму прямую я нарисовать то могу, не получается найти координаты наконечника в зависимости от наклона прямой. Язык не важен, мне бы формулы для координат наконечника стрелки)

Если стрелка находится на конце прямой, то её координаты извесны. Для поворота стрелки, нужно перейти из Декартовой системы в полярную. Остриё стрелки, будет центром системы. Расчитываем поворот. Подробнее, можно посмотреть здесь.

[Аватар]

В общем-то уравнение прямой из школьной геометрии

var x1,y1,x2,y2,xLen: Integer;
    xCorner,xCorner1: Extended;
...
  x1:=200; y1:=200;
  x2:=450; y2:=250;
  xLen:=10;  //длина стрелки
  xCorner:=pi/9; //20 градусов - относительный поворот стрелки
  Canvas.MoveTo(x1,y1);
  Canvas.LineTo(x2,y2);
  xCorner1:=ArcTan2(y2-y1,x2-x1);  //x2<>x1 !!!
  Canvas.LineTo(Round(x2-xLen*cos(xCorner1+xCorner)),Round(y2-xLen*sin(xCorner1+xCorner)));
  Canvas.MoveTo(x2,y2);
  Canvas.LineTo(Round(x2-xLen*cos(xCorner1-xCorner)),Round(y2-xLen*sin(xCorner1-xCorner)));

[PANDA8]

Да мне бы надо именно сделать так как предлагается в статье на хабре

[Iron Monk]

Сообщение от PANDA8

Да мне бы надо именно сделать так как предлагается в статье на хабре

Так никто не против - геометрия, 7 класс. Читай, пожалуйста. Будут вопросы - спрашивай.

[Аватар]

Если с векторной алгеброй нет проблем, то там на пять минут делов. Если есть, то больше - как минимум на несколько месяцев, что бы освоить её родимую. Может и меньше , то функция от способностей к освоению нового материала

[PANDA8]

Я просто забыл уже всю эту алгебру (давно дело было) и сейчас что то никак не доходит а надо срочно.

[Iron Monk]

Сообщение от PANDA8

Я просто забыл уже всю эту алгебру (давно дело было) и сейчас что то никак не доходит а надо срочно.

Если алгеброй геометрию решите - следующий шаг Нобелевка. У нас давнее. Поверьте.