canvas под углом

← →
dar (2008-08-26 23:29) [0]

рисовку линии делаю так
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Pen.Style:=psSolid;
Canvas.MoveTo(10,20);
Canvas.LineTo(200,80);
но чтоб нарисовать линию под нужным углом приходиться пересчитывать координаты, а нет способа типа Canvas.MoveTo(10,20,25,100); где последнии цифры угол поворота линии и длинна ее?

← →
Deltas © (2008-08-27 01:47) [1]

Твоя задача называется перевести координаты полярной системы координат в координаты декартовой системы. Напиши соответсвующую процедуру, это не сложно.

Если конечно знаешь, что такое sin и cos.)

canvas под углом Найти похожие ветки