Методики построения палитры цветов

[Naked]

аля фотошоп

Option Explicit

Private Function Grad4(P As PictureBox, X As Long, Y As Long, W As Long, H As Long, rc, gc, bc)
Dim R As Integer, G As Integer, B As Integer
Dim i As Long, j As Long

For i = 0 To W - 1
For j = 0 To H - 1
R = (((100 / H) * j) / 100) + (rc * (((100 / W) * i) / 100) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
G = (((100 / H) * j) / 100) + (gc * (((100 / W) * i) / 100) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
B = (((100 / H) * j) / 100) + (bc * (((100 / W) * i) / 100) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)

P.PSet (i, j), RGB(R, G, B)
Next
Next

End Function

Private Sub Form_Click()
Grad4 PB, 0, 0, PB.ScaleWidth, PB.ScaleHeight, 255, 0, 0
End Sub

[BV]

А мне ещё хватило наглости сделать PictureBox размером 800х600

[Naked]

да, со скоростью проблемы, причем офигенные

[vvs_adm]

А мне ещё хватило наглости сделать PictureBox размером 800х600

Вот нахрена я тебя послушал

да, со скоростью проблемы, причем офигенные

Ну ты бы попробовал суперконструкцию (((100/H)*j)/100) заменить на j/H и все, что можно (а можно очень очень очень много чего) высчитать до второго цикла в первом, а остальное во втором, но до подсчета R, G и B, то скорость увеличится примерно вдвое

[Cryonyx]

А ещё можно попробовать ScaleMode поставить в 3 - Pixel
тогда скорость увеличивается в twip/pixel раз

[Cryonyx]

И ещё чуть-чуть скорости даёт использование апишной SetPixelV.
Проверено на 1280*1024
Может, можно как-то при помощи директХ?
Ну там, сформировать в памяти карту битов (без прорисовки) и передать её директу для построения

[tyomitch]

Cryonyx, ты сначала определись что тебе надо, а потом уже будем ускорять.

То, что рисуется кодом Naked - подходит? или всё ещё не то?

[Naked]

уменьшил на сколько смог
R = (rc * (i / W) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
G = (gc * (i / W) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
B = (bc * (i / W) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)

может быть еще можно, но думать щас не хочется... другим делом занят

[vvs_adm]

уменьшил на сколько смог
R = (rc * (i / W) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
G = (gc * (i / W) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
B = (bc * (i / W) + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)

может быть еще можно, но думать щас не хочется... другим делом занят

Ну ты только суперконструкции убрал, да и то не все Помимо того, что упростить можно дальше, нужно еще обратить внимание, что к примеру ты вычисляешь I/W три раза подряд + в каждом цикле по J, хотя можно в цикле по I один раз в промежуточную переменную кинуть, а потом использовать, типа :

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

Option Explicit

Private Function Grad4(P As PictureBox, X As Long, Y As Long, W As Long, H As Long, rc, gc, bc)
Dim R As Integer, G As Integer, B As Integer
Dim i As Long, j As Long

DIM TEMP AS DOUBLE

For i = 0 To W - 1
TEMP=i/W
For j = 0 To H - 1
R = (rc * TEMP + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
G = (gc * TEMP + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)
B = (bc * TEMP + 255 * ((100 - (100 / W) * i) / 100)) * ((100 - (100 / H) * j) / 100)

P.PSet (i, j), RGB(R, G, B)
Next
Next

End Function

Private Sub Form_Click()
Grad4 PB, 0, 0, PB.ScaleWidth, PB.ScaleHeight, 255, 0, 0
End Sub

Ну и так далее

[Cryonyx]

2 tyomitch
И это тоже
Я ж говорю: мне интересны все возможные методики, а не какая-то конкретная. Мне на ум приходит как минимум 15-20 их разновидностей, вот и интересно. С теоретической, так сказать, точки зрения.

2 vvs_adm
Точно так же можно заранее вычислить и 100/w, (100-(100/w)*i),100/h

А вообще, спасибо за идею