HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 марта. В 1999 году (20 лет назад) - Фирмой "Сони" выбрасывается в продажу в 50 странах миллион дисков римского папы Иоанна-Павла II. Радио Ватикана положило на музыку Леонардо де Амичиса и Стефано Маинетти 11 хитов Кароля Войтылы на темы любви, прощения и справедливости, часть из которых папа напевает, а часть излагает в монотонно-ритмичной прозе на пяти языках.
 
 

Turbo Pascal Documentation

Процедура GetPixel

Модуль Graph


     Функция: Получает значение элемента изображения в точке Х,Y.
     Описание: GetPixel(X,Y :integer)
     Тип результата: Слово (word).
     Примечания: Получает цвет элемента изображения в  точке Х,Y.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры PutPixel, GetImage,  PutImage.
     Пример:

  uses
    Graph;
   var
    Gd, Gm : integer;
    PixelColor: word;
  begin
    Gd := Detect;  { перевести в графический режим }
    InitGraph(Gd, Gm, '');
    if GraphResult < 0 then
       Halt(1);
    PixelColor := GetPixel(10, 10);
    if PixelColor = 0 then
      PutPixel(10, 10, GetMaxColor);
    Readln;
    CloseGraph;
  end.




HOME