Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 41 стр.

UptoLike

Составители: 

41
41
Далее приведен текст программы рисования залитых фигур. Использованы
все стандартные типы заливки от 1 до 11.
Uses crt,graph;
Procedure Init_Graph_Mode;
Procedure figure;
begin
Setfillstyle(1,3); bar(50,50,250,100);
Setfillstyle(2,3); bar(50,150,250,200);
readkey;
setcolor(14); circle(350,130,50);
Setfillstyle(3,4); floodfill(350,130,14);
setcolor(4); circle(450,130,50);
Setfillstyle(4,14); floodfill(450,130,4);
setcolor(1); circle(550,130,50);
Setfillstyle(5,15); floodfill(550,130,1);
readkey;
Setfillstyle(6,2); fillellipse(120,330,70,60);
Setfillstyle(7,12); fillellipse(280,330,70,60);
readkey;
Setfillstyle(8,9); pieslice(420,350,0,120,60);
Setfillstyle(9,11); Sector(520,350,0,120,60,70);
readkey;
cleardevice; setcolor(15); Setfillstyle(10,13);
Bar3D(120,120,200,400,30,TopOn);
Setfillstyle(11,10);
Bar3D(320,120,400,400,30,TopOff);
readkey;
end;
begin
Init_Graph_Mode;
figure;
closegraph;
end.
При выводе графических изображений, кроме заливки (заполнения)
используют понятие палитра.
2.2.9 Управление палитрой
Максимальный набор
цветов, одновременно поддерживаемых драйвером
BGI называется палитрой. Для дисплея VGA максимальный набор цветов равен
16 (от 0 до 15). Это программные цвета. Первоначальное размещение цветов в
палитрах EGA/VGA соответствует последовательности их описания константами
от Black (0) до White (15). Каждому программному цвету присваивается
"аппаратный" цвет. В адаптере VGA аппаратная палитра содержит 256 цветов.
                                                                        41




      Далее приведен текст программы рисования залитых фигур. Использованы
все стандартные типы заливки от 1 до 11.

       Uses crt,graph;
Procedure Init_Graph_Mode;
Procedure figure;
begin
  Setfillstyle(1,3);     bar(50,50,250,100);
  Setfillstyle(2,3);     bar(50,150,250,200);
       readkey;
   setcolor(14);        circle(350,130,50);
   Setfillstyle(3,4);   floodfill(350,130,14);
    setcolor(4);        circle(450,130,50);
   Setfillstyle(4,14); floodfill(450,130,4);
    setcolor(1);        circle(550,130,50);
   Setfillstyle(5,15); floodfill(550,130,1);
 readkey;
   Setfillstyle(6,2);   fillellipse(120,330,70,60);
    Setfillstyle(7,12); fillellipse(280,330,70,60);
    readkey;
    Setfillstyle(8,9);  pieslice(420,350,0,120,60);
    Setfillstyle(9,11); Sector(520,350,0,120,60,70);
          readkey;
   cleardevice; setcolor(15);          Setfillstyle(10,13);
   Bar3D(120,120,200,400,30,TopOn);
   Setfillstyle(11,10);
   Bar3D(320,120,400,400,30,TopOff);
    readkey;
 end;
 begin
 Init_Graph_Mode;
 figure;
 closegraph;
 end.
       При выводе графических изображений, кроме заливки (заполнения)
используют понятие палитра.

                        2.2.9 Управление палитрой

      Максимальный набор цветов, одновременно поддерживаемых драйвером
BGI называется палитрой. Для дисплея VGA максимальный набор цветов равен
16 (от 0 до 15). Это программные цвета. Первоначальное размещение цветов в
палитрах EGA/VGA соответствует последовательности их описания константами
от Black (0) до White (15). Каждому программному цвету присваивается
"аппаратный" цвет. В адаптере VGA аппаратная палитра содержит 256 цветов.
                                                                        41