- type
- TVertex = packed record
- x, y, z : glFloat;
- nx, ny, nz : glFloat;
- end;
- ...
- ...
- ...
- function Draw;
- begin
- glEnableVertexAttribArray(0);
- glBindBuffer(GL_ARRAY_BUFFER, vbo);
- glVertexPointer(3,GL_FLOAT,0, @arVertex[0].x); // für Vertices
- glNormalPointer(GL_FLOAT, 12, @arVertex[0].nx); // für Normals
- // glVertexAttribPointer(0,3,GL_FLOAT, false, 0,0); // Aufruf für reines Vertexarray ohne normals
- glBindBuffer(GL_ELEMENT_ARRAY_BUFFER, ibo);
- case DrawMode of
- mdmTriangles: glDrawElements(GL_TRIANGLES, isize, GL_UNSIGNED_INT, 0);
- mdmQuads: glDrawElements(GL_QUADS, isize, GL_UNSIGNED_INT, 0);
- end;
- glDisableVertexAttribArray(0);
- end;