Рисование линии. Опции

[hudoghnik]

Всем привет!
Мне вот задали написать процедуру рисования линии с помощью оператора putpixel, вот ссылка на задание http://kikg.ifmo.ru/~igor/g102-141/lr201.htm. Так я вот не знаю как мне это правильно сделать, получилось у меня вот что:

program vosemuglov;
uses graph;
var x1,x2,y1,y2,k,c,r: real;
gd,gm:integer;
procedure Myline(x1,y1,x2,y2:real);

begin

if x1<x2 then
begin
k:=(y2-y1)/(x2-x1);
c:=(y1*x2-y2*x1)/(x2-x1);

repeat
putpixel(round(x1),round(k*x1+c),white);
x1:=x1+0.01
until x1>x2;
end
else
begin

k:=(y1-y2)/(x1-x2);
c:=(y2*x1-y1*x2)/(x1-x2);
repeat
putpixel(round(x2),round(k*x2+c),white);
x2:=x2+0.01
until x2>x1;
end;

end;

но там косяков дофига...


В следующий раз тему удалю. Догадываешься почему? Админ.

Сообщение отредактировано: Oleg_Z - 17.02.2005 17:18

[Altair]

для рисования линии используй алгоритм Брезенхейма.