Шейдеры (HLSL) и OpenGL

[ImmortalAlexSan]

Всем привет. Подскажите пожалуйста, желательно кодом, как вытащить из файла *.txt, где лежит код шейдера переменную типа SamplerCube, в программе задать ей значение и загнать опять в шейдер. Ищу-ищу, - никак найти не могу. Какой тип этой переменной соответствует в языке программирования c/delphi? И какую функцию юзать из glUniform, чтобы обратно запихнуть в шейдер значение?

[Warn]

квик реф огл33 там глянь раздел по глсл квик реф. столбик с типами.
samplerCube - float
isamplerCube - int
usamplerCube - unsigned int

glUniform1f /i /u - В зависимости от семплера в шейдере.

ищи в тексте код, который отвечает за фрагментный шейдер строку, начало которой что-то вроде -->
uniform samplerСube mySuperPuperCubemap

узнаешь локацию так ->
cubeTexLocation = glGetUniformLocation(ShaderProgram, 'mySuperPuperCubemap');

задаешь значение семплеру так ->
glUniform1f(cubeTexLocation, value )

[ImmortalAlexSan]

Warn, с этим разобрался, благодаря помощи. Хочу проверить правильность работы с кубической текстурой перед тем, как запихнуть её в шейдер. Т.е. вырубаю шейдер, и делаю следующее:

...
var
 CubeMapTexture : GLuint;

...//Где-то до цикла рисования
loadTexture(имя файла, CubeMapTexture);
CreateCubeMap(@CubeMapTexture);

glEnable(GL_TEXTURE_CUBE_MAP_ARB);
glBegin;
 //Рисую обычный кубик (6 сторон с нормалями)
glEnd;
glDisable(GL_TEXTURE_CUBE_MAP_ARB);

процедура инициализации cubemap примерно следующая:

procedure CreateCubeMap(texture : PGLuint);
begin
 glGenTextures(1, PGLuint);
 glPixelStorei(GL_UNPACK_ALIGNMENT, 1);
 glBindTexture(GL_TEXTURE_CUBE_MAP_ARB, ^texture);
 glTexEnvi ( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE );
 
 glTexParameteri ( GL_TEXTURE_CUBE_MAP_ARB, GL_TEXTURE_WRAP_S,  GL_CLAMP_TO_EDGE );
 glTexParameteri ( GL_TEXTURE_CUBE_MAP_ARB, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE );;
 glTexParameteri ( GL_TEXTURE_CUBE_MAP_ARB,  GL_TEXTURE_MIN_FILTER,                   GL_LINEAR_MIPMAP_LINEAR );
 glTexParameteri ( GL_TEXTURE_CUBE_MAP_ARB,  GL_TEXTURE_MAG_FILTER, GL_LINEAR );
 for i := 0 to 5 do
  glTexImage2D(GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB + i, 0, GL_RGB, 32, 32, 0,  GL_RGB, GL_UNSIGNED_BYTE, nil);
end;

Но кубик окрашивается просто в какой-то непонятный цвет (зеленоватый и никакая текстура на него не натягивается). Наверное я где-то что-то не дописал... Но где? А когда подключаю шейдер, то зеленоватый цвет превращается в ярко зеленый...

[Warn]

//Рисую обычный кубик (6 сторон с нормалями)

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

type vertex = record
  pos : vec3 - позиция
  norm : vec3 - нормаль
  tex : vec3 - текстурные координаты(вектор направления vec3(S, T, R))
end;

нивидия tut прочитай Mapping Texture Coordinates to Cube Map Faces и далее - в конце тутора.