Вот необходимые шаги для использования шейдера:
в классе приложения объявить поля соответствующие обработчику шейдера -
m_dwSubmarineVertexShader: Cardinal;
в методе CSubmarineD3DApp.Create обнулить данный обработчик
m_dwSubmarineVertexShader := 0;
в методе CSubmarineD3DApp.RestoreDeviceObjects смотри содержимое метода RestoreRenderCausticsStates;
т.е. ввести описания вершин
var
dwSubmarineVertexDecl: array[0..4] of Cardinal;
begin
{...}
//
Create vertex shader for the submarine
dwSubmarineVertexDecl[0] := D3DVSD_STREAM(0);
dwSubmarineVertexDecl[1] := D3DVSD_REG(0, D3DVSDT_FLOAT3); // Position
of first mesh
dwSubmarineVertexDecl[2] := D3DVSD_REG(3, D3DVSDT_FLOAT3); // Normal
dwSubmarineVertexDecl[3] := D3DVSD_REG(6, D3DVSDT_FLOAT2); // Tex coords
dwSubmarineVertexDecl[4] := D3DVSD_END;
{...}
// и загрузить код шейдера из файла
hr
:= D3DUtil_CreateVertexShader(m_pd3dDevice, 'media\shaders\submarine.vsh',
@dwSubmarineVertexDecl, m_dwSubmarineVertexShader);
end;
в методе CSubmarineD3DApp.FrameMove смотри метод AnimateCausticTex;
там в константные регистры АЛУ вершинного шейдера загружаются необходимые данные в таком виде
m_pd3dDevice.SetVertexShaderConstant( 0, vZero, 1);
{...}
Если посмотреть на весь исходный код данного метода, то станет ясно, что это данные мировой, видовой и проекционной матриц, необходимые для обработки данных о вершинах моделей, поступающих в шейдер.
И наконец в методе CSubmarineD3DApp.RenderCaustic происходит установка и использование шейдеров для обработки вершин в таком виде:
// Render the submarine
m_matWorldOfMesh := m_matSubmarine;
SetMatWorldOfMesh;
m_pd3dDevice.SetTexture(0, IDirect3DTexture8(m_pSubmarine.m_pTextures^[0]));
m_pd3dDevice.SetVertexShader(m_dwSubmarineVertexShader);
m_pd3dDevice.SetStreamSource(0, m_pSubmarineVB, sizeof(TVertex));
m_pd3dDevice.SetIndices(m_pSubmarineIB, 0);
m_pd3dDevice.DrawIndexedPrimitive(D3DPT_TRIANGLELIST,
0, m_dwNumSubmarineVertices, 0, m_dwNumSubmarineFaces);
т.е. вершины моделей должны быть предварительно скопированы в вершинный буфер, для того, чтобы их можно было обрабатывать шейдером. Следовательно, предварительно требуется еще и использование вершинных и индексных буферов, в нашем случае это m_pSubmarineVB, m_pSubmarineIB. Как они создаются и используются - смотрите в исходном коде данного примера, который Вы скачали.
применив комментирующие скобки {} закомментируйте следующий блок кода:
// Render the submarine
{
m_matWorldOfMesh
:= m_matSubmarine;
SetMatWorldOfMesh;
m_pd3dDevice.SetTexture(0, IDirect3DTexture8(m_pSubmarine.m_pTextures^[0]));
m_pd3dDevice.SetVertexShader(m_dwSubmarineVertexShader);
m_pd3dDevice.SetStreamSource(0, m_pSubmarineVB, sizeof(TVertex));
m_pd3dDevice.SetIndices(m_pSubmarineIB, 0);
m_pd3dDevice.DrawIndexedPrimitive(D3DPT_TRIANGLELIST,
0, m_dwNumSubmarineVertices, 0, m_dwNumSubmarineFaces);
}
Попробуем поменять шейдеры местами:
найдите кусочек кода -
//
Render the seafloor
m_matWorldOfMesh := m_matSeaFloor;
//SetMatWorldOfMesh;
m_pd3dDevice.SetTexture(0, IDirect3DTexture8(m_pSeaFloor.m_pTextures^[0]));
m_pd3dDevice.SetVertexShader(m_dwSeaFloorVertexShader3);
и строку m_pd3dDevice.SetVertexShader(m_dwSeaFloorVertexShader3); перепишите так:
m_pd3dDevice.SetVertexShader(m_dwSubmarineVertexShader{m_dwSeaFloorVertexShader3}); //этим мы добиваемся подмены используемого вершинного шейдера для морского дна на используемый для подлодки.
Перекомпилируем и запускаем. Ничего не произошло! Что ж, тоже результат. Делаем вывод - эти шейдеры равнозначны! Если теперь попробовать открыть код данного шейдера и намеренно внести в него ошибку, то можно понять как тестировать код шейдера на корректность. Однако мы еще не закончили наши упражнения!
Теперь попробуем по-другому, найдите кусочек кода:
//
Render the seafloor
m_matWorldOfMesh := m_matSeaFloor;
SetMatWorldOfMesh;
и закомментируйте так
//SetMatWorldOfMesh;
