Графика в Турбо Паскале — страница 6

  • Просмотров 3037
  • Скачиваний 278
  • Размер файла 22
    Кб

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); SetFillStyle(1,15); FloodFill(386,29,1); Line(400,15,430,15); Line(430,15,430,34); SetFillStyle(1,9); FloodFill(425,25,1); Line(415,15,415,5); Line(415,5,470,5); Line(470,5,470,19); SetFillStyle(1,6); FloodFill(425,8,1); Line(470,2,485,2); Line(470,2,470,5); Line(485,2,485,12); SetFillStyle(1,10); FloodFill(478,4,1); Line(290,360,290,210); Line(290,212,410,120); Line(290,300,410,170); Line(410,120,410,170); SetFillstyle(1,3);

FloodFill(300,250,1); SetfillStyle(1,3); FloodFill(291,298,1); Line(400,300,440,170); Ellipse(425,194,55,120,27,28); Ellipse(345,376,53,125,95,95); Line(400,300,400,360); Ellipse(345,375,12,158,58,58 ); SetFillStyle(1,9); FloodFill(295,310,1); Line(440,170,440,200); Ellipse(430,210,36,87,15,15); SetFillStyle(1,9); FloodFill(438,180,1); SetFillStyle(1,3); FloodFill(420,180,1); Line(0,290,60,260); Line(100,240,150,215); Line(200,190,260,160); Line(290,148,333,128); Line(370,100,400,85); Line(420,73,440,63); Line(470,45,490,35); SetFillStyle(10,15); FloodFill(400,2,1); Line(280,112,330,90); Ellipse(335,110,350,100,20,20); ellipse(294,150,110,150,40,40); line(355,115,350,120); circle(342,125,10); SetFillStyle(9,8); FloodFill(342,125,1); Line(260,130,240,140); Line(260,130,280,130);