Методика підрахунку прямокутників різної форми

end;

{******************** Эффект переливающихся букв ****************}

procedure flash (x,y,x1,y1,bk,oc:integer);

var c,t,xps,yps,pixcolor:integer;

begin

t:=0;

repeat

t:=t+1;

if t=16 then t:=0;

if t=bk then t:=t+1;

c:=t;

for xps:=x to x1 do

begin

for yps:=y to y1 do if getpixel (xps,yps) <>bk then putpixel (xps,yps,c);

c:=c+1;

if c=16 then c:=0;

if c=bk then c:=c+1;

end;

until keypressed;

for xps:=x to x1 do

begin

for yps:=y to y1 do

begin

pixcolor:=getpixel (xps,yps);

if pixcolor <>bk then putpixel (xps,yps,oc)