RGB-массив загнать в Direct3DTexture8

[Yurich]

Каким образом это сделать?

[d3drm]

Это отдельный модуль:

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


Option Explicit

Public Type ST3D_ColorRGB
    R As Byte
    G As Byte
    B As Byte
End Type

Private Type ST3D_BitmapHeader
    lngSize As Long
    intReserved1 As Integer
    intReserved2 As Integer
    lngOffset As Long
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type

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


Dim StandartBitmapHeader As ST3D_BitmapHeader

Public Sub InitTexCraftModule()


    With StandartBitmapHeader
        .lngSize = 49152 + 54
        .lngOffset = 54
        .biBitCount = 24
        .biWidth = 128
        .biHeight = 128
        .biSize = 40
        .biPlanes = 1
        .biSizeImage = 49152
        .biCompression = 0
        .biXPelsPerMeter = 50
        .biYPelsPerMeter = 50
    End With 'StandartBitmapHeader
   
   
   
End Sub

Public Function CreateTextureFromRGBArray(TexArr() As ST3D_ColorRGB) As Direct3DTexture8

   
    Dim BMPheader(Len(StandartBitmapHeader) + 1) As Byte
    CopyMemory BMPheader(2), StandartBitmapHeader, Len(StandartBitmapHeader)
    BMPheader(0) = 66:    BMPheader(1) = 77
   
    Dim lm(49152 + 54) As Byte
   
    CopyMemory lm(0), BMPheader(0), 54
    CopyMemory lm(54), TexArr(0, 0), 49152

    Set CreateTextureFromRGBArray = D3DX.CreateTextureFromFileInMemoryEx(Device, lm(0), UBound(lm), 128, 128, D3DX_DEFAULT, 0, D3DFMT_X8R8G8B8, D3DPOOL_MANAGED, D3DX_FILTER_LINEAR, D3DX_FILTER_LINEAR, &H0, ByVal 0, ByVal 0)
   
End Function

А теперь чтобы создать черную текстуру с полоской:

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

    Dim lmstr(127, 127) As ST3D_ColorRGB
    Dim i As Integer
   
    For i = 0 To 127
        lmstr(i, 59).G = 255
    Next i
   
    Dim a As Direct3DTexture8
    Set a = CreateTextureFromRGBArray(lmstr())


Вот и все...

[Yurich]

СИБ! Пробую на зуб!

[Mikle]

Еще вариант:
Direct3DDevice8.CreateTexture - создаешь пустую текстуру.
Direct3DTexture8.GetSurfaceLevel - берешь нулевой сурфейс.
D3DX8.LoadSurfaceFromMemory - загружаешь данные в сурфейс из массива.
D3DX8.FilterTexture - создаешь мип-уровни с соответствующим фильтром.
Сурфейс в конце уничтожаешь.
Плюсы - не заморачиваешься с заголовками, работаешь прямо в формате текстуры.
Минусы - не загрузишь сжатые данные, типа .jpg, но из памяти оно надо?

[Yurich]

Как раз мучался. CreateTextureFromFileInMemory выдает ошибку

[d3drm]

странно... у меня все работало отлично... а какую ошибку выдает? Automation error?

[Yurich]

Угу. Ошибка и в первом и во втором при попытке создать текстуру. По-мойму это связано с настройками девайса. Еще не успел разобраться.

[Old_Maple]

Еще вариант:
Direct3DDevice8.CreateTexture - создаешь пустую текстуру.
Direct3DTexture8.GetSurfaceLevel - берешь нулевой сурфейс.
D3DX8.LoadSurfaceFromMemory - загружаешь данные в сурфейс из массива.
D3DX8.FilterTexture - создаешь мип-уровни с соответствующим фильтром.
Сурфейс в конце уничтожаешь.
Плюсы - не заморачиваешься с заголовками, работаешь прямо в формате текстуры.
Минусы - не загрузишь сжатые данные, типа .jpg, но из памяти оно надо?

Mikle, а как проделать в точности такую же процедуру в Directx9? Уж больно красиво получается.

[Mikle]

Да практически так же.
Вот так я загружаю текстуру с помощью GDI+:

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

Public Function CreateTextureFromFile(d3dDev As IDirect3DDevice9, fName As String) As IDirect3DTexture9
  Dim Res As Long
  Dim tSI As GdiplusStartupInput
  Dim GDIP As Long
  Dim Bmp As Long
  Dim lData As BitmapData
  Dim gdiR As RECTL
  Dim x As Long, y As Long
  Dim RECT As D3DLOCKED_RECT

  tSI.GdiplusVersion = 1
  Res = GdiplusStartup(GDIP, tSI)
  If Res = 0 Then
    Res = GdipCreateBitmapFromFile(StrPtr(fName), Bmp)
    If Res = 0 Then
      GdipGetImageWidth Bmp, x
      GdipGetImageHeight Bmp, y
      gdiR.Left = 0
      gdiR.Right = x
      gdiR.Top = 0
      gdiR.Bottom = y
      Res = GdipBitmapLockBits(Bmp, gdiR, ImageLockModeRead, PixelFormat32bppARGB, lData)
      If Res = 0 Then
        d3dDev.CreateTexture x, y, 0, D3DUSAGE_NONE Or D3DUSAGE_AUTOGENMIPMAP, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, CreateTextureFromFile
        If Not CreateTextureFromFile Is Nothing Then
          CreateTextureFromFile.LockRect 0, RECT, ByVal 0, 0
          MemCpy ByVal RECT.pBits, ByVal lData.Scan0, x * y * 4
          CreateTextureFromFile.UnlockRect 0
        End If
        GdipBitmapUnlockBits Bmp, lData
      End If
      GdipDisposeImage Bmp
    End If
    GdiplusShutdown GDIP
  End If
End Function


В строке с MemCpy (это CopyMemory) подставить указатель на свой массив и выкинуть всё, связанное с GDI+.

[The trick]

Mikle, можно ускорить использовав ImageLockModeUserInputBuf. GdipBitmapLockBits сразу будет писать данные в текстуру без лишнего MemCpy.

[Mikle]

Интересно, попробую.

[Old_Maple]

Mikle, большое спасибо за оперативность!
Но, насколько я знаю, GDI+ не так быстр, как "простой" GDI, хотя, справедливости ради, в нем есть широкая поддержка альфа-канала.
Попробую использовать это решение!

The trick, большое спасибо и тебе, за то, что откликнулся! А что за лаконичное решение предлагаешь ты? Можешь здесь показать рабочий код?

[Old_Maple]

Mikle, еще раз спасибо! Все работает!
На всякий случай, код получился следующим:

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

Public Function CreateTextureFromArrayRGBA(ArrayRGBA() As Long) As IDirect3DTexture9
 
  Dim RECT As D3DLOCKED_RECT
  Dim X As Long, Y As Long
  X = UBound(ArrayRGBA, 2) + 1
  Y = UBound(ArrayRGBA, 1) + 1
 
  d3dev.CreateTexture X, Y, 0, D3DUSAGE_NONE Or D3DUSAGE_AUTOGENMIPMAP, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, CreateTextureFromArrayRGBA
  If Not CreateTextureFromArrayRGBA Is Nothing Then
   CreateTextureFromArrayRGBA.LockRect 0, RECT, ByVal 0, 0
   memcpy ByVal RECT.pBits, ArrayRGBA(0, 0), X * Y * 4
   CreateTextureFromArrayRGBA.UnlockRect 0
  End If
End Function


[The trick]

Можешь здесь показать рабочий код?

https://github.com/thetrik/DX9VB/blob/m ... n.frm#L182

[Old_Maple]

The trick, спасибо за ссылку.
Как я понял ты имел ввиду вот этот кусок кода:

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

    If GdipBitmapLockBits(hImage, tRC, ImageLockModeRead Or ImageLockModeWrite Or ImageLockModeUserInputBuf, PixelFormat32bppARGB, tBmpData) <> 0 Then
        cRet.UnlockRect 0
        MsgBox "Unable to get image bits", vbCritical
        GoTo CleanUp
    End If


Но дальше, как я понимаю, уйти от memcpy() невозможно (событие Form_MouseMove())?

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

m_cVtxBuf.Lock 0, Len(m_tCorners(0)) * (UBound(m_tCorners) + 1), pVtxData, 0
memcpy ByVal pVtxData, m_tCorners(0), Len(m_tCorners(0)) * (UBound(m_tCorners) + 1)
m_cVtxBuf.Unlock


Или такая возможность все же существует?

[The trick]

The trick, спасибо за ссылку.
Как я понял ты имел ввиду вот этот кусок кода:

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

    If GdipBitmapLockBits(hImage, tRC, ImageLockModeRead Or ImageLockModeWrite Or ImageLockModeUserInputBuf, PixelFormat32bppARGB, tBmpData) <> 0 Then
        cRet.UnlockRect 0
        MsgBox "Unable to get image bits", vbCritical
        GoTo CleanUp
    End If


Но дальше, как я понимаю, уйти от memcpy() невозможно (событие Form_MouseMove())?

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

m_cVtxBuf.Lock 0, Len(m_tCorners(0)) * (UBound(m_tCorners) + 1), pVtxData, 0
memcpy ByVal pVtxData, m_tCorners(0), Len(m_tCorners(0)) * (UBound(m_tCorners) + 1)
m_cVtxBuf.Unlock


Или такая возможность все же существует?

Ну так этот memcpy используется не для текстуры, а для вертексного буфера.

[Old_Maple]

Ну так этот memcpy используется не для текстуры, а для вертексного буфера.

Ой, точно! Моя невнимательность...
У меня еще есть вопросы. А есть ли возможность передавать не всю текстуру, а лишь ее измененную часть? Например, небольшой фрагмент, в серединной части или хотя бы один пиксел?
Чтобы это можно было делать в цикле между рендерами.

[The trick]

У меня еще есть вопросы. А есть ли возможность передавать не всю текстуру, а лишь ее измененную часть? Например, небольшой фрагмент, в серединной части или хотя бы один пиксел?
Чтобы это можно было делать в цикле между рендерами.

Ну локай нужный регион и пиши туда данные, но думаю это не очень эффективно постоянно локать. Какая конечная цель?

[Mikle]

А есть ли возможность передавать не всю текстуру, а лишь ее измененную часть? Например, небольшой фрагмент

А рендер в текстуру точно не подойдёт?

[Old_Maple]

Ну локай нужный регион и пиши туда данные, но думаю это не очень эффективно постоянно локать. Какая конечная цель?

В общем-то я именно так все себе и представляю.
Ну а цель в конечном итоге достаточно проста, но весьма небыстро реализуема. Полная генерация мешей и текстур на предсказуемом генераторе псевдослучайных чисел. Полная программная генерация и тех и других. Ну а для того, чтобы не формировать текстуры в памяти заново иногда бывает полезным вносить лишь небольшие изменения в ранее сгенерированные текстуры, чтобы они несколько отличались от предшествующих.

А рендер в текстуру точно не подойдёт?

Имеешь ввиду при помощи пиксельных шейдеров? С ними у меня пока не получается.

[Mikle]

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

[Old_Maple]

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

Понял. Спасибо за подсказку! Я и не знал, что такое возможно.

[Mikle]

Я и не знал, что такое возможно.

Посмотри в примерах моего старого порта для DX9, там есть это:
https://disk.yandex.ru/d/2L5Yh8Yo39dfnY

[Old_Maple]

Посмотри в примерах моего старого порта для DX9, там есть это:
https://disk.yandex.ru/d/2L5Yh8Yo39dfnY

Спасибо, Mikle, я скачивал данную ссылку. К сожалению, не легко разбираться в чужом коде не снабженном комментариями. То, что очевидно для разработчика не всегда видно тому, кто читает чужие исходники. Это требует серьезного изучения. Но, когда ты пояснил и я увидел твои модули Render Target, все стало на свои места! Еще раз спасибо!

[The trick]

Ну а цель в конечном итоге достаточно проста, но весьма небыстро реализуема. Полная генерация мешей и текстур на предсказуемом генераторе псевдослучайных чисел. Полная программная генерация и тех и других. Ну а для того, чтобы не формировать текстуры в памяти заново иногда бывает полезным вносить лишь небольшие изменения в ранее сгенерированные текстуры, чтобы они несколько отличались от предшествующих.

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

[Old_Maple]

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

The trick, полностью с тобой согласен, что генерацию текстур и сеток лучше осуществлять непосредственно на видео-карте. Это работает на порядок быстрее, а то и больше. Но, на стадии понимания, как работает это все, лучше пока использовать классическую схему.
Дело все в том, что написание даже такого простого алгоритма, как, например, создание карты высот типа "Diamond-Square" в вертексных шейдерах весьма затруднителен. А теперь представим себе, что кроме карты генерации высот, достаточно равномерной, необходимо создание русел рек, горных массивов (хребтов), кратеров и т.п. Это своеобразные алгоритмы, как правило с элементами фрактализации. Разумеется, их лучше выполнять на графических чипах, но, сначала надо понимать степени вложенности рекурсий, чтобы получать достаточно достоверные сетки и текстуры.
Кстати, вот пример программы генерации карты высот (Diamond-Square), который я написал на NVIDIA CUDA. Работает в разы быстрее! Но, справедливости ради следует заметить, что работает это только на картах NVidia.

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

//Запуск процедуры вычисления на ядрах CDU
    int d = SizeOfSqr / 2;
    float v = 1.0f;
    do{      
       DmSqrCDU <<<blocks, threads>>> (dev_Ns, SizeOfSqr, d, v, dev_RndSeed);
      d /= 2;
      v *= Spectre;
    }while (d);

/*===========================================================================/
/         CORE of Diamond-Square Method (CUDA - implementation)             /
/===========================================================================*/
__global__ void DmSqrCDU(float *dev_Ns, const int SizeOfSqr, int d ,const float v, unsigned char *dev_RndSeed){
       int x = blockIdx.x * BLOCK_SIZE + threadIdx.x;
       int y = blockIdx.y * BLOCK_SIZE + threadIdx.y;
       int s = SizeOfSqr - 1;
       int dd = d + d;
       int xdd = (x + dd) & s; 
       int ydd = ((y + dd) & s); 

      if ( !(xdd % dd) && !(ydd % dd)){
         int xd = (x + d) & s;   
                   int yd = ((y + d) & s) * SizeOfSqr;   
         int ys = y * SizeOfSqr;
         int ydds = ydd * SizeOfSqr;
         dev_Ns[ys + xd] =
         (dev_Ns[ys + x] +
         dev_Ns[ys + xdd]) * 0.5f +
         v * (Rnd2DCU(0, ys, xd, dev_RndSeed) - 0.5f);

         dev_Ns[yd + x] =
        (dev_Ns[ys + x] +
         dev_Ns[ydds + x])   * 0.5f +
         v * (Rnd2DCU(1, yd, x, dev_RndSeed) - 0.5f);

         dev_Ns[yd + xd] =
        (dev_Ns[ys + x] +
         dev_Ns[ydds + x] +
           dev_Ns[ys + xdd] +
           dev_Ns[ydds + xdd]) * 0.25f +
         v * (Rnd2DCU(2, yd, xd, dev_RndSeed) - 0.5f);
      }   


[Mikle]

вот пример программы генерации карты высот (Diamond-Square), который я написал на NVIDIA CUDA. Работает в разы быстрее! Но, справедливости ради следует заметить, что работает это только на картах NVidia.

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

[Old_Maple]

Если писать не на CUDA, а на шейдерах, будет работать везде. Но вот не всякий алгоритм хорошо ложится на шейдер. Элементарная нормализация массива к заданному диапазону становится на шейдерах проблемой.

Я понимаю, что шейдерная реализация работает под NVidia и AMD.
Что касаемо нормализации, то если есть возможность ее реализации в CUDA, то и на шейдерах вероятно это можно написать. Насколько я понимаю, CUDA и шейдеры используют ядра видеокарты одни и те же.

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

Разумеется, здесь на первый план выходят - изменение вершин сеток (например, волны на поверхности океана), и изменение текстур, либо целиком (движение туч с изменяемыми облаками, либо фрагментарно (грозы и молнии). И это далеко не всё.
Видел как-то у тебя, Mikle программу по генерации текстур. Правда описания к ней я так и не нашел. Но я серьезно впечатлился! И тогда я понял, что, в принципе, можно сделать полную генерацию окружающего Мира (с генерацией озер, рек, деревьев с листьями, кустарников, травы). Причем это все может быть разнообразным и почти бесконечным (условно, так как предсказуемый генератор псевдослучайных чисел все-таки конечен - 2^64 случайных чисел ) .
И конечно, если использовать ресурсы графических карт при генерации всего этого мира, то это все будет делаться быстро и разнообразно.

[Mikle]

Видел как-то у тебя, Mikle программу по генерации текстур. Правда описания к ней я так и не нашел.

Тут небольшое описание начала и сама программа с примерами: https://gamedev.ru/community/toolcorner ... s/TFScript

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

Перечисленное можно сделать без перезаписи текстур.

[Old_Maple]

Тут небольшое описание начала и сама программа с примерами: https://gamedev.ru/community/toolcorner ... s/TFScript

Спасибо, обязательно потестю!

Перечисленное можно сделать без перезаписи текстур.

Но участки мешей или текстур все равно надо как-то изменять.
Выходит, что подобное можно решить при помощи опять-таки шейдеров?