Open Source, Soft Renderer 2D.

[DirectXManiac]

Mikle
А какие ещё фичи ты планируешь добавлять?

[Mikle]

DirectXManiac
Еще два вида бампа, кое-что уже есть. Еще специальную команду для перезаписи какого-либо цветового слоя, например из канала R одного спрайта в канал A другого, это уже есть. Еще есть работа с битовыми слоями.

[DirectXManiac]

Mikle
Какие 2 вида бампа? Dot3 и EMBM?

[Mikle]

Да. Уже есть один вид EMBM, будет еще второй с другой адресацией и DOT3.

[keks-n]

А то что на всех примерах FPS больше 10 не поднимается, это так и надо?

[Mikle]

keks-n
А на коком компе? А то у меня ниже 300 не опускается.

[DirectXManiac]

Mikle
Это будет супер! Бамп в 2Д
Не мог бы ты выложить пример нормального EMBM на шейдерах т.е. vs + ps в 3Д? А то у меня как обычно лажа с vs
ЗЫ. Сори за оффтоп!

[Mikle]

Первый релиз готов, выложил в кирпичах:
http://bbs.vbstreets.ru/viewtopic.php?t=32517

[Crio]

Привет.

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

При загрузке картинки из файла при включённом ColorKey, красный и синий каналы ColorKey меняются местами. Например, я указываю vbRed, а прозрачным становится синий, если указываю vbBlue, то прозрачный красный. Если указываю зелёный, то всё нормально.

При рисовании на спрайте в режиме AlphaBlend не рисуется Alpha.
Пример: есть tga картинка с прозрачностью. Рисую её на спрайте 1 в режиме AlphaBlend. Рисую спрайт 1 на спрайте 2, тоже в режиме AlphaBlend. На спрайте 2 ничего не рисуется. Проверяю в режиме AlphaTest – всё работает. Но при AlphaTest значение Alpha равно либо 255 либо 0, что не подходит при работе с полупрозрачными изображениями. Рисовать сразу на спрайте 2 невозможно, спрайт 1 должен пройти, например, постобработку.

Примеры работы прилагаются в архиве. Посмотри, может я чего напутал?
И ещё, в архиве, в папке CONW лежит простой конвертор в формат TGA.

П.С.: когда будет новое обновление?

[keks-n]

При загрузке картинки из файла при включённом ColorKey, красный и синий каналы ColorKey меняются местами. Например, я указываю vbRed, а прозрачным становится синий, если указываю vbBlue, то прозрачный красный. Если указываю зелёный, то всё нормально.

Это не баг, а другой формат цвета, который реально используется для хранения изображений. Напиши простенькую функцию, которая меняла бы 1-ый и 3-ий байт в переменной с цветом местами.

[Crio]

А какой из форматов самый правильный? Тот, который в компиляторе или тот, который в движке.

Это себе на будущее...

П.С.: Э-э-э... Простенькую функцию, чтобы байты местами меняла?.. Можно мне пример такой простенькой функции личным сообщением отправить?

[keks-n]

Crio
Оба правильные. Есть ещё и 555 и 565 - они 16-тибитные. Есть вообще палитра. Форматов множество.

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


Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



Function RGBToBGR(ByVal Color As Long) As Long
Dim ar(4) As Byte
CopyMemory ar(0), Color, 4
ar(4) = ar(0)
ar(0) = ar(2)
ar(2) = ar(4)
CopyMemory Color, ar(0), 4
RGBToBGR = Color
End Function


[Хакер]

П.С.: Э-э-э... Простенькую функцию, чтобы байты местами меняла?.. Можно мне пример такой простенькой функции личным сообщением отправить?

Какое именно образом менять? RGBA => ABGR? RGBA => BGRA ?

[Crio]

То Хакер:

Напиши простенькую функцию, которая меняла бы 1-ый и 3-ий байт в переменной с цветом местами.

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

То keks-n: спасибо, мне только принцип был нужен. А за полную функцию огромное спасибо! Долго думал зачем в массиве пять элементов... Дошло...

[Mikle]

Crio
Байты R и B менять не нужно, этот формат используется, например, в DirectX. Лучше написать новую функцию вместо RGB() и ее использовать, как будет обновление - добавлю такую ф-цию прямо в движек. А обновление будет, как закончу портирование под vb.NET.
Пример с нерабочей альфой качаю, дома гляну.

[Mikle]

Crio
Посмотрел твою работу. Отображение спрайта 1 на 2 с использованием альфаканала, а затем 2 на 3 тоже с использованием альфаканала, это неверный подход - будут искажения цвета везде, где 0<A<255. С 1 на 2 можно отображать через OpPaint, дальше какая угодно постобработка и отображение 2 на 3 через AlphaBlend.
Если, все же, нужно оба раза через AlphaBlend, то применяй для переноса альфы OpMoveByte:

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

Option Explicit

Dim Sp1 As New SR2D_Sprite
Dim Sp2 As New SR2D_Sprite

Private Sub Form_Load()
  Sp1.LoadFromTGA "in.tga"
  Sp2.Init Sp1.Width, Sp1.Height

  Sp2.Draw Sp1, 0, 0, OpAlphaBlend

  Sp2.Draw Sp1, 0, 0, OpMoveByte, 3, 3

  Sp2.SaveToTGA "out.tga", True

  Set Sp1 = Nothing
  Set Sp2 = Nothing
End Sub


"Sp2.Draw Sp1, 0, 0, OpMoveByte, 3, 3" переносит третий цветовой канал, считая от нуля, из источника в третий цветовой канал приемника. С помощью OpMoveByte можешь доделать свой конвертер для сборки TGA с импортом альфы из отдельного файла.

[Crio]

Ясно... А если новый эффект наложения ввести?
Где сразу цвета смешивается как в AlphaBlend, а альфа-каналы складываются с максимальным порогом в 255

Или уже нельзя?

[Mikle]

Crio
Это не сложно. Убеди в необходимости. Текущее использование альфаканала складывалось годами.

[Crio]

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

Function fncLayering(sprSpriteSource As SR2D_Sprite, sprSriteTarget As SR2D_Sprite, Optional lngTrgTop As Long, Optional lngTrgLeft As Long)
'Наложение спрайта с альфа-каналом поверх другого спрайта
'sprSpriteSource - спрайт-источник
'sprSriteTarget  - спрайт-цель
'lngTrgTop       - позиция верхнего края в sprSriteTarget
'lngTrgLeft      - позиция левого края в sprSriteTarget

sprSriteTarget.Draw sprSpriteSource, lngTrgLeft, lngTrgTop, OpAlphaBlend
sprSriteTarget.Draw sprSpriteSource, lngTrgLeft, lngTrgTop, OpMoveByte, 3, 3

End Function

Два прохода на один спрайт...

[Mikle]

Crio
Это понятно, не понятно зачем нужно, чтобы после альфаналожения на приемник попадала альфа источника. Если ты обрисуешь задачу, может станет понятнее?

[Mikle]

Вот небольшой примерчик, демонстрирующий искажения, получающиеся при таком переносе изображения.

[Crio]

Почему происходит искажение цвета.
Всё дело, в том, что смешивается. А смешивается цвет загруженного спрайта с начальным цветом спрайта-буфера, то есть чёрным. Если его предварительно покрасить в красный, то искажение будет красным.
Как это исправить? Сижу-думаю...

Моя функция Layering работает неправильно. Альфа-канал просто переносится из sprSpriteSource в sprSriteTarget, а они должны складываться.

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


Function fncLayering(sprSpriteSource As SR2D_Sprite, sprSpriteTarget As SR2D_Sprite, Optional lngTrgTop As Long, Optional lngTrgLeft As Long)
'Наложение спрайта с альфа-каналом поверх другого спрайта
'sprSpriteSource - спрайт-источник
'sprSpriteTarget  - спрайт-цель
'lngTrgTop       - позиция верхнего края в sprSriteTarget
'lngTrgLeft      - позиция левого края в sprSriteTarget

Dim sprAlphaSpriteOne As New SR2D_Sprite
Dim sprAlphaSpriteTwo As New SR2D_Sprite

'/инициализация буферов
sprAlphaSpriteOne.Init sprSpriteSource.Width, sprSpriteSource.Height
sprAlphaSpriteTwo.Init sprSpriteTarget.Width, sprSpriteTarget.Height
'\

sprSpriteTarget.Draw sprSpriteSource, lngTrgLeft, lngTrgTop, OpAlphaBlend 'отрисовывание цвета

sprAlphaSpriteOne.Draw sprSpriteSource, 0, 0, OpMoveByte, 3, 0 'получение альфы источника
sprAlphaSpriteTwo.Draw sprSpriteTarget, 0, 0, OpMoveByte, 3, 0 'получение альфы цели

sprAlphaSpriteTwo.Draw sprAlphaSpriteOne, 0, 0, OpAdd 'сложение алафа-каналов

sprSpriteTarget.Draw sprAlphaSpriteTwo, 0, 0, OpMoveByte, 0, 3 'отрисовывание альфа-канала

'/очистка буферов
Set sprAlphaSpriteOne = Nothing
Set sprAlphaSpriteTwo = Nothing
'\

End Function

П.С.: а надо ли это в функции?

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

'/очистка буферов
Set sprAlphaSpriteOne = Nothing
Set sprAlphaSpriteTwo = Nothing
'\

Добавлено: всё равно неправильно. Посмотрите свежим глазом, может найдёте, где косяк. Как будто альфу умножают саму на себя...

[Mikle]

Crio
Тут нужна специальная ф-ция для суммирования изображений с альфаканалом, из имеющихся ее не составишь... в необходимости убедил, буду делать.

[Crio]

Может таким алгоритмом воспользоваться?

Попиксельный проход:

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

Смотрим альфа-канал цели.

Если альфа-канал равен нулю, то копируем RGBA источника в RGBA цели.

Если альфа-канал не равен нулю, то смешиваем RGB источника с RGB цели по алгоритму AlphaBlend.
Складываем альфа-каналы источника и цели.


Понимаю, RGB в итоге будет выглядеть неприглядно, как пятно с острыми краями, но это если смотреть его без альфы. А с альфой он будет выглядеть нормально.

[Mikle]

Тут формула сложнее, эта будет искажать, и эту можно сымитировать и на имеющихся ф-циях.

[Crio]

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

[Mikle]

Алгоритм такой:

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

    a = Dst.a + (255 - Dst.a) * Src.a \ 255
    t = (255 - Src.a) * Dst.a \ 255
    Dst.r = (t * Dst.r + Src.r * Src.a) \ a
    Dst.g = (t * Dst.g + Src.g * Src.a) \ a
    Dst.b = (t * Dst.b + Src.b * Src.a) \ a
    Dst.a = a


Теперь думаю, как оптимальнее перевести это на асм.

Складываем альфа-каналы источника и цели

Не подходит, при суммировании двух полупрозрачных (50%) пикселей получится полностью непрозрачный, а должно быть на 75%.

[Crio]

Алгоритм -
Это по каждому пикселю?

Про альфу.
Раньше думал, что если два слоя с альфой в 128 наложить, то будет полностью непрозрачное изображение... В фотошопе проверил, действительно - 75.
А это на практике выявлено, или у тебя справочные материалы имеются? Хочу себе небольшой ликбез устроить, раз уж лето такое.

Дай ссылку, пожалуйста...

[Mikle]

Нет у меня таких ссылок, это я просто включил логику, потом вспомнил математику.

[Mikle]

Вот новый вариант:
http://tuapse-mikle.narod.ru/AC.rar
Здесь есть новый OpAlphaCombine, правда работает только для Draw, альфаспрайты нужно суммировать в порядке от дальнего к ближнему.
Часть ф-ций переведено на MMX, стало заметно быстрее. Добавлена ф-ция ARGB().
Как переведу все на MMX и сделаю OpAlphaCombine, OpMoveByte и OpMoveBit доступными из DrawMask, выложу обновление в "Кирпичи".