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


                


и заполняется стилем, заданным процедурами


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


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