Создание диаграмм деятельности

Была создана диаграмма деятельности, которая представляет шаги рисования прямой линии (рисунок 3.2). В качестве алгоритма для изображения прямой линии используется алгоритм Брезэнхема.

Рисунок 3.2 – Диаграмма деятельности

Программный код, реализован по данному алгоритму, представлен на языке программирования Object Pascal:

Procedure Line(x1,y1,x2,y2:integer);

var dx,dy,i,sx,sy,check,e,x,y:integer;

begin

dx:=abs(x1-x2); // abs() повертає абсолютну величину числа

dy:=abs(y1-y2);

sx:=Sign(x2-x1); // Sign() - функція перевірки знаку

sy:=Sign(y2-y1);

x:=x1;

y:=y1;

check:=0;

if dy>dx then begin

dx:=dx+dy;

dy:=dx-dy;

dx:=dx-dy;

check:=1;

end;

e:= 2*dy - dx;

for i:=1 to dx do begin

image1.Canvas.Pixels[x,y]:=clBlack;

if e>=0 then begin

if check=1 then x:=x+sx else y:=y+sy;

e:=e-2*dx;

end;

if check=1 then y:=y+sy else x:=x+sx;

e:=e+2*dy;

end;

end;