Приложение 2 Процедура для определения цвета при картировании

Передаваемый параметр: N – номер цвета по таблице П.3. N=1,…,1276.

При N=0 – получаем белый цвет.

r1,g1,b1 – возвращаемые параметры – компоненты R G B.

procedure GetColor(N:integer;var r1,g1,b1:byte);

var i:integer; r,g,b:byte;

begin

if N=0 then

begin

r:=255;

g:=255;

b:=255;

end else

begin

r:=255;

g:=0;

b:=0;

end;

for i:=1 to N do

begin

if (r=255)and(g<>255) then inc(g) else

if (g=255)and(r<>0) then dec(r) else

if (r=0)and(b<>255)and(g<>0) then inc(b) else

if (g<>0) then dec (g) else

if (b<>0) then dec(b);

end;

r1:=r;

g1:=g;

b1:=b;

end;

Учебное издание

Визуализация медико-биологической информации на примере электрокардиограмм

Методические указания

к выполнению расчетно-графической работы

Составитель

ХАФИЗОВ Динар Гафиятуллович

Редактор

Л.С. Емельянова

Подписано в печать _______. Формат 60x84 1/16

Бумага офсетная. Печать офсетная

Усл. п. л. 1,5. Уч.-изд. л. 1,1. Тираж 50 экз.

Заказ №

Марийский государственный технический университет

424000 Йошкар-Ола, пл. Ленина, 3

Редакционно-издательский центр

Марийского государственного технического университета

424006 Йошкар-Ола, ул. Панфилова, 17

25