PutPixel

Nakreslí bod na souřadnicích X, Y.

Deklarace

procedure PutPixel(X, Y: Integer; Pixel: Word);

Režim

Reálný, Chráněný

Poznámky

Nakreslí bod v barvě, definované parametrem Pixel, v (X, Y).

Omezení

Je nutno být v grafickém režimu.

Viz také

GetImage

GetPixel

PutImage

Vzorový příklad

{PutPixel.PAS}
{Vzorový příklad pro proceduru PutPixel.}
uses Crt, Graph;
var
  Gd, Gm: Integer;
  Color: Word;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Color := GetMaxColor;
  Randomize;
  repeat
    PutPixel(Random(100), Random(100), Color); { Vykreslí "hvězdy" }
    Delay(10);
  until KeyPressed;
  Readln;
  CloseGraph;
end.