DGL • Thema anzeigen - Erster Shader Versuch: Fehlschlag

Erster Shader Versuch: Fehlschlag

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Lord Horazont

Betreff des Beitrags: Erster Shader Versuch: Fehlschlag

Verfasst: Di Aug 15, 2006 13:13

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Hi @ll

nachdem ich mir mal die Beispiele im 2006-er SDK angeschaut habe, dacht ich mir, dass man mit Shadern mit wenig Aufwand doch einiges schaffen kann.
Also hab ich mir auch gleich das glSlang-Tutorial im Wiki durchgelesen. Allerdings mit bescheidenem Erfolg: Als ich das ganze implementiert habe, hat sich keine wirkung gezeigt. Die GetLogInfo-Funktionen werfen nur leere zurück. Im Rendering kann ich keine Veränderung entdecken, obwohl mein Fragment-Shader die Farbe auf 0.0,0.0,0.0,0.0 setzt. Aber jeden Frame bekomme ich ein invalid operation, wenn ich glUniform4fARB aufrufe und die Betrachterposition übergeben will (wollte mal versuchen nen Nebel-Shader zu schreiben).

Wo liegt mein Fehler?

Code:

 
var
  ProgramObject, FragmentShaderObject, VertexShaderObject: GLHandleARB;
  FShader: TStringList;
  FShaderText: String;
  FShaderLength: Integer;
  VShader: TStringList;
  VShaderText: String;
  VShaderLength: Integer;
  Log: PChar;
  LogLength: Integer;
begin
  if FileExists(FFilename) and FileExists(VFilename) then
  begin
    ProgramObject := glCreateProgramObjectARB;
 
    FragmentShaderObject := glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);
    VertexShaderObject := glCreateShaderObjectARB(GL_VERTEX_SHADER_ARB);
 
    FShader := TStringList.Create;
    FShader.LoadFromFile(FFilename);
    FShaderText := FShader.Text;
    FShaderLength := Length(FShaderText);
    FShader.Destroy;
 
    VShader := TStringList.Create;
    VShader.LoadFromFile(VFilename);
    VShaderText := VShader.Text;
    VShaderLength := Length(VShaderText);
    VShader.Destroy;
 
    glShaderSourceARB(VertexShaderObject, 1, @VShaderText, @VShaderLength);
    glShaderSourceARB(FragmentShaderObject, 1, @FShaderText, @FShaderLength);
 
    glCompileShaderARB(FragmentShaderObject);
    WriteLn(glSlang_GetInfoLog(FragmentShaderObject));
    glCompileShaderARB(VertexShaderObject);
    WriteLn(glSlang_GetInfoLog(VertexShaderObject));
 
    glAttachObjectARB(ProgramObject, VertexShaderObject);
    glAttachObjectARB(ProgramObject, FragmentShaderObject);
 
    glDeleteObjectARB(FragmentShaderObject);
    glDeleteObjectARB(VertexShaderObject);
 
    glLinkProgramARB(ProgramObject);
 
 
    WriteLn(glSlang_GetInfoLog(ProgramObject));
 
    Result := ProgramObject;
  end
  else
  begin
    WriteLn(FFilename);
    WriteLn(VFilename);
    WriteLn('Shader not found');
    raise Exception.Create('');
  end;
end;
 

- ja die Shader werden geladen.

Code:

 
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;
 
  glTranslatef(0, 0, -5);
  glRotatef(XRotation, 1, 0, 0);
  glRotatef(YRotation, 0, 1, 0);
 
 
  glUniform4fARB(glGetUniformLocationARB(ProgramObject, PGLCharARB('viewpos')), 0.0, 0.0, -5.0, 1.0);
  glColor3f(0, 0.75, 1);
  glBegin(GL_QUADS);
    glVertex3f(-10, 0, -10);
    glVertex3f(-10, 0, 10);
    glVertex3f(10, 0, 10);
    glVertex3f(10, 0, -10);
  glEnd;
 
 
 
  //Error Handler
  Error := glgetError;
  if Error <> GL_NO_ERROR then
  begin
    Caption := gluErrorString(Error);
    //Rendering kurz anhalten
    Done := True;
    FlashWindow(Handle, True)
  end;
  //Frame Counter
  Inc(Frames);
  if GetTickCount - StartTick >=500 then
  begin
    FrameText := Format('FPS: %f x:%f° y:%f°', [Frames/(GetTickCount - StartTick)*1000, XRotation, YRotation]);
    Frames := 0;
    StartTick := GetTickCount
  end;
  //Und anzeigen
  SwapBuffers(Canvas.Handle)
 

- und hier wird gerendert.

Vertex-Shader

Code:

 
varying vec4 vpos;
 
void main(void)
{
  vpos            = gl_Vertex;
  gl_Position     = gl_ModelViewProjectionMatrix * gl_Vertex;
  gl_TexCoord[0]  = gl_MultiTexCoord0;
}
 

Fragment-Shader

Code:

 
uniform vec4 viewpos;
varying vec4 vpos;
 
 
void main(void)
{
  gl_FragColor  = vec4(0.0,0.0,0.0,0.0);
}
 

P.S.
Was mich noch interessiert: Kann man im Fragment-Shader irgendwie auslesen, welche Farbe vom Programm gesetzt wurde? (In meinem Fall: glColor3f(0.0, 0.75, 1.0);)

Gruß Lord Horazont

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Di Aug 15, 2006 13:47

DGL Member

Registriert: Mi Jul 17, 2002 12:07
Beiträge: 976
Wohnort: Tübingen

Du musst vor dem Zeichnen glUseProgram(ProgramObject) aufrufen, das lässt sich genauso wie glBindTexture handhaben.

Die Farbe, die per glColor3f(...) dem Vertex übergeben wurde, lässt sich ganz einfach durch das vordefinierte Attribut (read only!) gl_Color auslesen.

_________________
"Du musst ein Schwein sein in dieser Welt, sangen die Prinzen, das ist so 1.0. Du musst auf YouTube zeigen, dass dir dein Schweinsein gefällt, das ist leuchtendes, echtes Web 2.0."
- Hal Faber
Meine Homepage: http://laboda.delphigl.com

Nach oben

Lord Horazont

Betreff des Beitrags:

Verfasst: Di Aug 15, 2006 15:03

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Autsch.
Darauf hätte ich auch kommen können.

Trotzdem (oder gerade deswegen :wink:

): Danke!

Gruß Lord Horazont

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Shader

Wer ist online?

Mitglieder in diesem Forum: Bing [Bot] und 4 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.