procedure PutPixel(x,y:word;c:byte);     {вывод точки}
begin
   scr^[y,x] := c;
end;

function getpixel(x,y:word):byte; {запрос цвета точки}
begin
   getpixel := scr^[y,x];
end;

назад