- 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;