Показать сообщение отдельно
Старый 13.04.2012, 21:26   #7
burovalex
Разработчик
 
Аватар для burovalex
 
Регистрация: 04.04.2012
Сообщений: 468
Написано 37 полезных сообщений
(для 60 пользователей)
Ответ: Write & ReadPixelFast

Хотел написать чтото типа блура(тупо размазываю два ближийших пикселя), вот так
Но оооочень медленно работает на обработку уходит целая секунда

Function blur(x,y,dx,dy)
LockBuffer BackBuffer()

For y=0 To GraphicsHeight()
For x=0 To GraphicsWidth()
 pix(x,y)=ReadPixelFast(x,y)
If (x Mod 2=1) Then WritePixelFast x,y,pix(x-1,y)
Next
Next
UnlockBuffer BackBuffer()
End Function
Даже если я написать правильно и обрабатывать через один столбец, всё равно будет делать обработку пол секунды Что нереально долго, что посоветуете?
__________________
(Offline)
 
Ответить с цитированием