- var
- fpid : GLUInt;
- FP : TStringList;
- (...)
- If not glext_LoadExtension('GL_ARB_FRAGMENT_PROGRAM') Then
- begin
- MessageDlg('ARB_FRAGMENT_PROGRAM Extension could not be loaded!',
- mtError,
- [mbOk],
- 0);
-
- Halt(1);
- end
- Else
- begin
- Fp := TStringList.Create();
- FP.LoadFromFile('D:\Borland\Delphi7\Projects\OpenGL\Engine\Shader\fptex.txt');
- glEnable(FRAGMENT_PROGRAM_ARB);
- glGenProgramsARB(1,
- @fpid);
- glBindProgramARB(FRAGMENT_PROGRAM_ARB,
- fpid);
- glProgramStringARB(FRAGMENT_PROGRAM_ARB,
- PROGRAM_FORMAT_ASCII_ARB,
- fp.Count,
- @fp);
- end;