Изображение с движущимися объектами - Отчет по практике

Листинг программы uses crt, graph; var gd,gm:integer; Procedure Dom; Begin SetFillStyle(2,6); {Steni doma} Bar(200, 200, 400, 300); SetFillStyle(3,6); {Dver} Bar(320, 220, 370, 300); SetColor(8); {Risyem ruchky ot dveri} SetLineStyle(0,0,3); Circle(325,255,2); SetFillStyle(4,6); {Okno v dome} Bar(220, 220, 260, 260); SetColor(15); Line(220, 240, 260, 240); Line(240, 220, 240,260); SetLineStyle(0,0,0); SetColor(7); {Krisha} SetFillStyle(5,7); MoveTo(200,200); LineTo(300,120); LineTo(400,200); LineTo(200,200); FloodFill(300,199,7); SetColor(7); {Okoshko na krishe} SetLineStyle(0,0,3); circle(300, 160, 20); SetColor(15); line(300, 140, 300, 180); line(280, 160, 320, 160); SetLineStyle(0,0,0); SetColor(4); {Risuem tryby} SetFillStyle(6,4); MoveTo(215,155); LineTo(215,187); LineTo(240,167); LineTo(240,155); LineTo(215,155); FloodFill(225,170,4); End; Procedure Zabor; var Metka1,Metka2:integer; Zabor_R_x1,Zabor_R_y1,Zabor_R_x2,Zabor_R_y2:integer; Zalivka_R_T1_1,Zalivka_R_T1_2,Zalivka_R_T2_1,Zalivka_R_T2_2,Zalivka_R_T3_1,Zalivka_R_T3_2,Zalivka_L_1,Zalivka_L_2:integer; Zabor_L1_x1,Zabor_L1_y1,Zabor_L1_x2,Zabor_L1_y2:integer; Zabor_L2_x1,Zabor_L2_y1,Zabor_L2_x2,Zabor_L2_y2:integer; Begin Zabor_R_x1:=1; Zabor_R_x2:=10; Zabor_R_y1:=260; Zabor_R_y2:=300; Zalivka_R_T1_1:=2; Zalivka_R_T1_2:=261; Zalivka_R_T2_1:=2; Zalivka_R_T2_2:=275; Zalivka_R_T3_1:=2; Zalivka_R_T3_2:=299; Zabor_L1_x1:=1; Zabor_L1_x2:=5; Zabor_L1_y1:=260; Zabor_L1_y2:=250; Zabor_L2_x1:=5; Zabor_L2_x2:=10; Zabor_L2_y1:=250; Zabor_L2_y2:=260; Zalivka_L_1:=2; Zalivka_L_2:=259; Rectangle(0, 265, 199, 270); FloodFill(1,266,15); Rectangle(0, 285, 199, 290); FloodFill(1,286,15); For Metka1:=1 to 13 do Begin SetColor(15); Rectangle(Zabor_R_x1,Zabor_R_y1,Zabor_R_x2,Zabor_R_y2); Zabor_R_x1:=Zabor_R_x1 15; Zabor_R_x2:=Zabor_R_x2 15; FloodFill(Zalivka_R_T1_1,Zalivka_R_T1_2,15); FloodFill(Zalivka_R_T2_1,Zalivka_R_T2_2,15); FloodFill(Zalivka_R_T3_1,Zalivka_R_T3_2,15); Zalivka_R_T1_1:=Zalivka_R_T1_1 15; Zalivka_R_T2_1:=Zalivka_R_T2_1 15; Zalivka_R_T3_1:=Zalivka_R_T3_1 15; Line(Zabor_L1_x1,Zabor_L1_y1,Zabor_L1_x2,Zabor_L1_y2); Line(Zabor_L2_x1,Zabor_L2_y1,Zabor_L2_x2,Zabor_L2_y2); Zabor_L1_x1:=Zabor_L1_x1 15; Zabor_L1_x2:=Zabor_L1_x2 15; Zabor_L2_x1:=Zabor_L1_x1 5; Zabor_L2_x2:=Zabor_L1_x2 5; FloodFill(Zalivka_L_1,Zalivka_L_2,15); Zalivka_L_1:=Zalivka_L_1 15; End; Zabor_R_x1:=410; Zabor_R_x2:=420; Zalivka_R_T1_1:=411; Zalivka_R_T2_1:=411; Zalivka_R_T3_1:=411; Zabor_L1_x1:=410; Zabor_L1_x2:=415; Zabor_L2_x1:=415; Zabor_L2_x2:=420; Zalivka_L_1:=411; Rectangle(401, 265, 650, 270); FloodFill(402,266,15); Rectangle(401, 285, 650, 290); FloodFill(402,286,15); For Metka2:=1 to 16 do Begin SetColor(15); Rectangle(Zabor_R_x1,Zabor_R_y1,Zabor_R_x2,Zabor_R_y2); Zabor_R_x1:=Zabor_R_x1 15; Zabor_R_x2:=Zabor_R_x2 15; FloodFill (Zalivka_R_T1_1,Zalivka_R_T1_2,15); FloodFill (Zalivka_R_T2_1,Zalivka_R_T2_2,15); FloodFill (Zalivka_R_T3_1,Zalivka_R_T3_2,15); Zalivka_R_T1_1:=Zalivka_R_T1_1 15; Zalivka_R_T2_1:=Zalivka_R_T2_1 15; Zalivka_R_T3_1:=Zalivka_R_T3_1 15; Line (Zabor_L1_x1,Zabor_L1_y1,Zabor_L1_x2,Zabor_L1_y2); Line (Zabor_L2_x1,Zabor_L2_y1,Zabor_L2_x2,Zabor_L2_y2); Zabor_L1_x1:=Zabor_L1_x1 15; Zabor_L1_x2:=Zabor_L1_x2 15; Zabor_L2_x1:=Zabor_L1_x1 5; Zabor_L2_x2:=Zabor_L1_x2 5; FloodFill (Zalivka_L_1,Zalivka_L_2,15); Zalivka_L_1:=Zalivka_L_1 15; End; End; Procedure Derevo; Var i,x0,y0:integer; Begin setcolor(6); rectangle (495,250,515,299); setfillstyle (1,6); floodfill (496,251,6); setfillstyle (1,2); fillellipse(500,200,80,65); i:=0; setfillstyle(1,12); repeat inc(i); x0:=random(160) 420; y0:=random(130) 130; if Getpixel(x0,y0)=2 then fillellipse(x0,y0,5,5); until i=50; End; Procedure Luzhaika; Begin SetColor(2); SetFillStyle(1,2); Rectangle(0, 300, 650, 410); FloodFill(2,301, 2); SetColor(15); {Grip} SetFillStyle(1,15); Ellipse(485,310,0,360,2,5); FloodFill(486,311,15); SetColor(6); SetFillStyle(1,6); Ellipse(485,305,0,360,6,2); FloodFill(485,305,6); SetColor(15); {Grip} SetFillStyle(1,15); Ellipse(510,301,0,360,2,5); FloodFill(511,302,15); SetColor(7); SetFillStyle(1,7); Ellipse(510,296,0,360,6,2); FloodFill(510,296,7); SetColor(15); {Grip} SetFillStyle(1,15); Ellipse(515,305,0,360,2,5); FloodFill(515,305,15); SetColor(6); SetFillStyle(1,6); Ellipse(515,300,0,360,6,2); FloodFill(515,300,6); SetColor(15); {Grip} SetFillStyle(1,15); Ellipse(495,300,0,360,2,5); FloodFill(495,300,15); SetColor(4); SetFillStyle(1,4); Ellipse(495,295,0,360,6,2); FloodFill(495,295,4); End; Procedure Doroga; var Metka:integer; Tochka_x1,Tochka_x2,Tochka_y1,Tochka_y2:integer; Zakraska_x,Zakraska_y:integer; Begin SetColor(8); SetFillStyle(1,8); Rectangle(0, 410, 650, 500); FloodFill(1,450,8); SetColor(15); SetFillStyle(7,15); Tochka_x1:=1; Tochka_x2:=40; Tochka_y1:=445; Tochka_y2:=448; Zakraska_x:=2; Zakraska_y:=446; For Metka:=1 to 13 do Begin Rectangle(Tochka_x1,Tochka_y1,Tochka_x2,Tochka_y2); Tochka_x1:=Tochka_x1 50; Tochka_x2:=Tochka_x2 50; FloodFill(Zakraska_x,Zakraska_y,15); Zakraska_x:=Zakraska_x 50