Графіка!!!

[kykysya]

Привет всем!!Помогите нарисовать прямую паралельную другой, которая расположенная на заданном растоянии от другой.

[Google[Bot]]

| | Так пойдет? / / Еще вот так можно...

[kykysya]

Совсем не смешно!!!

[Google[Bot]]

я и не смеюсь - какой вопрос, такой ответ...
Поточнее скажите, что требуется? Как прямая задается, графика это или псевдографика?

[Kotofff]

подробнее ... иначе не помочь тебе

[kykysya]

Есть уравнение прямой которое рисует прямую по двум заданым точкам:

for i:=1 to 700 do
begin
y[i]:=round(((y1-y3)/(x1-x3))*(i-x3)+y3);
form2.Image1.Canvas.MoveTo(i-1,y[i]-1);
form2.Image1.Canvas.LineTo(i,y[i]); - это первая прямая.

нужно нарисовать прямую паралельную первой прямой на расстоянии, например 10 (должно быть между двумя прямыми).

[kykysya]

Извините Google[Bot] просто очень надо, не сдержалась!!!

[sim_84]

procedure TForm1.BitBtn1Click(Sender: TObject);
var i: Integer;
y: array[1..1000]of Integer;
y1,y3, x1, x3: Integer;
begin
for i:=1 to 700 do
begin
y[i]:=round(((y1-y3)/(x1-x3))*(i-x3)+y3);
form1.Image1.Canvas.MoveTo(i-1,y[i]-1);
form1.Image1.Canvas.LineTo(i,y[i]);
form1.Image1.Canvas.MoveTo(i-1+10,y[i]-1);
form1.Image1.Canvas.LineTo(i+10,y[i]);
end
end;

[kykysya]

Спасибочки!!!Сейчас вставлю в основной блок!!!

[Роман Радер]

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

Спасибочки!!!Сейчас вставлю в основной блок!!!

А лучше разберитесь что там написано и пропишите руками - имхо полезнее.