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;
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;