Реферат Графіка в Турбо Паскалі

> Line (125,10,125,72);

Line (75,10,75,32);

SetFillStyle (1,11);

FloodFill (110,25,1); p> 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); p> 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); p> Line (415,15,415,5);

Line (415,5,470,5);

Line (470,5,470,19);

SetFillStyle (1,6);

FloodFill (425,8,1); p> 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 ); p> 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);

Line (280,130,335,105);

Line (280,130,285,120);

Line (285,120,266,120);

Line (285,120,333,98);

Arc (332,102,270,90,4);

Line (240,150,270,150);

Line (240,140,270,140);

Line (270,140,353,102);

SetFillStyle (1,5);

FloodFill (338,102,1);

Ellipse (248,...