Gamma

[GLEB]

Как сделать экран более светлым или темным?
Вроде SetGammaRamp, там массив, по-всякому его заполнял черный экран и всё. Или это совсем не то?

[GLEB]

Что-то тут странно как-то сделано. Элементы типа D3DGAMMARAMP объявлены как integer и макс. значение может быть 32767. В Си это значение задаётся от 0 до 65535. Если установить всем элементам 0, то экран черный, если 65535 - белый. А в VB 32767 - это только середина, т. е. серый цвет, а больше не прёт - owerflow, и что тогда делать.

[Bonesnapper]

ДА я тоже щас порылся в этом
Странно то что если поставить взятую гамму то получается черный экран
У меня получилось чтто то разглядеть
только заполнив массивы так
for i=0 to 255
ramp.red(i)=128*i
...
next i

но при этом светлость упала в 2 раза

[GLEB]

Функция GetGammaRamp почему-то возвращает значения только от 0 до 255, поэтому экран и черный. Макс. знач должно быть 65535, в Си эти массивы типа WORD, а в VB почему-то Integer.

[d3drm]

WORD это и есть Integer.

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

Public Sub ChangeGamma(Gamma As Single)

   Dim a As D3DGAMMARAMP, G As Single, i As Integer
   Device.GetGammaRamp a
   
    Dim t As Long
    For i = 0 To 255
        t = i * Gamma * 255
        G = 0
        If t > 32767 Then G = 1: t = t - 32767
        If t > 32767 Then t = 32767
       
        a.Red(i) = t Or (&H8000 * G)
        a.Green(i) = t Or (&H8000 * G)
        a.Blue(i) = t Or (&H8000 * G)
     
    Next i
   
    Device.SetGammaRamp 0, a
End Sub

[GLEB]

WORD - это unsigned integer.
А почему элементы типа D3DGAMMARAMP в VB объявлены как integer, ну объявили бы их как Long и всё, а то так далеко не каждый разберется.
Кстати, d3drm, что за значение &H8000?
И еще вопрос. Как с помощью твоей функции получить текущую гамму и установить её?
ChangeGamma(1) - все более темное, а GetGammaRamp возвращает (0..255)?

[d3drm]

собсно все равно, без знаковый там integer или со знаком, положительные значения одинаковые.

&H8000 - это -32768. догадайся, что это за волшебное число

а текущая гамма, это значение параметра равное единице. при нуле экран черный, при двух - вообще белый.

[GLEB]

а текущая гамма, это значение параметра равное единице.

При 1 экран намного темнее.
И какая закономерность между GetGammaRamp и SetGammaRamp????
Как прочитать текущую палитру и установить ее ????