Авторская разработка проекта на тему "Графика в Паскале"

•              Program Slon;

•              uses GraphABC;

•              begin SetWindowWidth(620);

•              SetWindowHeight(480);

•              SetPenWidth(3);

•              SetFontSize(18);

•              SetFontColor(clBlack);

•              SetFontStyle(fsBold);

•              Line(20,340,80,320);

•              Line(20,340,80,340);

•              Line(80,340,100,400); • Line(100,400,80,440);

•              Line(80,440,100,460);

•              Line(100,460,140,460);

•              Line(140,460,160,440);

Line(160,440,140,400); Line(140,400,160,360);

•              Line(140,400,180,400); • Line(180,400,200,420); • Line(200,420,180,440); • Line(180,440,160,440);

•              Line(180,400,240,380);

•              Line(240,380,260,360); • Line(260,360,260,320); • Line(260,320,220,340); • Line(260,360,280,380); • Line(280,380,320,360); • Line(320,360,320,340); • Line(320,340,300,300); • Line(300,300,240,280); • Line(260,360,280,400); • Line(280,400,260,420); • Line(260,420,280,440);

•              Line(280,440,320,440);

•              Line(320,440,340,420); • Line(340,420,320,400); • Line(320,400,340,310); • Line(320,340,360,280);

•              Line(340,260,440,360);

•              Line(440,360,480,360); • Line(480,360,520,320); • Line(520,320,480,300); • Line(480,300,460,320); • Line(460,320,480,360); • Line(460,320,440,320); • Line(440,320,440,360); • Line(440,320,420,300); • Line(420,300,400,320);

•              Line(420,300,400,260);

Line(400,260,380,280); Line(400,260,400,220);

•              Line(400,220,380,200); • Line(380,200,360,200);

•              Line(360,200,320,240);

•              Line(80,340,80,300);

•              Line(80,300,100,260);

•              Line(100,260,120,240); • Line(120,240,200,240);

•              Line(200,240,280,220);

•              Line(120,240,40,220);

•              Line(40,220,40,160); • Line(40,160,60,120); • Line(60,120,100,80);

•              Line(100,80,120,80);

•              Line(120,80,280,140);

•              Line(120,80,300,120);

•              Line(280,140,240,140);

•              Line(240,140,220,160);

•              Line(220,160,220,180); • Line(300,120,280,140); • Line(280,140,260,180); • Line(260,180,280,220);

•              Line(280,220,300,240);

•              Line(300,120,380,120); • Line(340,140,320,140); • Line(320,140,300,160);

•              Line(300,160,300,180);

•              Line(380,120,540,80);

•              Line(400,140,540,80);

•              Line(380,120,400,140); • Line(380,140,420,140); • Line(400,140,400,160);

•              Line(420,140,440,160);

Line(440,160,440,180); Line(420,180,420,200);

•              Line(420,200,400,220); • Line(400,240,420,260); • Line(420,260,500,220); • Line(500,220,580,160);

•              Line(580,160,580,100);

•              Line(580,100,560,80);

•              Line(560,80,540,80);

•              Line(340,160,320,180); • Line(340,160,360,180); • Line(360,180,340,200); • Line(340,200,320,180); • Line(340,200,340,180); • Line(340,180,320,180); • Line(400,160,380,180); • Line(380,180,400,200); • Line(400,200,420,180);

•              Line(420,180,400,160); • Line(400,180,380,180); • Line(400,180,400,200); • Line(480,300,480,240);

•              Line(480,240,500,260);

•              Line(500,260,480,300); • Line(520,300,560,260); • Line(560,260,560,280); • Line(560,280,520,300); • Line(520,260,540,220); • Line(540,220,560,220); • Line(560,220,560,240); • Line(560,240,520,260);

•              FloodFill(180,420,clGray);

•              FloodFill(300,400,clGray);

•              FloodFill(180,300,clLightGray);

•              FloodFill(70,330,clLightGray);

•              FloodFill(260,120,clLightGray);

•              FloodFill(420,120,clLightGray); • FloodFill(420,320,clLightGray); • FloodFill(460,340,clLightGray);

•              FloodFill(480,320,clLightGray);

•              FloodFill(490,270,clLightBlue); • FloodFill(540,240,clLightBlue);

•              FloodFill(550,280,clLightBlue);

•              FloodFill(330,185,clBlack);

•              FloodFill(390,185,clBlack);

•              FloodFill(120,140,clLightPink);

•              FloodFill(500,140,clLightPink);