DGL • Thema anzeigen - @ Tutorial - OpenGL 3.3 und Lazarus

@ Tutorial - OpenGL 3.3 und Lazarus

Moderator: DGL-Team

Seite 3 von 3

[ 42 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

mathias

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: Fr Mai 05, 2017 17:27

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Flash hat geschrieben:

Hi Mattias, da du hier so fleißig Tutorial schreibst, hast du dir eigentlich mal überlegt mit zum DGL-Treffen zu kommen? Wäre cool.

Sicher wäre es interessant, aber solch weite Reisen sind überhaupt nicht mein Ding. Mir reicht es schon, wen ich nur von Zürich nach Bern fahren muss.

_________________
OpenGL

Nach oben

Lord Horazont

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: So Aug 13, 2017 09:47

DGL Member

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

Diskussion über Git in eigenen Thread verschoben.

_________________
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

Polarwolf

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: Sa Aug 26, 2017 15:02

DGL Member

Registriert: Mi Jun 05, 2013 15:12
Beiträge: 166
Wohnort: Glinde
Programmiersprache: Delphi 7

Hallo Mathias,

Ich habe auch gerade mit deinem Tutorial angefangen.
Nur leider habe ich bereits bei "05 - Context erzeugen" versagt.
Mein Problem war zu erkennen woher der ogc kommt.
Oder anders gesagt.

Zitat:

Man kann die TOpenGLControl-Komponente auch über die Komponenten-Leiste auf dem Form erzeugen.
Aber meine Erfahrung hat gezeigt, wenn man eine neuere Lazarus-Version installiert, dass es dann zu Problemen kommen kann.

Nein, konnte ich nicht. Deine Erfahrung stimmt.
Erst nachdem ich in der Source.zip schaute, wusste ich etwas damit anzufangen.

Code:

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
     ogc: TOpenGLControl;
    procedure InitScene;
    procedure DrawScene(Sender: TObject);
  public
  end;  

Gruß der dumme Wolf

_________________
幸福は笑う人に来て ~~ koufuku wa warau hito ni kite
Das Glück kommt zu denen die lachen

Nach oben

mathias

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: Sa Aug 26, 2017 19:43

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Zitat:

Nein, konnte ich nicht. Deine Erfahrung stimmt.

Das wird wohl auch der Grund sein, wieso das die Coder von den Lazarus Examples den Context auch dynamisch zur Laufzeit erzeigen.

Zitat:

Mein Problem war zu erkennen woher der ogc kommt.

Das muss ich wohl ein bisschen übersichtlicher machen. :wink:

Zitat:

Ich habe auch gerade mit deinem Tutorial angefangen.

Wen etwas unklar ist, einfach melden.

PS:

Zitat:

Nur leider habe ich bereits bei "05 - Context erzeugen" versagt.

Ich habe dies angepasst, hoffentlich ist es jetzt verständlicher. :wink:

_________________
OpenGL

Nach oben

Polarwolf

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: Di Aug 29, 2017 14:27

DGL Member

Registriert: Mi Jun 05, 2013 15:12
Beiträge: 166
Wohnort: Glinde
Programmiersprache: Delphi 7

Ahoi,
wie sieht es eigentlich mit der "Objectselektion" aus?
Machst du darüber auch noch ein Tutorial oder ist es möglich den Code aus der Delphi Wiki zu benutzen/modifizieren?

Gruß Wolf

_________________
幸福は笑う人に来て ~~ koufuku wa warau hito ni kite
Das Glück kommt zu denen die lachen

Nach oben

mathias

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: Di Aug 29, 2017 17:04

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Zitat:

wie sieht es eigentlich mit der "Objectselektion" aus?

Dies ist mir zu komplex, mit sowas habe ich mich nicht befasst.

Bei meinem Tutorial geht es mehr darum, wie man Objekte rendern kann.

Was ich als nächstes plane, ist Alpha-Blending.

_________________
OpenGL

Nach oben

Polarwolf

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: Sa Nov 11, 2017 14:10

DGL Member

Registriert: Mi Jun 05, 2013 15:12
Beiträge: 166
Wohnort: Glinde
Programmiersprache: Delphi 7

Die oglShader.pas in der Zeile 263 ein Range check Error.

// Check Shader

glGetShaderiv(ShaderObject, GL_COMPILE_STATUS, @ErrorStatus);
glGetShaderiv(ShaderObject, GL_INFO_LOG_LENGTH, @InfoLogLength);
SetLength(Str, InfoLogLength);
glGetShaderInfoLog(ShaderObject, InfoLogLength, @InfoLogLength, @Str[1]);
if ErrorStatus = GL_FALSE then begin
WriteLog('SHADER FEHLER: OpenGL Shader Fehler (' + IntToStr(shaderType) + ') in : ' + AShader + sLineBreak + sLineBreak + Str);
Halt;
end;

Ich vermute das @Str[1] nicht vorhanden ist.

Hab es auf 7 PC's getestet und bei 3en kommt:

Code:

 
Range check error If you compiled your program with range checking on, then you can get this error in the following cases: 1.An array was accessed with an index outside its declared range. 
Trying to assign a value to a variable outside its range (for instance an enumerated type).

https://www.freepascal.org/docs-html/user/userap4.html

Gebe es dafür eine neue Version

Ausklammern funktioniert, aber ist eine doofe lösung des Problems.

_________________
幸福は笑う人に来て ~~ koufuku wa warau hito ni kite
Das Glück kommt zu denen die lachen

Nach oben

mathias

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: Sa Nov 11, 2017 16:34

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Kannst du mal dies hier versuchen ?

Code:

SetLength(Str, InfoLogLength + 1);

Es könnte sein, das der Treiber noch ein #0 hinten ran schreiben will, und dann wäre der String 1 zu lange.

Bei folgender Zeile kann man ein nil einfügen.

Code:

glGetShaderInfoLog(ShaderObject, InfoLogLength, nil, @Str[1]);

Kannst du mal testen, ob es bei dir auch funktioniert ?

Tritt das Problem bei dir bei 01_-_Einrichten_und_Einstieg/15_-_Erster_Shader auch auf ?

_________________
OpenGL

Nach oben

Polarwolf

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: So Nov 12, 2017 21:23

DGL Member

Registriert: Mi Jun 05, 2013 15:12
Beiträge: 166
Wohnort: Glinde
Programmiersprache: Delphi 7

Der fehler selber tritt nun nicht mehr auf.
Allerdings kommen nun 3 Neue.

Code:

Uniform Fehler x: -1
Uniform Fehler y: -1
Uniform Fehler z: -1

Die genaue Herkunft ist mir nicht bekannt, könnte aber aus meinem Vertexshader stammen.

Code:

#version 330
 
layout (location = 0) in vec3 inPos; // Vertex-Koordinaten
layout (location = 10) in vec2 inUV;  // Textur-Koordinaten
 
uniform float x;                      // Richtung von Uniform
uniform float y;
uniform float z;
uniform mat4 mat;
 
out vec2 UV0;
 
void main(void)
{
  vec3 pos;
  pos.x = inPos.x + x;                  // verschiebung des Objekts
  pos.y = inPos.y + y;
  pos.z = inPos.z + z;
  gl_Position = mat * ( vec4(inPos, 1.0)+vec4(pos, 1.0));
 
  UV0 = inUV;                           // Textur-Koordinaten weiterleiten.
}

@edit:
Ich habe das Projekt bei mir auf dem Laptop geschrieben und dann erst später bei einem Freund den Fehler festgestellt.
Aber bei 01_-_Einrichten_undEinstieg/15-_ErsterShader ist alles ok. hab es gerade auf seinem PC getestet.

_________________
幸福は笑う人に来て ~~ koufuku wa warau hito ni kite
Das Glück kommt zu denen die lachen

Nach oben

mathias

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: So Nov 12, 2017 22:29

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Zitat:

Allerdings kommen nun 3 Neue.

Wie sieht UniformLocation in deinem Lazarus-Code aus ?
Hast du evtl. 'X' anstelle 'x' geschrieben ?

Der Fehler sagt, das er die Uniform-Variable nicht finden kann.

Zitat:

Der fehler selber tritt nun nicht mehr auf.

Ich habe das Tutorial angepasst. :wink:

_________________
OpenGL

Nach oben

Polarwolf

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: So Nov 12, 2017 23:02

DGL Member

Registriert: Mi Jun 05, 2013 15:12
Beiträge: 166
Wohnort: Glinde
Programmiersprache: Delphi 7

Nein habe es ebenso klein geschieben.

X_ID := Shader.UniformLocation('x'); // Ermittelt die ID von x.
Y_ID := Shader.UniformLocation('y'); // Ermittelt die ID von y.
Z_ID := Shader.UniformLocation('z'); // Ermittelt die ID von z.

_________________
幸福は笑う人に来て ~~ koufuku wa warau hito ni kite
Das Glück kommt zu denen die lachen

Nach oben

mathias

Betreff des Beitrags: Re: @ Tutorial - OpenGL 3.3 und Lazarus

Verfasst: So Nov 12, 2017 23:20

DGL Member

Registriert: Fr Mai 31, 2002 19:41
Beiträge: 1278
Wohnort: Bäretswil (Schweiz)
Programmiersprache: Pascal

Kannst du mal dein Project als ZIP hochladen, dann findet ich eher den Fehler.
Vorher noch die EXE entfernen.

_________________
OpenGL

Nach oben

Seite 3 von 3

[ 42 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3

Foren-Übersicht » Sonstiges » Meinungen zu den Projekten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 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.