Основы современных компьютерных технологий




Построение геометрических фигур - часть 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 :: Содержание




    Содержание  Назад  Вперед