procedure box(x1m,y1m,x2m,y2m:real;l:boolean);
var x1,x2,y1,y2:integer;
begin
if l=true then
SetFillStyle(1,11)
else
setfillstyle(1,black);
x1:=integer(round(x1m));
x2:=integer(round(x2m));
y1:=integer(round(y1m));
y2:=integer(round(y2m));
bar(x1,y1,x2,y2);
end;
рисует квадратик елси l = true если l = false закрашиваем квадратик
а вот сама в процедура которую я немогу доделать ( ( (
procedure build(x1,y1,x2,y2:real);
begin
box(x1,y1,x2,y2,true);
box(x1,y1,x1+((x2-x1)/3),y1+((y2-y1)/3),false);
box(x2-((x2-x1)/3),y1,x2,y1+((y2-y1)/3),false);
box(x1,y2-((y2-y1)/3),x1+((x2-x1)/3),y2,false);
box(x2-((x2-x1)/3),y2-((y2-y1)/3),x2,y2,false);
box(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3),true);
box(x2-((x2-x1)/3),y1 -((y2-y1)/3),x2,y1,true);
box(x1,y2,x1 +((x2-x1)/3),y2+((y2-y1)/3),true);
box(x2,y2-((y2-y1)/3),x2+((x2-x1)/3),y2,true);
build(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3));
build(x2-((x2-x1)/3),y1 -((y2-y1)/3),x2,y1);
build(x1,y2,x1 +((x2-x1)/3),y2+((y2-y1)/3));
build(x2,y2-((y2-y1)/3),x2+((x2-x1)/3),y2);
end;
строки
build(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3));
build(x2-((x2-x1)/3),y1 -((y2-y1)/3),x2,y1);
build(x1,y2,x1 +((x2-x1)/3),y2+((y2-y1)/3));
build(x2,y2-((y2-y1)/3),x2+((x2-x1)/3),y2);
должны выполнятся все сразу
а на деле выполняется ток первая строка
build(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3));
кто нить подскажите решение проблемы .... мне нуна чтобы выполнялись 4 строки сразу а не ток первая