Построение прямых

[Aleksandr]

У меня возникло небольшое затруднение. Если кто сможет то пожалуйста помогите. Проблема вот в чем. Я пишу программу для туристов "Электронная карта" (т.е. в PaintBox загоняется рисунок карты или создается сам так как имеются условные обозначения , карандаш и т.д. имеются поля ввода расстояния, времени и азимута). И программа должна прорисовать весь маршрут который я ввожу.
За начало я выбираю точку. Задача вот в чем координаты конечной точки должны быть начальными координатами для следующих прямых.
вот часть кода (здесь вводятся x , у и угол а)
var
x:integer; // аргумент функции
y:integer ; // значение функции в точке x
a:integer;
x0:integer; // аргумент функции
y0:integer;
begin
with MainForm.Canvas do
begin
x0:=StrtoInt(MainForm.Edit1.Text);
y0:=StrtoInt(MainForm.Edit2.Text);
a:=StrtoInt(MainForm.Edit3.Text);
x:=x0*(a);
y:=y0*(a);

MoveTo(300+x,y-a);LineTo(x,y);

[Jeni]

Как-то не совсем понятно, а что, собственно, не получается? Нужно рассчитать координады или запомнить последние координаты?

[Aleksandr]

Нужно сделать так чтобы конечные координаты первой прямой были начальными координатами второй прямой и т.д.

[Jeni]

Тогда завести две глобальные переменные (или поля класса). После того, как рассчитаны все координаты, записать что-то вроде этого:
MoveTo(BegX, BegY);
LineTo(X, Y);
BegX := X;
BegY := Y;

Сами BegX и BegY инициализировать в начале работы (например = -1) и в обработчике нажатия кнопки мыши
if (BegX = -1) or (BegY := -1) then
begin
BegX := X;
BegY := Y;
end;

Может быть я чего-то не понял.

[Aleksandr]

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

[mutabor]

Ты когда указываешь параметры в LineTo, ты же указываешь начальную и конечную точки. А раз указываешь конечную, значит она тебе известна. Что же тебе надо найти?

Вернее конечную, начальную указываешь в MoveTo. Заменить MoveTo можно присваивая значение свойству PenPos.

[Aleksandr]

Я немножко торможу . Не понял что мне сделать? Если можно дай код.

[Сильванович Михаил]

Когда ты строишь прямую по этим данным ты используешь MoveTo(x0,y0: integer) и LineTo(x,y: integer)
Это означает, что координаты обоих концов отрезка (x0;y0)-(x;y) тебе известны.
т.е. MoveTo(x,y) - будет началом (по твоему коду) следующего отрезка,
концом того, что ты отрисовал.

[Aleksandr]

Да так но как это сделать вот в чем вопрос.

[Still_Learn]

Вроде уже все объяснили, что не понятно... Давай на пальцах: представь, что ты держишь карандаш. Команда MoveTo - это тоже самое, что ты передвигаешь руку в воздухе. Команда LineTo - ведешь карандашом по бумаге. В LineTo передаются координаты только одной точки, значит линия начинается оттуда, где в момент вызова LineTo находился карандаш. Получается, MoveTo сдвинула "руку с карандашом" в определенную точку, а несколько подряд идущих команд LineTo - рисуют линии "не отрывая руки". Получается, что для 2-ой команды LineTo начальной точкой является конечная точка 1-ой команды LineTo... Ну, вроде проще некуда объяснить