- procedure TTexturManager.GenBlancTex(Name : String; Height, Width, Format : Integer);
- var TexPointer : PTexture;
- begin
- SetLength(Texturen, length(Texturen)+1);
- SetLength(TexturNamen, length(TexturNamen)+1);
- TexPointer := @Texturen[high(Texturen)];
- TexturNamen[high(TexturNamen)] := Name;
- glGenTextures(1, @TexPointer.texID);
- glBindTexture(GL_TEXTURE_2D, TexPointer.texID);
- glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);
- glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
- glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, Width, Height, 0, Format, GL_UNSIGNED_BYTE, nil);
- glBindTexture(GL_TEXTURE_2D, 0);
- end;