Mail

В этот день много лет назад...
9 мая. В 1998 году (26 лет назад) - 27-летний парашютист-любитель из баварского города Бургхайм на юге ФРГ, покидая самолет на высоте 1 км (!), ударяется о люк машины, отчего по ошибке открывает запасной парашют. Основной же купол зацепился за хвостовое оперение самолета, и спортсмен некоторое время летел за машиной, пока ему не удалось отцепиться. Бедолага стал падать вниз, как камень, и, запутавшись в стропах, с большой скоростью ударился о землю. К удивлению товарищей и медиков, парашютист остался жив, отделавшись переломами и ушибами. Доставленный в больницу счастливчик заявил, что после выздоровления будет прыгать с парашютом и дальше.

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.