- if (GL_ARB_vertex_buffer_object) then begin
- glEnableClientState(GL_TEXTURE_COORD_ARRAY);
- glEnableClientState(GL_VERTEX_ARRAY);
- glBindBufferARB(GL_ARRAY_BUFFER_ARB, FVerticesID);
- glBindBufferARB(GL_ELEMENT_ARRAY_BUFFER_ARB, FTrisID);
- for Row := 0 to FHeight -2 do begin
- glTexCoordPointer(2, GL_FLOAT, 5 * SizeOf(TGLfloat), Pointer(Row * FWidth * 5 * SizeOf(TGLfloat)));
- glVertexPointer(3, GL_FLOAT, 5 * SizeOf(TGLfloat), Pointer((Row * FWidth * 5 + 2) * SizeOf(TGLfloat)));
- glDrawElements(GL_TRIANGLE_STRIP, FWidth * 2, GL_UNSIGNED_INT, nil);
- // glDrawElements(GL_QUAD_STRIP, FWidth * 2, GL_UNSIGNED_INT, nil);
- end;
- glDisableClientState(GL_VERTEX_ARRAY);
- glDisableClientState(GL_TEXTURE_COORD_ARRAY);
- end;