| x - координата x пиксела y - координата y пиксела argb - компоненты цвета пиксела (альфа, красный, зеленый, синий) buffer (не обязательно) - имя буфера, из которого будем читать пиксел, например BackBuffer() |
|
Заносит значения цвета в указанную точку (пиксел) текущего или указанного буфера. Вы можете использовать эту команду на заблокированном буфере для небольшого ускорения работы. Смотрите также : Plot, WritePixelFast, LockBuffer. |
| ; Пример ReadPixel/WritePixel ; ---------------------------- Graphics 640,480,16 Print "Нажмите любую клавишу для начала чтения пиксела" WaitKey() ; Загружаем и выводим рисунок на экран pic=LoadImage("media/blitz_pic.bmp") DrawImage pic,0,0 ; Организуем массив, в который занесем цвета всех точек экрана Dim pix(GraphicsWidth(),GraphicsHeight()) ; Используя ReadPixel, занесем каждый пиксел в массив For y=0 To GraphicsHeight() For x=0 To GraphicsWidth() pix(x,y)=ReadPixel(x,y) Next Next Cls Locate 0,0 Print "Нажмите любую клавишу, чтобы вывести массив на экран" Print "По окончании нажмите любую клавишу для выхода" WaitKey() ; Используя WritePixel, выведем сохраненные пикселы снова на экран For y=0 To GraphicsHeight() For x=0 To GraphicsWidth() WritePixel x,y,pix(x,GraphicsHeight()-y) ; координату y перевернем Next Next WaitKey() |