Не пойму в чем проблемма, стандартный сэмпл насчет команды ReadPixelFast работает вроде корректно... Но если я начинаю его колупать (а колупать там почти нечего) то начинаются такие проблеммы:
1. Меняю разрешение экрана с Graphics 640,480,16 на любое другое (3 разрешения перепробовал) - Mav...
2. При разрешении Graphics 640,480,16,2 (запускаю в окне) - Mav...
3. -
Graphics 640,480,16
Print "Нажмите любую клавишу для начала чтения пиксела";Если убрать эту строчку то тоже MAV...
WaitKey()
;Загружаем и выводим рисунок на экран
pic=LoadImage("Media/blitzlogo.bmp")
DrawImage pic,0,0
; Организуем массив, в который занесем цвета всех точек экрана
Dim pix(GraphicsWidth(),GraphicsHeight())
LockBuffer
; Используя ReadPixelFast, занесем каждый пиксел в массив
For y=0 To GraphicsHeight()
For x=0 To GraphicsWidth()
pix(x,y)=ReadPixelFast(x,y)
Next
Next
; Разблокируем буфер
UnlockBuffer
Cls
; Заблокируем буфер перед применением WritePixelFast
LockBuffer
;Используя WritePixelFast, выведем сохраненные пикселы снова на экран
For y=0 To GraphicsHeight()
For x=0 To GraphicsWidth()
WritePixelFast x,y,pix(x,GraphicsHeight()-y) ; координату y перевернем
Next
Next
; разблокируем буфер после WritePixelFast
UnlockBuffer
WaitKey()
В чем проблемма?
Прилагаю сэмпл (13 кб.)