DGL • Thema anzeigen - VAO und VBO erzeugen

VAO und VBO erzeugen

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

mathias

Betreff des Beitrags: VAO und VBO erzeugen

Verfasst: Mo Jan 13, 2014 22:34

DGL Member

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

Ist es erlaubt, die VBO und VBO so zu deklarieren ?
Es würde funktionieren, aber ob es Zufall ist.

Somit könnte ich für jedes Qbjekt (Cylinder, etc) eine eigene Classe erzeugen und muss nicht mit Zähler oder ähnlichen für die V?O arbeiten.

Code:

var
  //uiVBO: array[0..5] of UINT; // So war es früher
  //uiVAO: array[0..2] of UINT; // 3 Objekte mit vertex und normalen 
 
  quiVBO: array[0..1] of UINT;
  quiVAO: array[0..0] of UINT;
 
  tuiVBO: array[0..1] of UINT;
  tuiVAO: array[0..0] of UINT;
 
  cuiVBO: array[0..1] of UINT;
  cuiVAO: array[0..0] of UINT; 
 
procedure InitScene;    
begin
....
 // Setup whole triangle
 
  glGenVertexArrays(1, tuiVAO);
  glGenBuffers(2, tuiVBO);
 
  glBindVertexArray(tuiVAO[0]);
 
  glBindBuffer(GL_ARRAY_BUFFER, tuiVBO[0]);
  glBufferData(GL_ARRAY_BUFFER, sizeof(Triangle), @Triangle, GL_STATIC_DRAW);
  glEnableVertexAttribArray(pos_id);
  glVertexAttribPointer(pos_id, 3, GL_FLOAT, False, 0, nil);
 
  glBindBuffer(GL_ARRAY_BUFFER, tuiVBO[1]);
  glBufferData(GL_ARRAY_BUFFER, sizeof(fTriangleNormale), @fTriangleNormale, GL_STATIC_DRAW);
  glEnableVertexAttribArray(Normale_id);
  glVertexAttribPointer(Normale_id, 3, GL_FLOAT, False, 0, nil);
 
  // Setup whole Quad
 
  glGenVertexArrays(1, quiVAO);
  glGenBuffers(2, quiVBO);
 
  glBindVertexArray(quiVAO[0]);
 
  glBindBuffer(GL_ARRAY_BUFFER, quiVBO[0]);
  glBufferData(GL_ARRAY_BUFFER, sizeof(fquad), @fQuad, GL_STATIC_DRAW);
  glEnableVertexAttribArray(pos_id);
  glVertexAttribPointer(pos_id, 3, GL_FLOAT, False, 0, nil);
 
  glBindBuffer(GL_ARRAY_BUFFER, quiVBO[1]);
  glBufferData(GL_ARRAY_BUFFER, sizeof(fQuadColor), @fQuadColor, GL_STATIC_DRAW);
  glEnableVertexAttribArray(col_id);
  glVertexAttribPointer(col_id, 3, GL_FLOAT, False, 0, nil);
 
  // Setup whole Cube
  glGenVertexArrays(1, cuiVAO);
  glGenBuffers(2, cuiVBO);
 
  glBindVertexArray(cuiVAO[0]);
 
  glBindBuffer(GL_ARRAY_BUFFER, cuiVBO[0]);
  glBufferData(GL_ARRAY_BUFFER, Size(Cylinder.Vertex), Pointer(Cylinder.Vertex), GL_STATIC_DRAW);
  glEnableVertexAttribArray(pos_id);
  glVertexAttribPointer(pos_id, 3, GL_FLOAT, False, 0, nil);
 
  glBindBuffer(GL_ARRAY_BUFFER, cuiVBO[1]);
  glBufferData(GL_ARRAY_BUFFER, Size(Cylinder.Normale), Pointer(Cylinder.Normale), GL_STATIC_DRAW);
  glEnableVertexAttribArray(Normale_id);
  glVertexAttribPointer(Normale_id, 3, GL_FLOAT, False, 0, nil); 
...
end.
 
procedure TForm1.RenderScene;
begin
 ...
  glBindVertexArray(tuiVAO[0]); // Triangle
 
  Matrix := NormalMatrix;
  MatrixModif.Translate(Matrix, 0.0, 1.0, 0);
  glUniformMatrix4fv(Matrix_id, 1, False, @Matrix);
  glUniformMatrix4fv(MatrixCamera_id, 1, False, @CameraMatrix);
  glUniform4f(VecColor_id, 1, 0, 0, 1);
  glDrawArrays(GL_TRIANGLE_STRIP, 0, 3);
 
  glBindVertexArray(quiVAO[0]);  // Quad
  glUniform4f(VecColor_id, 1, 0, 1, 1);
  glDrawArrays(GL_TRIANGLE_STRIP, 8, 4);
  glUniform4f(VecColor_id, 1, 1, 0, 1);
  glDrawArrays(GL_TRIANGLE_STRIP, 4, 4);
  glUniform4f(VecColor_id, 0, 1, 1, 1);
  glDrawArrays(GL_TRIANGLE_STRIP, 0, 4);
 
  glBindVertexArray(cuiVAO[0]); // Cylinder
 
  Matrix := WurfelMatrix;
  MatrixModif.Translate(Matrix, 0.0, -1.0, 0);
  glUniformMatrix4fv(Matrix_id, 1, False, @Matrix);
  glUniform4f(VecColor_id, 0, 1, 0, 1);
  glDrawArrays(GL_TRIANGLES, 0, Length(Cylinder.Normale));
 ...
 
  SwapBuffers(DC);                                
end;
 
procedure Destroy;
begin
  //glDeleteBuffers(1, @uiVBO);
  //glDeleteBuffers(1, @uiVAO);
  glDeleteBuffers(1, @tuiVBO);
  glDeleteBuffers(1, @tuiVAO);
  glDeleteBuffers(1, @quiVBO);
  glDeleteBuffers(1, @quiVAO);
  glDeleteBuffers(1, @cuiVBO);
  glDeleteBuffers(1, @cuiVAO);
...
end; 

_________________
OpenGL

Nach oben

OpenglerF

Betreff des Beitrags: Re: VAO und VBO erzeugen

Verfasst: Mo Jan 13, 2014 22:43

DGL Member

Registriert: Do Dez 29, 2011 19:40
Beiträge: 421
Wohnort: Deutschland, Bayern
Programmiersprache: C++, C, D, C# VB.Net

Also ich kann an dem Code jetzt nichts besonderes erkennen.
Wenn du die ID-Arrays meinst, ja natürlich kann man das so machen.
Wieso nicht?
Ich würde annehmen, dass in den meisten Anwendungen die IDs immer einzeln vorliegen und nicht in irgendwelchen Arrays oder ähnliches. Ich habe jedenfalls für mich alle OpenGL Objekte mit ihren Methoden in Klassen gekapselt. Mit DSA oder automatisch im Hintergrund durchgeführte Binds, kann ich es wie jedes andere Objekt nutzen.
Keine Binds, keine verwirrenden "gl*"-Aufrufe und kein Extensionswildwuchs im Anwendungscode. Dafür aber Typsicherheit, Syntaxvervollständigung und eine dünne Abstraktionsschicht, die das eine oder andere Übel verstecken kann.

Nach oben

glAwesome

Betreff des Beitrags: Re: VAO und VBO erzeugen

Verfasst: Mo Jan 13, 2014 22:48

DGL Member

Registriert: Mi Aug 14, 2013 21:17
Beiträge: 588
Programmiersprache: C++

Den ersten Paramter bei deinen glDeleteBuffers-Aufrufen solltest du aber mal überprüfen.

_________________
So aktivierst du Syntaxhighlighting im Forum: [code=pascal ][/code], [code=cpp ][/code], [code=java ][/code] oder [code=glsl ][/code] (ohne die Leerzeichen)

Nach oben

mathias

Betreff des Beitrags: Re: VAO und VBO erzeugen

Verfasst: Mo Jan 13, 2014 22:52

DGL Member

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

Sieht dies besser aus ?

Code:

procedure Destroy;
begin
  //glDeleteBuffers(6, @uiVBO); // bei einer Array
  //glDeleteBuffers(3, @uiVAO);
  glDeleteBuffers(2, @tuiVBO);
  glDeleteBuffers(1, @tuiVAO);
  glDeleteBuffers(2, @quiVBO);
  glDeleteBuffers(1, @quiVAO);
  glDeleteBuffers(2, @cuiVBO);
  glDeleteBuffers(1, @cuiVAO);
...
end;

_________________
OpenGL

Nach oben

glAwesome

Betreff des Beitrags: Re: VAO und VBO erzeugen

Verfasst: Di Jan 14, 2014 09:49

DGL Member

Registriert: Mi Aug 14, 2013 21:17
Beiträge: 588
Programmiersprache: C++

Jawohl.

_________________
So aktivierst du Syntaxhighlighting im Forum: [code=pascal ][/code], [code=cpp ][/code], [code=java ][/code] oder [code=glsl ][/code] (ohne die Leerzeichen)

Nach oben

mathias

Betreff des Beitrags: Re: VAO und VBO erzeugen

Verfasst: Mi Jan 15, 2014 00:26

DGL Member

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

Ich habe unterdessen die VAOs und VBOs in eine Klasse verpackt.

Der Nachkomme der Klasse erzeugt bei WriteVetrex der Vertex und Normale.

Code:

constructor TKoerper.Create;
begin
  inherited Create;
  Color := vec4(1.0, 0.0, 0.0, 1.0);
  Sektoren := 36;
  glGenVertexArrays(1, @VAO);
  glGenBuffers(1, @VBOvertex);
  glGenBuffers(1, @VBOnormale);
end;
 
destructor TKoerper.Destroy;
begin
  inherited Destroy;
  glDeleteBuffers(1, @VAO);
  glDeleteBuffers(1, @VBOvertex);
  glDeleteBuffers(1, @VBOnormale);
end;
 
procedure TKoerper.WriteVertex;
 
  function Size(var Vertex: TVertexArray): integer; inline;
  begin
    Result := SizeOf(Vertex[0]) * Length(Vertex);
  end;
 
begin
  glBindVertexArray(VAO);
 
  glBindBuffer(GL_ARRAY_BUFFER, VBOvertex);
  glBufferData(GL_ARRAY_BUFFER, Size(Vertex), Pointer(Vertex), GL_STATIC_DRAW);
  glEnableVertexAttribArray(Vertex_id);
  glVertexAttribPointer(Vertex_id, 3, GL_FLOAT, False, 0, nil);
 
  glBindBuffer(GL_ARRAY_BUFFER, VBOnormale);
  glBufferData(GL_ARRAY_BUFFER, Size(Normale), Pointer(Normale), GL_STATIC_DRAW);
  glEnableVertexAttribArray(Normale_id);
  glVertexAttribPointer(Normale_id, 3, GL_FLOAT, False, 0, nil);
end;
 
procedure TKoerper.Draw;
begin
  glBindVertexArray(VAO);
  glUniform4f(VecColor_id, Color[0], Color[1], Color[2], Color[3]);
  glDrawArrays(GL_TRIANGLES, 0, Length(vertex));
end;                                         
 
// Ein Nachkommen des TKoerper
 
procedure TCube.WriteVertex;
begin
  vertex := fCube;  // FCube ist eine Array mit Konstanten.
  SetLength(normale, Length(vertex));
  VertexModif.Normale(vertex, normale);
  inherited;
end;  

Im Hauptprogramm sieht es recht aufgeräumt aus.

Code:

var
  Wurfel: TCube;
  CylinderLinks, CylinderMitte, CylinderRechts: TCylinder;  
begin
.... // Sonstiges für InitScene
  Wurfel := TCube.Create;
  Wurfel.Sektoren := 4;
  Wurfel.WriteVertex;
 
  CylinderLinks := TCylinder.Create;
  CylinderLinks.Sektoren := 13;
  CylinderLinks.Color := vec4(1, 1, 0, 1);
  CylinderLinks.WriteVertex;
 
  CylinderMitte := TCylinder.Create;
  CylinderMitte.Sektoren := 3;
  CylinderMitte.Color := vec4(1, 0, 1, 1);
  CylinderMitte.WriteVertex;
 
  CylinderRechts := TCylinder.Create;
  CylinderRechts.Sektoren := 5;
  CylinderRechts.Color := vec4(0, 1, 1, 1);
  CylinderRechts.WriteVertex;
end.
 
// Bei Draw kommt nur noch dies:
 
CylinderLinks.Draw;   

CylinderRects... etc.

_________________
OpenGL

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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