SR2D: Разные вопросы

[arthur2]

Mikle
Есть серая маска, символизирующая альфа-канал. Как её наложить на существующую картинку. И обратная операция - есть картинка с альфа-каналом - как выделить серую картинку, пиксели которой символизировали бы альфа-канал? Можно просто перебором, но мне кажется, что что-то подобное уже встроено?

И как лучше - все вопросы по SR2D складывать в одну тему или лучше для каждого вопроса создать свою?

[Mikle]

Есть серая маска, символизирующая альфа-канал. Как её наложить на существующую картинку.

То есть сделать, чтобы пиксели с заданным цветом стали прозрачными? Если я верно понял вопрос, то тебе нужен метод AddColorKey.

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

Тут лучше всего подойдёт MaskClearBuffer:

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

SprBack.MaskClearBuffer SprA, 0, 0, Color, ARGB(128, 0, 0, 0), NotMask

SprA - исходный спрайт с альфаканалом.
Color - цвет, которым закрашиваем.
Чтобы закрасить SprBack там, где в SprA непрозрачные участки, NotMask = False или вообще пропускаем. Чтобы прозрачные NotMask = True.

все вопросы по SR2D складывать в одну тему или лучше для каждого вопроса создать свою?

Если небольшие вопросы, типа этих, то можно всё спрашивать в одной (этой) теме.

[arthur2]

Не, я имею ввиду постепенное изменение прозрачности. Есть серая 8-битная картинка массивом байтов, каждый из которых символизирует А в АRGB.

[Mikle]

Можно любой цветовой канал перемещать между спрайтами:

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

Spr1.MoveByte Spr2, 0, 0, ChRed, ChAlpha

Красный канал спрайта Spr2 помещается в альфаканал спрайта Spr1.

[arthur2]

Круто!!!

[arthur2]

А если у картинок разные размеры, это сработает? И если маска меньше картинки, какими тогда станут не перекрытые маской области?

[Mikle]

Картинки могут быть разных размеров, метод сработает только для перекрывающейся части с учётом входных параметров-координат, например, так:

Это касается всех методов SR2D, оперирующих двумя или тремя спрайтами. Исключение, вполне понятное - SRCCol в DrawEBM.
Неперекрытые области не меняются.

[arthur2]

Огромное спасибо! И за объяснение, и особенно за саму библиотеку

[arthur2]

Есть ли возможность сделать серую картинку?

Понятно, что можно сделать перебором пикселей (кстати, какой алгоритм предпочтительней - просто для каждого пикселя среднее арифметическое от R, G, и B?)

Вопрос, есть ли встроенный вариант?

[Mikle]

просто для каждого пикселя среднее арифметическое от R, G, и B

Более правильно так:

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

  Col = ((B * 28 + G * 150 + R * 77) \ 255) * &H10101

В SR2D нет специального способа, но можно сделать с небольшой потерей точности так:

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

  Spr.MulAddS2X Spr, 0, 0, ARGB(0, 64, 64, 64), ARGB(0, 192, 192, 192)
  Spr.DrawDPBM Spr, 0, 0, 77, 150, 28, 0.675


[arthur2]

Более правильно так

А в чем тут математический принцип, что именно делает формула?

но можно сделать с небольшой потерей точности так

А как это работает?

С помощью метода MulAddS2X можно изменять яркость и контрастность. Значение из источника
умножается покомпонентно на параметр Mul, к произведению добавляется значение Add, далее из
него вычитается 128 (как будто Add - число со знаком) и полученная величина умножается на 2.

Здесь 64- это на сколько каждый из RGB становится ярче, а 192 - контрастней? Точнее, наверное, 64 - это -64, а 192 - это +64, так?
DrawDPBM - это мы картинку как бы освещаем?
Попробовал так (fn - это спрайт фона):

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

s.MulAddS2X s, 0, 0, ARGB(0, 64, 64, 64), ARGB(0, 192, 192, 192)
s.DrawDPBM s, 0, 0, 77, 150, 28, 0.675
fn.Draw s, 0, 0, OpAlphaBlend
fn.PaintToDevice hdc

Получил вроде черно-белую, но полупрозрачную картинку.
Попробовал так:

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

s.MulAddS2X s, 0, 0, ARGB(0, 64, 64, 64), ARGB(0, 192, 192, 192)
fn.DrawDPBM s, 0, 0, 77, 150, 28, 0.675
fn.PaintToDevice hdc

Да, картинка черно-белая. Но так не рисуется альфа-канал.

[arthur2]

Послеs.MulAddS2X s, 0, 0, ARGB(0, 64, 64, 64), ARGB(0, 192, 192, 192) - альфа-канал, я так понимаю, обнуляется?

[Mikle]

DrawDPBM - это мы картинку как бы освещаем?

Да, но освещение, использующее нормали и вектор света, совпадает по формуле с нужной нам - сумма трёх произведений.

Здесь 64- это на сколько каждый из RGB становится ярче, а 192 - контрастней?

Вектора используют числа со знаком, а у нас - без знака. Мы просто упаковывает байт из диапазона 0..255 в диапазон 128..255, чтобы число подходило к DPBM, скалярному произведению векторов.

А в чем тут математический принцип, что именно делает формула?

Учитывает весовые коэффициенты компонентов. Синий полной яркости темнее, чем красный, и обе темнее, чем зелёный.

Но так не рисуется альфа-канал.

А нужно было?
Просто перекинь любой канал из RGB (они теперь одинаковые) в альфу с помощью MoveByte.

[Mikle]

Послеs.MulAddS2X s, 0, 0, ARGB(0, 64, 64, 64), ARGB(0, 192, 192, 192) - альфа-канал, я так понимаю, обнуляется?

Да. Можно написать так, чтобы не изменился:

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

ARGB(128, 64, 64, 64), ARGB(128, 192, 192, 192)

Но перед DPBM это не имеет смысла.
Опиши полностью задачу.

[arthur2]

Учитывает весовые коэффициенты компонентов.

Понял

Да, но освещение, использующее нормали и вектор света, совпадает по формуле с нужной нам

Получается, что освещение работает по формуле Col = ((B * Lz+ G * Ly+ R * Lx) \ 255) * &H10101 ?

Вектора используют числа со знаком

Ага, догадался, после того, как послал вопрос. И даже пост исправил. Но, кажется, понял не совсем Картинка становится менее яркой (-64), но более контрастной (+64)? Или наоборот?

Просто перекинь любой канал из RGB (они теперь одинаковые) в альфу с помощью MoveByte

Это будет не оригинальный альфа-канал. Я, как догадался, что альфа обнуляется, сделал, сохранив изначальный альфа-канал во временный спрайт.

Опиши полностью задачу.

Ну, полностью задача ещё не сформировалась Пока примеряюсь, как использовать то, до чего удаётся дотянуться пониманием.

[Mikle]

Картинка становится менее яркой (-64), но более контрастной (+64)? Или наоборот?

Наоборот.

Получается, что освещение работает по формуле Col = ((B * Lz+ G * Ly+ R * Lx) \ 255) * &H10101 ?

Скорее, так:

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

Brite = N.z * L.z+ N.y * L.y+ N.x * L.x

Где N иL - нормализованные вектора нормали и направления на источник света.

[arthur2]

Где N иL - нормализованные вектора нормали и направления на источник света.

А где про это почитать? В других темах встретил:

Я это более-менее подробно в книге описывал.

А что за книга? Где её можно посмотреть? По форуму не нашел

[arthur2]

Со знаковым байтом я как-то вроде что-то напутал и недопонял.
H80=-128
Hff=-1
Так? Значит, моё

наверное, 64 - это -64, а 192 - это +64, так?

неправильно. А правильно, что 64 так +64и есть, а вот 192 как раз -64. Так?

[Mikle]

что за книга?

Первая тема в этом разделе.

где про это почитать?

Это стандартный Diffuse Light.

H80=-128
Hff=-1

Нет. В байтах обычно применяют другой принцип:

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

UnSigned:    0 127 128 255
Signed  : -128  -1   0 127

По крайней мере так кодируются вектора через цвет в D3D. Точнее, при переводе знакового байта в float ещё идёт деление на 128.

[С.Т.]

Вот настоящий инструмент! Сейчас, найдя SR2D, переписываю на него всю программу (раньше в ней использовал AlphaImgCtl и AlphaShape, но когда много изображений на форме, она тормозит до такой степени, что при любом изменении (к примеру масштаба) пользователю приходится реально ждать, даже если убрать видимость элемента-приёмника на время его загрузки).

SR2D - чудо! Всё просто, быстро, понятно, очень мало кто из программистов умеет держать этот баланс - простоты, эффективности, быстродействия и богатства возможностей. Всё по максимуму!

Для удобства я добавил в SR2D_Sprite.cls множество функций, например покажу одну из них - наложение на спрайт цветового градиента из заданных цветов (включая градиент прозрачности) :

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

       
Sub DrawGradient(cARGB1 As Long, cARGB2 As Long, Optional Vert As Boolean, Optional Left As Long, Optional Top As Long, Optional Width As Long, Optional Height As Long, Optional IsXor As Boolean)
    If meWidth = 0 Or meHeight = 0 Then
        Init Width, Height
    Else
        If Width = 0 Then Width = meWidth
        If Height = 0 Then Height = meHeight
    End If
    If Vert Then
        For i = 0 To Height
            DrawLine Left, i + Top, Left + Width, i + Top, ColLerp(cARGB2, cARGB1, i / Height), , IsXor
        Next
    Else
        For i = 0 To Width
            DrawLine Left + i, Top, Left + i, Height + Top, ColLerp(cARGB2, cARGB1, i / Width), , IsXor
        Next
    End If
End Sub
        Private Function ColLerp(ByVal c1 As Long, ByVal c2 As Long, ByVal k As Single) As Long
            Dim A As Integer, R As Integer, G As Integer, B As Integer, a1plus As Long, a2plus As Long
            'Подправляем сбой на минус лонг при A>127:
                If c1 < 0 Then 'значит, A>127 и, как следствие, Long отрицательный
                    c1 = c1 + 2147483647 + 1& 'прибавляем МаксЛонг, который вообще-то есть половина действит.макса (столько же ниже нуля)
                    a1plus = 128&
                End If
                If c2 < 0 Then 'значит, A>127 и, как следствие, Long отрицательный
                    c2 = c2 + 2147483647 + 1& 'прибавляем МаксЛонг, который вообще-то есть половина действит.макса (столько же ниже нуля)
                    a2plus = 128&
                End If
            'Составляем цвет из двух:
                A = (((c1 \ 16777216) And 255&) + a1plus) * k + (((c2 \ 16777216) And 255&) + a2plus) * (1 - k)
                R = ((c1 \ 65536) And 255&) * k + ((c2 \ 65536) And 255&) * (1 - k)
                G = ((c1 \ 256&) And 255&) * k + ((c2 \ 256&) And 255&) * (1 - k)
                B = (c1 And 255&) * k + (c2 And 255&) * (1 - k)
                ColLerp = ARGB(A, R, G, B)
        End Function

                   

ColLerp я взял тоже из Ваших ответов кому-то, но подправил его для длинного Long ARGB, который выходит за рамки положительного числа и потому требует коррекции. Наверно, это можно было сделать грамотнее, но я не математик и сделал по интуиции.

А вопрос разрешите?
Я сделал функцию, по которой берётся изображение, выполненное в оттенках серого, и красится в выбранный цвет.
Получилось вот так:

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

            Public Sub DrawGreyColored(src As SR2D_Sprite, Optional ByVal A As Byte = 128, Optional ByVal R As Byte = 128, Optional ByVal G As Byte = 128, Optional ByVal B As Byte = 128, Optional Left As Long = 0, Optional Top As Long = 0, Optional И_ЗАПОМНИ As Enum_Draw = False, Optional Tag, Optional Tag2, Optional Tag3)
                'Спрайт src должен быть в серых тонах (тона вокруг RGB(128,128,128). На него накладывается цвет.
                If Height = 0 Or Width = 0 Then Init src.Width, src.Height
                MulAddS2X src, Left, Top, ARGB(255 - A, 255 - R, 255 - G, 255 - B), ARGB(A, R, G, B)
               
                If И_ЗАПОМНИ Then Проверь_запоминание src, Tag, Tag2, Tag3
            End Sub

Она работает, действительно засвечивает изображение нужным цветом. Но! Проблема с альфа-каналом. Во-первых, цвета-то он усредняет, а вот альфа-канал нет. Если я хочу задать изображению нужную прозрачность, то такая функция не работает, и я не смог её запустить спонтанными подправками. Во-вторых, если применить эту функцию к спрайту, который нарисован уже ею же, т.е. уже расцвеченный, то при вторичном изменении его цвета меняется и альфа-канал, например пропадает прозрачность (появляется фон) и т.д. В общем, не могу разобраться с альфа-каналом, может можно сделать функцию объединения цветов иначе?

[Mikle]

Сильно пока не смотрел, навскидку - заменить эту строку:

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

MulAddS2X src, Left, Top, ARGB(255 - A, 255 - R, 255 - G, 255 - B), ARGB(A, R, G, B)

на такую:

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

MulAddS2X src, Left, Top, ARGB(128, 255 - R, 255 - G, 255 - B), ARGB(128, R, G, B)

Это чтобы сохранить прозрачность исходника без изменений.

[С.Т.]

Нашёл!

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

MulAddS2X src, Left, Top, ARGB(128, 255 - R, 255 - G, 255 - B), ARGB(A, R, G, B)

Контрастность альфа-канала менять нельзя - только яркость. Тогда всё работает, и прозрачность отлично регулируется по всему диапазону!
Как только меняешь Mul именно альфа-канала, при дальнейшем наложении происходят непонятные мне вещи. Просто не делать этого, и всё.
Огромное спасибо! Какой-то волшебный инструмент! Два-три слова - и он понимает!

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