Domek – wersja numer 2

program domek;
uses crt,graph;
var driver,mode:integer;
procedure pudelko;
var x,y:integer;
begin
	setcolor(8);
 	x:=-200;
 	y:=-200;
 	repeat
 	delay(10);
 	cleardevice;
 	x:=x+5;
 	y:=round(((34/42)*x)-(1600/42));
 	rectangle(x,y,x+200,y+200);
 	until x=220;
end;
procedure okno_lewe;
var x,y:integer;
begin
 	setcolor(8);
 	x:=-50;
 	y:=530;
 	repeat
 	delay(10);
 	cleardevice;
 	x:=x+5;
 	y:=round(((-37/28)*x)+(12990/28));
 	rectangle(x,y,x+50,y+50);
 	rectangle(220,140,420,340);
 	until x=230;
end;
procedure okno_prawe;
var x,y:integer;
begin
 	setcolor(8);
 	x:=640;
 	y:=530;
 	repeat
 	delay(10);
 	cleardevice;
 	x:=x-5;
 	y:=round(((37/28)*x)-(8840/28));
 	rectangle(x,y,x+50,y+50);
 	rectangle(220,140,420,340);
 	rectangle(230,160,280,210);
 	until x=360;
end;
procedure drzwi;
var x,y:integer;
begin	
	setcolor(8);
 	x:=280;
 	y:=530;
 	repeat
 	delay(10);
 	cleardevice;
 	y:=y-5;
 	rectangle(x,y,x+80,y+100);
 	rectangle(220,140,420,340);
 	rectangle(230,160,280,210);
 	rectangle(360,160,410,210);
 	until y=240;
end;
procedure dach;
var x,y:integer;
begin
 	setcolor(8);
 	x:=220;
 	y:=-40;
 	repeat
 	delay(10);
 	cleardevice;
 	y:=y+5;
 	line(x,y,x+200,y);
 	line(x,y,x+100,y-40);
 	line(x+100,y-40,x+200,y);
 	rectangle(220,140,420,340);
 	rectangle(230,160,280,210);
 	rectangle(360,160,410,210);
 	rectangle(280,240,360,340);
 	until y=140;
end;
procedure zamalowanie;
begin
 	setfillstyle(1,10);
 	floodfill(225,145,8);
 	setfillstyle(1,9);
 	floodfill(235,165,8);
 	floodfill(365,165,8);
 	setfillstyle(1,6);
 	floodfill(285,245,8);
 	setfillstyle(1,4);
 	floodfill(320,130,8);
end;
begin
 	driver:=vga;
 	mode:=vgahi;
 	initgraph(driver,mode,'c:\Progra~1\TP\BGI');
 	pudelko;
 	okno_lewe;
 	okno_prawe;
 	drzwi;
 	dach;
 	zamalowanie;
 	readkey;
 	closegraph;
end.