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


 
В этот день много лет назад...
22 февраля. В 1968 году (50 лет назад) - Крейсер "Аврора" награждается орденом Октябрьской Революции.
 
 

Turbo Pascal Documentation

Процедура PutPixel


     Функция: Строит элемент изображения) в точке (x,y).
     Описание: PutPixel(x,y : integer; эл_изображ : word).
     Примечания: Строит в (x,y) точку, цвет которой  опреде-
ляется параметром "эл_изобр".
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetImage, GetPixel,  PutIm-
age.
     Пример:
uses Graph;
var
    p  : pointer;
Color : word;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  ig GraphResult <> grOk then
     Halt(1);
  Color := GetMaxColor;
Randomize;
repeat
   PutPixel(Random(100),Random(100),Color); { строит "звездочки" }
   Delay(10);
until KeyPressed;
Readln;
CloseGraph;
end.




HOME