- procedure TForm2.Button5Click(Sender: TObject);
- var
- FragmentShaderObject : GLhandle;
- ShaderText: String;
- ShaderLength: Integer;
- Shader: TStringList;
- const
- tc_offsetArr: array[0..8] of Single = (1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0);
- begin
- showmessage(gluErrorString(glGetError));
- Shader := TStringList.Create;
- try
- Shader.LoadFromFile('Shader_Blur_frag.txt');
- ShaderText := Shader.Text;
- ShaderLength := Length(ShaderText);
- FragmentShaderObject := glCreateShader(GL_FRAGMENT_SHADER);
- glShaderSource(FragmentShaderObject, 1, @ShaderText, @ShaderLength);
- glCompileShader(FragmentShaderObject);
- ShowMessage(GetInfoLog(FragmentShaderObject));
- ProgramObject := glCreateProgram;
- glAttachShader(ProgramObject, FragmentShaderObject);
- glDeleteShader(FragmentShaderObject);
- glLinkProgram(ProgramObject);
- glUniform1i(glGetUniformLocation(ProgramObject, PGLCharARB('sampler0')), 1);
- glUniform2fvARB(glGetUniformLocation(ProgramObject, PGLCharARB('tc_offset')), 9,
- @tc_offsetArr);
- finally
- Shader.Free;
- end;
- end;
Hallo zusammen und frohe Ostern!
Habe ein kleines Demo-Projektchen aufgesetzt um mit Shaderen warm zu werden.
Ich render in der Scene ein Quad mit einer Textur drauf.
Den Shadercode den ich testen möchte, habe ich von hier:
http://www.blitzbasic.com/Community/posts.php?topic=85263
Hier der Code um den Shader zu initialisieren:
Code:
Hier der Code des Fragmentshaders:
Code:
- // blur (low-pass) 3x3 kernel
- uniform sampler2D sampler0;
- uniform vec2 tc_offset[9];
- void main(void)
- {
- vec4 sample[9];
- for (int i = 0; i < 9; i++)
- {
- sample[i] = texture2D(sampler0,
- gl_TexCoord[0].st + tc_offset[i]);
- }
- // 1 2 1
- // 2 1 2 / 13
- // 1 2 1
- gl_FragColor = (sample[0] + (2.0*sample[1]) + sample[2] +
- (2.0*sample[3]) + sample[4] + (2.0*sample[5]) +
- sample[6] + (2.0*sample[7]) + sample[8]) / 13.0;
- }
Von der Fehlermeldung habe ich einen Screenshot gemacht.
Erst hatte ich in meiner Verzeiflung angenommen, das hier kein Kommentar im Code gewünscht ist.
Somit habe ich die Zeile "// blur (low-pass) 3x3 kernel" entfernt.
Nun habe ich selbige Fehlermeldung nur mit "u" bekommen anstatt mit "/".
Hat jemand eine Ahnung was ich falsch mache?
Ich bin auch die "Checkliste" im Wiki durchgegangen!
| Dateianhänge: |
|
Dateikommentar: Fehlermeldung GLSL_Error.jpg [ 14.1 KiB | 6444-mal betrachtet ] |