Дикие тормоза, как убрать?

[d3drm]

у меня программа в цикле должна заполнять массив 256х256. но при этом выдает дикую нагрузку на FPS. вот я и задался вопросом, почему? Ведь код не осложнен сложными математическими операциями - только сложение и вычитание. Ведь взять, к примеру, directX - с какой скоростью он обрабатывает текстуру 256х256? в тысячи раз быстрее! Как можно добиться этого? Врядли поможет написать библу на С++ думаю результат будет таким же... не уж-то только на ассемблере можно писать по настоящему быстрые программы?

[xolod]

d3drm
А покажи-ка, как ты это делаешь. Кусочком кода.
Не строки ли фигурируют в массивах случаем?

[d3drm]

LДа в принципе процедура вылизану круче некуда, вот:

Код: Выделить всё

Public Sub doBump()
Dim lx As Long, ly As Long, c As Long, r As Long
Dim xdelta As Long, ydelta As Long
Dim tByte As Integer

lx = -cx + 15 + b_wid
For c = 1 To pic_w
    ly = cy - 274 + b_hgt
   
    For r = 1 To pic_h
        xdelta = lx + PixL(c - 1, r) - PixL(c + 1, r)
        ydelta = (ly + r) + PixL(c, r - 1) - PixL(c, r + 1)
        With Pix2(c, r)
            If ydelta And 65280 Or xdelta And 65280 Then
                .g = 0
                .r = 0
                .B = 0
            Else
                tByte = phong(xdelta, ydelta)
                If tByte > 255 Then tByte = 255
                .r = tByte * cz
                .g = tByte * cz
                .B = tByte * cz
            End If
        End With
    Next
    lx = lx + 1
Next
DrawOnTex Tex, Pix2(), 256
End Sub

проверено, что все тормоза практически на пустом месте, то есть во внутреннем цикле. Хоть кусок на АСМ переводи...

[xolod]

phong - это массив? функция? Или где?

[Faust]

А cz часом не действительного типа? Если да, то большинство ресурсов съедает операция умножения. Также, если PixL() - двумерный массив, и чтение/запись его производится последовательно прямоугольными областями, как в приведенном примере, то можно поднять быстродействие его "разворачиванием" в одномерный массив.

[Морфий]

FleX_2004
Если решится, киньте в тему

[Samrat]

Всё очень просто нужно заложить тайм - аут по таймеру хотя бы на 100мс и тормоза исчезнут просто после внутреннего цикла, пускануть таймер и подождать его срабатывания. Главное контрол - таймер на форму "брякнуть" . Просто сам делал нечто подобное когда увлекался криптографией (немного). Конечно прога работает чуть медленнее но система сохраняет управляемость.

[Bonesnapper]

можно без таймера
но только обновлять массив раз 0.037 секунды
на глаз не видно а ФПС возрастает в двое

[Samrat]

Гы - Гы это круто, но в рамках VB Решения данной проблемы действительно нет (остальные среды разработки пока не рассматриваем) CPU Всё равно будет перегружен. Просто в моём предложении рациональным зерном является сохранение управляемости решения. Если же Вам необходимо получить работу со скоростными логическими функциями, скажем для эффективного брутфорса DES и т.д. необходимо построить специализированную машину на ПЛИС или процессорах другой архитектуры. Так как современные ПК для этого подходят слабо.
Конечно можно попробовать написать dll на С но выигрыш будет в проценты, а не в разы.

[d3drm]

Я гашел выход, решил не изобретать колесо и перевести всю работу на DX шейдеры, чего в принципе я и хотел добиться =) А вообще действительно, в рамнах VB это не решабельно, да и на Си тоже. Для таких задач - ассемблер и больше ничего.

[ne_tapka]

То есть когда какой нить фотопэинт мгновенно картинку больше 1000 пикселей обрабатывает (например складывает цвета с другой картинкой) - это только ассемблер? чего то не верится.. вообще проблемма ооочень актуальна.