Помощь с палитрой

[RazArt]

Мне было нечего делать и решил состряпать такую вещь, палитру как в фотошопе. У мну получилась, но скорость обновления оставляет желать лучшего... Я приложил мой проект, если сможете написать алгоритм, работующий быстрее чем у меня, то буду очень благодарен

[Debugger]

Поищи SetDIBits. Если влом искать - посмотри "Золотые топики", там было.
Кстати, модераторы: прилепите "золото".

[RazArt]

Чё за золотые топики? Я недавно просто на форуме

[Debugger]

viewtopic.php?f=15&t=36567
Оттуда (первый ответ Watts[]n'а)
viewtopic.php?t=26505.
Если хочешь четкий пример и описание - скачай API Guide, ищи в нем функцию SetDIBits.

[RazArt]

Я сделал через SetDIBitsToDevice(нашёл на сайте), но вот скорость не на много увеличилась =\

[RazArt]

Тут получается 3-4 фпс, если убрать операции по вычислению цвета, то 8-9 =\

[RazArt]

Народ, так как сделать более быстрый замен байтов цвета?

[Хакер]

фпс маленький потому что код написан катастрофически криво. Ты использовал все возможности, которым можно было его замедлить.

[RazArt]

Так как сделать более быстро?

[Хакер]

Щас покажу.

[Хакер]

Твоя задача, чтобы следующий код выполнился очень быстро:

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

Dim bi24BitInfo As BITMAPINFO, bBytes() As Byte, Cnt As Long
With bi24BitInfo.bmiHeader
    .biBitCount = 24
    .biCompression = BI_RGB
    .biPlanes = 1
    .biSize = 40
    .biWidth = 256
    .biHeight = 256
End With
ReDim bBytes(1 To bi24BitInfo.bmiHeader.biWidth * bi24BitInfo.bmiHeader.biHeight * 3) As Byte
For xc = 0 To 255
    For yc = 0 To 255
        NewRed = (0 * yc + ((255 * xc + usecolor.rgbRed * (255 - xc)) \ 255) * (255 - yc)) \ 255
        NewGreen = (0 * yc + ((255 * xc + usecolor.rgbGreen * (255 - xc)) \ 255) * (255 - yc)) \ 255
        NewBlue = (0 * yc + ((255 * xc + usecolor.rgbBlue * (255 - xc)) \ 255) * (255 - yc)) \ 255
        GFX_SET_PIXEL_DIB bBytes, xc, yc, RGB(NewRed, NewGreen, NewBlue), bi24BitInfo.bmiHeader.biWidth
    Next yc
Next xc
SetDIBitsToDevice Picture.hdc, 0, 0, bi24BitInfo.bmiHeader.biWidth, bi24BitInfo.bmiHeader.biHeight, 0, 0, 0, bi24BitInfo.bmiHeader.biHeight, bBytes(1), bi24BitInfo, DIB_RGB_COLORS

Теперь по полочкам:

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

  With bi24BitInfo.bmiHeader
    .biBitCount = 24
    .biCompression = BI_RGB
    .biPlanes = 1
    .biSize = 40
    .biWidth = 256
    .biHeight = 256
End With

  
  Зачем каждый раз заполнять эту структуру, если можно заполнить один раз в самом начале? (Это малосущественно, но всё же)
  

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

  ReDim bBytes(1 To bi24BitInfo.bmiHeader.biWidth * bi24BitInfo.bmiHeader.biHeight * 3) As Byte

  
  Зачем использоваться динамический массив (медленный очень который по своей природе), если четко известен (и вообще константен) его размер? Даже если плюнуть константность размера, зачем ReDim-ить (а значит выделять блок памяти в heap) при каждом вызове?
  

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

  For xc = 0 To 255
    For yc = 0 To 255

  
  Круто! xc и yc нигде не объявлены, а значит имеют тип Variant. Variant — медленный тип (что не умаляет его крутости в рамках OLE Automation, как и крутости IDispatch) и поэтому цикл с ним — медленный. А у тебя два вложенных цикла с использованием Variant-переменной. А значит у тебя медленность в квадрате.
  

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

          NewRed = (0 * yc + ((255 * xc + usecolor.rgbRed * (255 - xc)) \ 255) * (255 - yc)) \ 255
        NewGreen = (0 * yc + ((255 * xc + usecolor.rgbGreen * (255 - xc)) \ 255) * (255 - yc)) \ 255
        NewBlue = (0 * yc + ((255 * xc + usecolor.rgbBlue * (255 - xc)) \ 255) * (255 - yc)) \ 255


  
  0 * yc — это конечно круто, и это действительно достойное действие, чтобы совершать его в цикле 196608 раз. (И он ещё спрашивает, почему так медленно? ) Особенно учитывая, что это не просто умножение, а умножение Variant-переменной, а значит обязательно проверится vartype и умножение будет совершено не процессором (быстрым), а Variant-функциями (медленными).
  
  Второе. Variant-математика — медленная. А здесь у тебя её полно. Здесь у тебя Неимоверное количество Variant-математики. Одного только объявления переменных с xc, yc, NewXXX будет достаточно чтобы увеличить скорость в 1,5 раза.
  
  Третье. Математика для построения матрицы у тебя такая: по горизонтале цвет фейдирует (fading) от выбранного к белому. По вертикали — теряется интенсивность. Так что математику нужно переделывать.
  
  

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

  GFX_SET_PIXEL_DIB bBytes, xc, yc, RGB(NewRed, NewGreen, NewBlue), bi24BitInfo.bmiHeader.biWidth

  
  Ага. Вызов функции в цикле, да ещё и такое страшное название функции. Знаешь почему вариант с SetDIBitsToDevice, когда нужно вывести очень много точек, быстрее, чем PSet или SetPixel? Потому что в первом случае тебе даруется возможность сразу же выставить много пикселей, исключая неизбежность совершения множества лишних действий. Но ты же, воспользовавшись первым вариантом, сам "компенсирол медленность", добавив в код совершение кучи лишних действий
  
  Вобщем, вызов функции в цикле это немного не то, что сочетается с понятием скорость. Но это тоже не настолько значительно.
  
  Если заглянуть внутрь GFX_SET_PIXEL_DIB, то там можно увидеть нечто ужасное:
  

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

      R = zColor \ 65536
    G = (zColor And 65535) \ 256
    B = zColor And 255

  
  Зачем, скажи мне, сначала запаковывать три цветовых компоненты в Long-число, а потом их распаковывать? Не иначе, как чтобы потратить драгоценное время.
  
  Плюс, там внутри есть ещё и кривенький расчёт курсора-указателя для заполнения массива.
  
  Плюс, ByRef/ByVal, судя по всему, расставлялись в случайном порядке.

[RazArt]

Так, большое спасибо, скорость действительно увеличилась до 8 фпс, но как в фотошопе сделали, там всё мгновенно происходит

[Хакер]

До 8?

А у меня получилось 32—64 (очень грубая оценка).

[RazArt]

Именно 8, я приложил проект проект...

[Хакер]

Ну конечно, если половину советов пропускать мимо ушей.
Посмотри в аттаче мой вариант. Я там избавил твой код от всякой дряни, только не трогал рисование спектра.

[RazArt]

Я делал всё по пунктам, эм... а где ваш аттач? оО

[Хакер]

Прилепил.

[RazArt]

Всё, биг спс, доходит до 25 фпс (я щас добавил немного функций, так как кроме палитры там есть и другие функции )

[Хакер]

Ты что не скачивал аттач?

[RazArt]

Я старый скачивал, тебе просто мега респект, не думал что авто редро стока памяти занимает, тебя тоже в соавторстве указал

[Хакер]

Скачивать надо самый последний, в старом содержались грубые ошибки. Экономия памяти не причём вообще.

[RazArt]

Ну а почему тогда когда его убрали, то рисоваться стало с несколько раз быстрее?

[Хакер]

Когда его убрали скорость не изменилась.

[RazArt]

Здравствуйте ещё раз, теперь я захотел добавить в палитру веб цвета, написал функцию, но быстродействие упало. Как можно её оптимизировать?

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

Function ConverColor(bColor As Byte) As Byte
If bColor >= 0 And bColor <= 25 Then ConverColor = 15: Exit Function
If bColor >= 26 And bColor <= 50 Then ConverColor = 40: Exit Function
If bColor >= 51 And bColor <= 100 Then ConverColor = 75: Exit Function
If bColor >= 101 And bColor <= 150 Then ConverColor = 125: Exit Function
If bColor >= 151 And bColor <= 200 Then ConverColor = 175: Exit Function
If bColor >= 201 And bColor <= 255 Then ConverColor = 225: Exit Function
End Function

и вызывается она так:

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

For v = 0 To 255
    For X = 0 To 255
        bBytes(pCursor).rgbRed = ConverColor(SatLine(X).r * v)
        bBytes(pCursor).rgbGreen = ConverColor(SatLine(X).g * v)
        bBytes(pCursor).rgbBlue = ConverColor(SatLine(X).b * v)
        pCursor = pCursor + 1
    Next X
Next v

[Хакер]

Что, совсем, абсолютно, ни капельки не очевидно, что для веб-палитры надо применять другой алгоритм?

[RazArt]

Эм... Ну а как её ещё сделать? оО