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

Ellipse(365,210,160,290,33,50);

Line(340,185,340,193);

Circle(340,178,10);

SetFillStyle(1,6);

FloodFill(340,178,6);

Line(352,188,390,135);

Line(355,190,390,140);

Line(390,140,390,135);

Line(335,200,288,210);

Line(335,205,288,215);

SetFillStyle(8,1);

FloodFill(353,189,6);

SetFillStyle(1,1);

FloodFill(380,152,6);

Line(288,210,280,178);

Line(288,215,275,185);

Line(275,185,280,178);

SetFillStyle(1,1);

FloodFill(277,185,6);

SetColor(0);

Ellipse(395,200,0,360,5,3);

Line(390,200,390,210);

Line(400,200,400,210);

SetFillStyle(9,6);

FloodFill(395,200,0);

Arc(395,208,150,0,5);

SetFillStyle(1,7);

FloodFill(395,208,0);

SetColor(1);