ProgramObject := glCreateProgram;

    sl := TStringList.Create;

 

    //Vertex Shader (ppl)

    VS := glCreateShader(GL_VERTEX_SHADER);

    sl.LoadFromFile('..\data\shadertest\easytl.vs');

    str := sl.Text;

    strlen := Length(sl.Text);

    glShaderSource(ProgramObject,1,PPGLChar(str),@strlen);

    glCompileShader(VS);

    {$IFDEF DEBUG}

      if IsConsole then

      begin

        WriteLn(glGetShaderLog(VS));

        WriteLn(sl.Text);

      end;

    {$ENDIF}

    glAttachShader(ProgramObject,VS);

    glDeleteShader(VS);

    //Fragment Shader (ppl)

    FS := glCreateShader(GL_FRAGMENT_SHADER);

    sl.LoadFromFile('..\data\shadertest\easytl.fs');

    str := sl.Text;

    strlen := Length(sl.Text);

    glShaderSource(ProgramObject,1,PPGLChar(str),@strlen);

    glCompileShader(FS);

    {$IFDEF DEBUG}

      if IsConsole then

      begin

        WriteLn(glGetShaderLog(FS));

        WriteLn(sl.Text);

      end;

    {$ENDIF}

    glAttachShader(ProgramObject,FS);

    glDeleteShader(FS);

 

    glLinkProgram(ProgramObject);

 

 

 

 

void main(void)

{

  gl_Position = gl_ModelViewProjectionMatrix * gl_Vertex;

  gl_FrontColor = gl_Color;

}

 

 

 

 

void main(void)

{

 gl_FragColor = vec4(1.0, 1.0, 1.0, 1.0);

}

 

 

Function gsGenShader(AProgramType: TProgramType;

                   AText: TStringList;

                   AProgram: LongWord;

                   Var ShaderError: AnsiString): LongWord;

 

Var

   LocalShader: LongWord;

   LocalText: AnsiString;

   TextSize: LongInt;

Begin

   Case AProgramType Of

        prgVertex: LocalShader:= glCreateShader(GL_VERTEX_SHADER);

      prgFragment: LocalShader:= glCreateShader(GL_FRAGMENT_SHADER);

   End;

 

   LocalText:= AText.Text;

   TextSize:= Length(LocalText);

   glShaderSource(LocalShader,1,@LocalText,@TextSize);

 

glShaderSource(PROGRAMOBJECT,...);

glShaderSource(SHADEROBJECT,...);