Ohne viel Umschweife komme ich dann mal gleich zum Mulitexturing. Dazu müssen wir zuerst in unseren Delphi-Code. Hier belegen wir zwei Texture-Units mit....ja...mit Texturen (immer diese verdammten Wiederholungen, mein Deusch-Kursleiter würde mich hauen). Danach kommt wieder was Shader-spezifisches: Wir weisen den uniform-Variablen (uniform sampler2D Texture0) im Shader „ihre“ Textur-Einheit zu.

Delphi-Code:
glActiveTextureARB(GL_TEXTURE0_ARB);
glBindTexture(GL_TEXTURE_2D, Textur);
glActiveTextureARB(GL_TEXTURE1_ARB);
glBindTexture(GL_TEXTURE_2D, Textur2);

glUniform1iARB(glGetUniformLocationARB(shader, 'Texture0'), 0);
glUniform1iARB(glGetUniformLocationARB(shader, 'Texture1'), 1);

Nun gehts wieder ab in die Shader! Wieder übergeben wir hier nur die Koordinaten, wenn sie die gleichen (wie in der Beispiel-Demo) sind, würde der Shader von vorhin ausreichen. So spart man sich eine Zeile, soviel zu Performance-Optimierung

Vertexshader:
void main(void)
{
gl_Position= gl_ModelViewProjectionMatrix * gl_Vertex;

gl_TexCoord[0]= gl_MultiTexCoord0;
gl_TexCoord[1]= gl_MultiTexCoord1;
}

Im Fragmentshader auch nicht wirklich was neues: Wir binden die zweite Textur ein und bringen sie mit gl_FragColor ins Spiel. Ich hab im Beispiel-Code einfach mal beide Texturen multipliziert, aber ihr könnt damit eigentlich anstellen, was ihr wollt, probiert einfach mal ein paar Sachen aus!

Fragmentshader:
uniform sampler2D Texture0;
uniform sampler2D Texture1;

void main(void)
{
gl_FragColor= texture2D(Texture0, vec2(gl_TexCoord[0]))
* texture2D(Texture1, vec2(gl_TexCoord[1]));
}