Общие вопросы по программированию графония. (234 стр)

− Скрыть

type
    TVertex2 = packed record
      x, y, z: Single;
      nx, ny, nz: Single;
      tu, tv:    Single;
    end;
    PVertex2 = ^TVertex2;

  CONST
    D3DFVF_VERTEX_NORMAL_TEX3 = D3DFVF_XYZ or D3DFVF_NORMAL or D3DFVF_TEX1;
  var
    FD3D: IDirect3D9;
    FD3DDevice: IDirect3DDevice9;
    FD3DVertexConstant, FD3DVertexConstant1: ID3DXConstantTable;
    BaseTexHandle: TD3DXHandle;
    pCode: ID3DXBuffer;
    n: cardinal;
//...
    D3DXCompileShaderFromFile('ps2.fx', NIL, NIL, 'main', 'ps_1_1', 0, @pCode, NIL, @FD3DVertexConstant1);
    FD3DDevice.CreatePixelShader(pCode.GetBufferPointer, FD3DPixelShader);

    BaseTexHandle := FD3DVertexConstant1.GetConstantByName(NIL, 'FD3Dtexture');

    Result := FD3DVertexConstant1.GetConstantDesc(BaseTexHandle, FD3DCon_Desc, n);
    if (FD3DCon_Desc = nil) then EXIT;
    pCode := NIL;
    //...
    FD3DDevice.SetPixelShader(FD3DPixelShader);
    //...
    with FD3DDevice do begin
      SetStreamSource(0, VB, 0, SizeOf(TVertex2));
      SetFVF(D3DFVF_VERTEX_NORMAL_TEX3);
      SetTexture(0, FD3Dtexture); //Так работает. Если написать FD3DDevice.SetTexture(FD3DCon_Desc.RegisterIndex, FD3Dtexture), выдаёт ошибку
      DrawPrimitive(D3DPT_TRIANGLELIST, 0, 12);
    end;

− Скрыть

// Произведение матриц
float4x4 matWorldViewProject;

// Входные данные
struct VS_INPUT
{
  float4 Pos: POSITION; 
  float2 Tex: TEXCOORD0;
};

// Выходные данные
struct VS_OUTPUT
{
  float4 Pos: POSITION;
  float2 Tex: TEXCOORD0;
};

// Основная процедура вершинного шейдера
VS_OUTPUT main(VS_INPUT In)
{
  // Результат
  VS_OUTPUT Out = (VS_OUTPUT)0;

  // Вычисляем позицию вершины
  Out.Pos = mul(In.Pos, matWorldViewProject);

  // Рассчитываем текстурные координаты
  Out.Tex = In.Tex;
 
  // Возвращаем результат
  return Out;
}

− Скрыть

// Declare a 2D texture sampler
sampler2D FD3Dtexture;
float2 uv_;

// Входные данные
struct VS_INPUT
{
  float4 Pos: POSITION;
  float2 TexCoord : TEXCOORD0;
};

// Основная процедура пиксельного шейдера
float4 main(VS_INPUT In): COLOR0
{
// Результат
  VS_OUTPUT Out = (VS_OUTPUT)0;

  uv_ = Input.TexCoord*0.25; //Игнорирует!!!
  Out = tex2D(FD3Dtexture, uv_);

  // Возвращаем результат
  return Out;
}

− Скрыть

В сети не нашёл ни одного рабочего примера и туториала, чтобы от простого к сложному! Остались только немногие ответы на форумах и статьи в pdf 

− Скрыть

Вы столкнулись с довольно распространённой проблемой при работе с HLSL и DirectX 9 в Delphi 7 — шейдеры компилируются, текстура загружается, геометрия отображается, но изменения в пиксельном шейдере (например, масштабирование UV, модуляция цвета) не видны. Это может быть связано с несколькими причинами, и мы их разберём по порядку.

🔍 Основная ошибка: Синтаксис пиксельного шейдера (HLSL) не соответствует ps_1_1
Вы компилируете шейдер как:

pascal

1
D3DXCompileShaderFromFile('ps2.fx', NIL, NIL, 'main', 'ps_1_1', 0, @pCode, NIL, @FD3DVertexConstant1);
Но в вашем шейдере используется синтаксис для ps_2_0 и выше, а не ps_1_1.

❌ Проблема 1: ps_1_1 не поддерживает произвольные вычисления в пиксельном шейдере
Что такое ps_1_1?
Это очень старый уровень пиксельных шейдеров (Pixel Shader 1.1).
Он не поддерживает:
Произвольные арифметические операции (например, TexCoord * 0.25).
Объявление структур в пиксельном шейдере.
sampler2D как глобальную переменную.
Вызов tex2D() с изменёнными координатами.
Даже float4 main(...) — это синтаксис ps_2_0+.
В ps_1_1 можно только:

Использовать фиксированные текстурные координаты.
Комбинировать текстуры с помощью фиксированных блоков текстурирования (TSS).
Нельзя писать "произвольный код" — только жёстко заданные комбинации.
✅ Решение: Используйте ps_2_0 вместо ps_1_1
Измените строку компиляции:

pascal

1
D3DXCompileShaderFromFile('ps2.fx', NIL, NIL, 'main', 'ps_2_0', 0, @pCode, NIL, @FD3DVertexConstant1);
⚠️ Убедитесь, что ваша видеокарта поддерживает ps_2_0. Большинство карт после 2003 года поддерживают.

❌ Проблема 2: Ошибки в HLSL коде пиксельного шейдера
Ваш пиксельный шейдер содержит несколько синтаксических и логических ошибок:

hlsl

// Declare a 2D texture sampler
sampler2D FD3Dtexture;
float2 uv_;

// Входные данные
struct VS_INPUT
{
  float4 Pos: POSITION;
  float2 TexCoord : TEXCOORD0;
};

// Основная процедура пиксельного шейдера
float4 main(VS_INPUT In): COLOR0
{
// Результат
  VS_OUTPUT Out = (VS_OUTPUT)0;

  uv_ = Input.TexCoord*0.25; //Игнорирует!!!
  Out = tex2D(FD3Dtexture, uv_);

  // Возвращаем результат
  return Out;
}
Ошибки:
VS_OUTPUT Out = (VS_OUTPUT)0; — вы пытаетесь использовать структуру VS_OUTPUT, которой нет в пиксельном шейдере.
Input.TexCoord — переменная называется In, а не Input.
Out = tex2D(...) — tex2D возвращает float4, но Out — это структура, а не цвет.
uv_ — глобальная переменная, но она не нужна.
✅ Правильный пиксельный шейдер для ps_2_0:
hlsl

// Пиксельный шейдер: ps2.fx

// Объявляем сэмплер
sampler2D FD3Dtexture : register(s0);

// Вход от вершинного шейдера
struct PS_INPUT
{
    float4 Pos : POSITION;
    float2 TexCoord : TEXCOORD0;
};

// Пиксельный шейдер
float4 main(PS_INPUT In) : COLOR0
{
    // Масштабируем UV
    float2 uv = In.TexCoord * 0.25;

    // Сэмплируем текстуру
    float4 color = tex2D(FD3Dtexture, uv);

    // Можно модулировать цвет
    // color.rgb *= 0.5; // затемнить
    // color.a = 1.0;    // сделать непрозрачным

    return color;
}
Обратите внимание:

register(s0) — явно указывает, что текстура будет в sampler0.
tex2D работает только в ps_2_0 и выше.
Нет структур VS_OUTPUT — в пиксельном шейдере мы возвращаем просто float4.
❌ Проблема 3: Работа с константами и сэмплерами
Вы делаете:

pascal

1
BaseTexHandle := FD3DVertexConstant1.GetConstantByName(NIL, 'FD3Dtexture');
Но FD3Dtexture — это sampler, а не константа. Вы не должны устанавливать его через SetPixelShaderConstant*.

✅ Как правильно работать с текстурой в шейдере:
Убедитесь, что сэмплер в HLSL объявлен с register(s0):
hlsl

1
sampler2D FD3Dtexture : register(s0);
В Delphi просто привяжите текстуру к слоту 0:
pascal

1
FD3DDevice.SetTexture(0, FD3Dtexture);
Это достаточно. Больше ничего не нужно.
❌ Не нужно получать хендл через GetConstantByName и устанавливать через константную таблицу — это для матриц, векторов и т.п.
✅ Проверенный рабочий пример
1. Вершинный шейдер (vs.fx):
hlsl

float4x4 matWorldViewProject;

struct VS_INPUT
{
    float4 Pos : POSITION;
    float2 Tex : TEXCOORD0;
};

struct VS_OUTPUT
{
    float4 Pos : POSITION;
    float2 Tex : TEXCOORD0;
};

VS_OUTPUT main(VS_INPUT In)
{
    VS_OUTPUT Out;
    Out.Pos = mul(In.Pos, matWorldViewProject);
    Out.Tex = In.Tex;
    return Out;
}
2. Пиксельный шейдер (ps.fx):
hlsl

sampler2D FD3Dtexture : register(s0);

struct PS_INPUT
{
    float4 Pos : POSITION;
    float2 Tex : TEXCOORD0;
};

float4 main(PS_INPUT In) : COLOR0
{
    float2 uv = In.Tex * 0.25; // масштабируем UV
    return tex2D(FD3Dtexture, uv);
}
3. Delphi: компиляция и установка
pascal

var
  pCode, pErrorMsgs: ID3DXBuffer;
  pPS: IDirect3DPixelShader9;
begin
  // Компиляция пиксельного шейдера
  if D3DXCompileShaderFromFile(
    'ps.fx', nil, nil, 'main', 'ps_2_0', 0,
    @pCode, @pErrorMsgs, nil) <> S_OK then
  begin
    // Выведите pErrorMsgs для отладки
    ShowMessage('Ошибка компиляции шейдера');
    Exit;
  end;

  // Создание пиксельного шейдера
  if FD3DDevice.CreatePixelShader(pCode.GetBufferPointer, pPS) <> S_OK then
  begin
    ShowMessage('Ошибка создания пиксельного шейдера');
    Exit;
  end;

  // Установка
  FD3DDevice.SetPixelShader(pPS);

  // Установка текстуры
  FD3DDevice.SetTexture(0, FD3Dtexture); // привязка к sampler0

  // Рисование
  FD3DDevice.SetStreamSource(0, VB, 0, SizeOf(TVertex2));
  FD3DDevice.SetFVF(D3DFVF_VERTEX_NORMAL_TEX3);
  FD3DDevice.DrawPrimitive(D3DPT_TRIANGLELIST, 0, 12);

  // Восстановление
  FD3DDevice.SetPixelShader(nil);
  pPS.Release;
end;
🔧 Дополнительные советы
Проверьте поддержку ps_2_0:
pascal

var Caps: TD3DCaps9;
FD3DDevice.GetDeviceCaps(Caps);
if Caps.PixelShaderVersion < D3DPS_VERSION(2,0) then
  ShowMessage('ps_2_0 не поддерживается');
Логируйте ошибки компиляции:
pascal

if Failed(D3DXCompileShaderFromFile(..., @pErrorMsgs)) then
  if pErrorMsgs <> nil then
    ShowMessage(PChar(pErrorMsgs.GetBufferPointer));
Используйте fxc.exe для тестирования шейдеров вне Delphi:

1
fxc /T ps_2_0 /E main ps.fx /Fo ps.bin
📚 Где искать туториалы?
Microsoft DirectX 9 Graphics Documentation (архив)
Книга: "Introduction to 3D Game Programming with DirectX 9.0c: A Shader Approach" by Frank Luna — лучшее, что было для DX9.
Примеры из DirectX SDK (June 2010) — там есть BasicHLSL, Tutorial07 и т.д.
✅ Вывод
Основная причина, почему ваш пиксельный шейдер не работает:

❌ Вы используете ps_1_1, но пишете код как для ps_2_0+.

Что нужно сделать:
✅ Смените профиль на ps_2_0.
✅ Почините HLSL-код пиксельного шейдера.
✅ Убедитесь, что текстура привязана к sampler0 через SetTexture(0, ...).
✅ Убедитесь, что видеокарта поддерживает ps_2_0.
После этого uv = TexCoord * 0.25 будет работать, цвет можно будет модулировать и т.д.

Если после этого всё равно не работает — пришлите полный текст шейдера и ошибки компиляции (если есть), помогу дебажить.

− Скрыть