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

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);