и заполняется стилем, заданным процедурами
Вычерчивание производится текущим цветом и заполняется стилем, заданным процедурами 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 :: Содержание
Содержание Назад Вперед