Курсовая работа: Розробка гри Життя

for j:=0 to ver do

y_center[j]:=j*cell_height+cell_height div 2;

radius:=4;

end;

procedure display;

var

j,k:word;

procedure rule_plane;

var

j,k:word;

begin

setviewport(0,0,getmaxx,getmaxy,clipon);

setfillstyle(solidfill,blue);

bar(0,0,getmaxx,10);

setcolor(white);

outtext('Generation: ');

outtextxy(250,0,'Q: Quit');

outtextxy(450,0,'Any other key: renew');

str(gen_count,ss); outtext(ss);

setbkcolor(darkgray);

end;

begin

if gen_count<>0 then

next_generation;

inc(gen_count);

page:=1-page;

setactivepage(page);

cleardevice;

setcolor(yellow);