//Vertexshader

void main(void)

{

    gl_Position = gl_ModelViewProjectionMatrix * gl_Vertex;

    gl_FrontColor = gl_Color;

}

 

 

//Fragmentshader

void main(void)

{

    gl_FragColor = gl_Color;

}

 

 

var VertexShaderList,FragmentShaderList: TStringList;

    VertexShaderText,FragmentShaderText:String;

    VertexShaderLength,FragmentShaderLength: Integer;

begin

  //Shader laden

  //Shaderscripte laden

  VertexShaderList:=TStringList.Create;

  FragmentShaderList:=TStringList.Create;

  VertexShaderList.LoadFromFile('Shader\Testshader\test.vert');

  FragmentShaderList.LoadFromFile('Shader\Testshader\test.frag');

  VertexShaderText:=VertexShaderList.Text;

  FragmentShaderText:=FragmentShaderList.Text;

  VertexShaderLength:=Length(VertexShaderText);

  FragmentShaderLength:=Length(FragmentshaderText);

  //Shaderscripte freigeben

  VertexShaderList.Free;

  FragmentShaderList.Free;

 

  //Shader erstellen

  ProgramObject:=glCreateProgramObjectARB;

  VertexShaderObject:=glCreateShaderObjectARB(GL_VERTEX_SHADER_ARB);

  FragmentShaderObject:=glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);

  glShaderSourceARB(VertexShaderObject,1,@VertexShaderText,@VertexShaderLength); //Shader zuweisen

  glShaderSourceARB(FragmentShaderObject,1,@FragmentShaderText,@FragmentShaderLength);

 

 

  //Shader Compilieren

  glCompileShaderARB(VertexShaderObject);

  MessageDlg('VertexShader: '+glSlang_GetInfoLog(VertexShaderObject),mtError,[mbOK],0);

  glCompileShaderARB(FragmentShaderObject);

  MessageDlg('FragmentShader: '+glSlang_GetInfoLog(FragmentShaderObject),mtError,[mbOK],0);

 

  //Shader mit Shaderprogramm binden

  glAttachObjectARB(ProgramObject,VertexShaderObject);

  glAttachObjectARB(ProgramObject,FragmentShaderObject);

 

  //Shader Ressourcen freigeben

  glDeleteObjectARB(VertexShaderObject);

  glDeleteObjectARB(FragmentShaderObject);

 

  //Shaderprogramm zum ausführbaren Programm gelinkt

  glLinkProgramARB(ProgramObject);

 

  glUseProgramObjectARB(ProgramObject); //Shader benutzten