Direct3D9 в VB6.

[Old_Maple]

Спасибо, Mikle! Все правильно заработало!

[The trick]

Обновление.

Новые примеры:

• Простая сцена (камера, процедурная генерация, выбор мышью, трансформации);
• "Лазерные" линии;
• Рендеринг в отдельном потоке.

Исправлены баги в функциях:

• D3DXMatrixTranspose;
• D3DXMatrixRotationQuaternion;
• D3DXVec2Length.

Изменения:

• Изменен прототип для функции D3DXPlaneIntersectLine, вместо генерации ошибки функция возвращает значение;
• Изменено поведение функции D3DXQuaternionToAxisAngle, теперь она может принимать ненормализованные кватернионы.

[Mikle]

Я оптимизировал MatrixInverse почти в 2 раза по быстродействию, есть мысли на счёт дальнейшей оптимизации.
Пока так:

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

Public Function MatrixDeterminant(pM As D3DMATRIX) As Single
  Dim Minor   As D3DVECTOR4
  Dim v1      As D3DVECTOR4
  Dim v2      As D3DVECTOR4
  Dim v3      As D3DVECTOR4

  v1.x = pM.m11:  v1.y = pM.m21:  v1.z = pM.m31:  v1.w = pM.m41
  v2.x = pM.m12:  v2.y = pM.m22:  v2.z = pM.m32:  v2.w = pM.m42
  v3.x = pM.m13:  v3.y = pM.m23:  v3.z = pM.m33:  v3.w = pM.m43

  v4Cross Minor, v1, v2, v3
  MatrixDeterminant = -(pM.m14 * Minor.x + pM.m24 * Minor.y + pM.m34 * Minor.z + pM.m44 * Minor.w)
End Function

Public Function MatrixInverse(mOut As D3DMATRIX, Determinant As Single, Mtrx As D3DMATRIX) As Boolean
  Dim a       As Long
  Dim i       As Long
  Dim j       As Long
  Dim v       As D3DVECTOR4
  Dim Vec(2)  As D3DVECTOR4
  Dim Det     As Single
  Dim M(3, 3) As Single
  Dim o(3, 3) As Single
  Dim IDet    As Single

  Det = MatrixDeterminant(Mtrx)
  If Det = 0 Then Exit Function

  Determinant = Det
  IDet = 1 / Det
  MemCpy M(0, 0), Mtrx, 64

  For i = 0 To 3
    For j = 0 To i - 1
      Vec(j).x = M(j, 0)
      Vec(j).y = M(j, 1)
      Vec(j).z = M(j, 2)
      Vec(j).w = M(j, 3)
    Next j
    For j = i To 2
      Vec(j).x = M(j + 1, 0)
      Vec(j).y = M(j + 1, 1)
      Vec(j).z = M(j + 1, 2)
      Vec(j).w = M(j + 1, 3)
    Next j

    v4Cross v, Vec(0), Vec(1), Vec(2)

    o(0, i) = v.x * IDet
    o(1, i) = v.y * IDet
    o(2, i) = v.z * IDet
    o(3, i) = v.w * IDet
    IDet = -IDet
  Next i
  MemCpy mOut, o(0, 0), 64
  MatrixInverse = True
End Function

Private Sub v4Cross(vOut As D3DVECTOR4, v1 As D3DVECTOR4, v2 As D3DVECTOR4, v3 As D3DVECTOR4)
  vOut.x = v1.y * (v2.z * v3.w - v3.z * v2.w) - v1.z * (v2.y * v3.w - v3.y * v2.w) + v1.w * (v2.y * v3.z - v2.z * v3.y)
  vOut.y = -(v1.x * (v2.z * v3.w - v3.z * v2.w) - v1.z * (v2.x * v3.w - v3.x * v2.w) + v1.w * (v2.x * v3.z - v3.x * v2.z))
  vOut.z = v1.x * (v2.y * v3.w - v3.y * v2.w) - v1.y * (v2.x * v3.w - v3.x * v2.w) + v1.w * (v2.x * v3.y - v3.x * v2.y)
  vOut.w = -(v1.x * (v2.y * v3.z - v3.y * v2.z) - v1.y * (v2.x * v3.z - v3.x * v2.z) + v1.z * (v2.x * v3.y - v3.x * v2.y))
End Sub


[The trick]

Спасибо! Я писал эти функции основываясь на исходниках то ли Wine, то ли ReactOS, но и там были несоответствия вроде бы с реальными из d3dx (я даже по-моему у тебя спрашивал), приходилось реверсить.

[The trick]

Обновление.

• Добавлена библиотека d3dxvb.tlb;
• Добавлен пример CornerPin (перспективная трансформация по 4 точкам);
• Добавлен пример Raymarching на HLSL шейдерах.

[Mikle]

Вот это новогодний подарок!

[Old_Maple]

Искренне хочу The trik поблагодарить за обновление!
Мне, как и Mikle пришлось кое-что оптимизировать в части матриц и кватернионов. Там много операций делений, которые пришлось заменить умножением (разумеется, в тех случаях, где деление на одну и туже переменную происходит несколько раз), например norm. Вычисляя norm не как значение функции (norm = D3DXxxx(args)), а обратную ей (norm = 1! / D3DXxxx(args)), с последующим домножением norm к переменным. Производительность поднялась в среднем на 25-30%... Может еще как-то можно оптимизировать?

[Хакер]

Думаю, функцию D3DXMatrixPerspectiveFovXH, коль уж мы сами её реализовываем в обёртке, надо было сделать так, чтобы она принимала Width и Height вместо Aspect.

Потому что она либо несовместима с D3DXMatrixPerspectiveFovXH из обёртки над DX8, либо не совместима с одноимённой функцией из статической библиотеки DX9.

А так, если кто-то портирует код — не важно, с DX8VB или с DX9 на другом языке — в обоих случаях человек запнётся о несовместимость по набору параметров и вынужден будет задуматься и подправить код соответствующим его случаю образом.

[Mikle]

если кто-то портирует код — не важно, с DX8VB или с DX9 на другом языке — в обоих случаях человек запнётся о несовместимость по набору параметров

Вроде, набор тот же самый, в том же порядке. Только в d3dx9 смысл aspect поменяли на обратный - в DX8VB было height/width, а в d3dx9 стало width/height. И это не только у The trick, но и в многочисленных d3dx9_xx.dll.
Возможно, это в DX8VB, библиотеке для VB, закралась ошибка, я сишные исходники по DX8 не смотрел.

[Хакер]

Вроде, набор тот же самый, в том же порядке.

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

Это как Option Explicit: зелёные новички его ненавидят, потому что он постоянно портит им жизнь, а опытные понимают, что это спасительная и правильная вещь.

Я предлагаю сделать искуственную ловушку для потенциальной ошибки, касающейся интерптерации параметра aspect.

aspect в DX8VB (именно в этой обёртке над DX8, созданной для VB-программистов) вычисляется не так, как в целом в DX8.

Либо нужно в модулях Анатолия интерпретировать параметр aspect так, как это делала DX8VB, чтобы при портировании VB-проектов с DX8 на DX9 не пришлось менять height/width на width/height, потому что необходимость такой замены вообще не очевидна для VB-программиста, выполняющего портирование. И даже пробный запуск не покажет, что в коде что-то не так, если графика выводится на квадратный Viewport. Но тогда справедливо возмутятся люди, портирующие DX9-зависимый код с C++ на VB6: почему при смене языка поменялось поведение DX-овский функций.

Либо нужно делать, как Анатолий сделал сейчас, и воспринимать aspect так, как воспринимает его DX9 (и DX8, но не DX8VB). Но тогда нет прозрачности при переходе с DX8VB на решение Анатолия.

Я же предлагаю третий вариант: ни вашим, ни нашим. Убрать спорный и противоречивый аргумент aspect и заменить его на Width и Height. Пусть вызывающая сторона передаёт Width и Height, а функция сама рассчитывает aspect внутри себя, делая это так, как ей надо для правильного получения лементов матрицы.

Во-первых, это не даст заработать коду, написанному путём копипаста. Человеку придётся добраться до неработающей строчке. напрячь голову и передать Width туда, как функция ждёт Width, и Height туда, куда функция ждёт Height, что будет гарантировать правильность расчёта aspect ratio вне зависимости от того, портировали код из DX8VB-основанного проекта (где надо было делить высоту на ширину), или из DX9-зависимого сишного проекта (где надо было делать ширину на высоту).

Во-вторых, это даст самодокументируемость на уровне IntelliSense подсказок. Человек только начинает писать аргументы и по всплывающей подсказке видит, что вот тут у нас должна быть ширина, тут высота. Перепутать невозможно. А так, даже если бы в DX8VB не было путаницы и различия с D3DX8, всегда можно перепутать, как именно считать aspect (что на что делить).

И даже если в той функции, откуда предполагается выхываь D3DXMatrixPerspectiveFovXH, исходных значений Width и Height уже не достать, потому что они были известны где-то уровнем выше, а в текущую функцию пришли уже в поделённом друг на друга виде (как одно число), это не создаёт безвыходную ситуацию и не вынуждает кого бы то ни было переписывать всю цепочку вызовов от того места, где поделали Width и Height, до того места, где вызывают D3DXMatrixPerspectiveFovXH.

Достаточно просто вместо Width и Height передать (1; Aspect) или (Aspect; 1), в зависимости от того, что на что делили условными десятью уровнями выше по иерархии вызовов.

[Mikle]

Можно просто переименовать Aspect в WidthDivHeight
Да, при простой копипасте кода из dx8vb всё ещё будут проблемы, зато сохранится совместимость со всем остальным dx8 и dx9 кодом, которого гораздо больше.

[Хакер]

зато сохранится совместимость со всем остальным dx8 и dx9 кодом, которого гораздо больше.

Так она и не теряется, достаточно в качестве одного из двух новых параметров передавать единичку, и по старому рассчитанный aspect в качестве оставшегося.