Построение геометрических фигур - часть 3

Вычерчивание производится текущим цветом и заполняется стилем, заданным процедурами SetFillStyle или SetFillPattern.

В следующем примере приведена программа, рисующая на желтом фоне синего снеговика.

Program SnowMan;

Uses Graph, Crt;

Var DriverVar, ModeVar: integer;

c: char;

390

Begin

DriverVar:=Detect;

InitGraph(DriverVar, Modevar,'');

SetBkColor( 14); SetColor( 1);

Circle(300,300,50);

Circle(300,215,35);

Circle(300,160,20);

Circle(300,180,5); Circle(290,140,5); Circle(310,140,5);

Line(335,215,370,200); Line(265,215,230,200);

c:=readkey;

SetBkColor(0);SetColor(GetMaxColor);

CloseGraph;

End.

391

388 :: 389 :: 390 :: 391 :: Содержание