Читать курсовая по информатике, вычислительной технике, телекоммуникациям: "Графика в Турбо Паскале" Страница 5

(Назад) (Cкачать работу)

Line(40,130,40,140);

Line(55,130,55,140);

Line(40,140,55,140);

SetFillStyle(1,14);

FloodFill(45,135,1);

Line(70,130,85,130);

Line(70,130,70,140);

Line(85,130,85,140);

Line(70,140,85,140);

SetFillStyle(1,14);

FloodFill(75,135,1);

Line(0,60,40,60);

Line(40,60,40,100);

SetFillStyle(1,5);

FloodFill(5,65,1);

Line(5,70,15,70);

Line(5,70,5,80);

line(15,70,15,80);

Line(5,80,15,80);

SetfillStyle(1,14);

FloodFill(10,75,1);

Line(25,70,35,70);

Line(35,70,35,80);

Line(25,70,25,80);

Line(25,80,35,80);

SetFillStyle(1,14);

FloodFill(30,75,1);

Line(0,15,55,15);

Line(55,15,55,100);

SetFillStyle(1,6);

FloodFill(10,20,1);

Line(5,40,15,40);

Line(5,40,5,55);

Line(15,40,15,55);

Line(5,55,15,55);

SetFillStyle(1,14);

FloodFill(10,45,1);

Line(25,40,35,40);

Line(25,40,25,55);

Line(35,40,35,55);

Line(25,55,35,55);

SetFillStyle(9,8);

FloodFill(30,45,1);

Line(45,40,55,40);

Line(45,40,45,55);

Line(55,40,55,55);

Line(45,55,55,55);

SetFillStyle(1,14);

FloodFill(50,45,1);

Line(60,45,70,45);

Line(60,45,60,60);

Line(70,45,70,60);

Line(60,60,70,60);

Setfillstyle(1,14);

Floodfill(65,50,1);

Line(90,45,100,45);

Line(90,45,90,60);

Line(100,45,100,60);

Line(90,60,100,60);

SetFillstyle(1,14);

FloodFill(95,50,1);

Line(90,80,90,90);

Line(90,90,105,90);

Line(105,80,105,90);

Line(90,80,105,80);

SetFillStyle(1,14);

FloodFill(95,85,1);

line(70,80,70,90);

line(70,80,55,80);

Line(55,80,55,90);

Line(55,90,70,90);

SetFillStyle(9,8);

FloodFill(59,85,1);

Line(120,90,120,110);

Line(120,110,135,110);

Line(135,110,135,90);

Line(120,90,135,90);

SetFillStyle(1,14);

FloodFill(125,95,1);

Rectangle(155,90,170,110);

SetFillStyle(1,14);

FloodFill(165,95,1);

Rectangle(190,60,200,70);

SetFillStyle(1,14);

FloodFill(195,65,1);

Rectangle(210,60,220,70);

SetFillStyle(1,14);

FloodFill(215,65,1);

Rectangle (230,60,240,70);

SetFillStyle(1,14);

FloodFill(235,65,1);

Rectangle(190,80,200,90);

SetFillStyle(1,14);

FloodFill(195,85,1);

Rectangle(210,80,220,90);

SetFillStyle(1,14);

FloodFill(215,85,1);

Rectangle(230,80,240,90);

SetFillStyle(1,14);

FloodFill(235,85,1);

Rectangle(205,30,230,35);

SetFillStyle(1,14);

FloodFill(210,32,1);

Rectangle(240,30,255,35);

SetFillStyle(9,8);

FloodFill(245,32,1);

Rectangle(265,30,290,35);

SetFillStyle(1,14);

FloodFill(270,32,1);

Rectangle(300,30,325,35);

SetFillStyle(1,14);

FloodFill(310,32,1);

Rectangle(265,40,290,45);

SetFillStyle(1,14);

FloodFill(270,42,1);

Rectangle(300,40,325,45);

SetFillStyle(9,8);

FloodFill(310,42,1);

Rectangle(265,50,290,55);

SetFillStyle(1,14);

FloodFill(270,52,1);

Rectangle(300,50,325,55);

SetFillStyle(1,14);

FloodFill(310,52,1);

Rectangle(300,60,325,65);

SetFillStyle(1,14);

FloodFill(310,62,1);

Rectangle(265,60,290,65);

SetFillStyle(1,14);

FloodFill(270,62,1);

Rectangle(360,50,365,55);

SetFillStyle(9,8);

FloodFill(362,52,1);

Rectangle(360,40,365,45);

SetFillStyle(1,14);

FloodFill(362,42,1);

Rectangle(370,45,375,40);

SetFillStyle(1,14);

FloodFill(372,42,1);

Rectangle(360,30,365,35);

SetFillStyle(1,14);

FloodFill(362,31,1);

Rectangle(370,30,375,35);

SetFillStyle(1,14);

FloodFill(372,32,1);

Rectangle(390,25,395,30);

SetFillStyle(9,8);

FloodFill(392,28,1);

Rectangle(390,15,395,20);

SetFillStyle(1,14);

FloodFill(392,17,1);

Rectangle(375,15,380,20);

SetFillStyle(1,14);

FloodFill(378,17,1);

Rectangle(405,30,410,35);

SetFillStyle(1,14);

FloodFill(407,32,1);

Rectangle(415,30,420,35);

SetFillStyle(1,14);

FloodFill(418,32,1);

Rectangle(405,20,410,25);

SetFillStyle(9,8);

FloodFill(408,22,1);

Rectangle(415,20,420,25);

SetFillStyle(1,14);

FloodFill(418,22,1);

Rectangle(435,10,450,15);

SetFillStyle(1,14);

FloodFill(445,12,1);

Rectangle(435,20,450,25);

SetFillStyle(1,14);

FloodFill(440,22,1);

Line(55,30,110,30);

Line(110,30,110,150);

SetFillStyle(1,9);

FloodFill(60,35,1);

Line(75,10,125,10);

Line(125,10,125,72);

Line(75,10,75,32);

SetFillStyle(1,11);

FloodFill(110,25,1);

Line(110,70,180,70);

Line(180,70,180,125);

SetFillStyle(1,13);

FloodFill(125,85,1);

Line(180,55,250,55);

Line(180,55,180,70);

Line(250,55,250,100);

SetFillStyle(1,6);

FloodFill(185,65,1);

Line(165,70,165,15);

line(165,15,350,15);

Line(350,15,350,62);

SetFillStyle(1,12);

FloodFill(205,65,1);

Line(300,10,300,15);

Line(300,10,335,10);

Line(335,10,335,15);

SetFillStyle(1,10);

FloodFill(325,12,1);

Line(350,25,380,25);

Line(380,25,380,52);

SetFillStyle(1,4);

FloodFill(370,26,1);

Line(370,10,370,25);

Line(370,10,400,10);

Line(400,10,400,45);

Похожие работы