procedure TForm1.LoadShader(ASourceType,AShaderType:integer;Filename:string);

var srctype  : TCGenum;

begin

 

    //Quelltyp auswählen

    case ASourceType of

      assSource   : srctype := CG_SOURCE;

      assCompiled : srctype := CG_OBJECT;

    end;

 

    case AShaderType of

      astVertex   : FProfile := cgGLGetLatestProfile(CG_GL_VERTEX);

      astFragment : FProfile := cgGLGetLatestProfile(CG_GL_FRAGMENT);

    end;

 

    //Profile setzen

    cgGLSetOptimalOptions(FProfile);

 

    FProgram := cgCreateProgramfromFile(FContext, srctype, 'cgFragmentExample.cg',

                FProfile,nil, nil);

 

    CheckCgError;

 

    cgGLLoadProgram(FProgram);

 

    cgGLEnableProfile(FProfile);

    cgGLBindProgram(FProgram);

 

    CheckCgError;

 

    //cgGLDisableProfile(aProfile);

    //cgGLUnbindProgram(aProfile); 

end;

 

float4 main ( half4 primary : COLOR,

                  half2 uv       : TEXCOORD0,

                  uniform sampler2D texture): COLOR

{

     float4 texel = tex2D(texture,uv);

     return texel * primary;

}