我有两张图片,都是 24 色 .bmp 32x32 像素。如果我用 OpenGL 加载一个,它可以工作,如果我用 OpenGL 加载另一个,它只会显示黑白线。
是否还有其他可能不同的东西,因此不让其中一张图像显示?
这在代码中不起作用:
这确实在代码中工作:
还检查了信息大小和文件头大小。两张图片的信息为 40,文件大小为 14。图像 biWidth 和 BiHeight 仍然是 32x32。
这显示了我如何使用图像草纹理十六进制
//GRASS
glTexImage2d(GL_TEXTURE_2D,Level,Colorcomps,sGrass,tGrass,Border,GL_RGB,GL_UNSIGNED_BYTE,grass);
glLoadName(1);
glBegin(GL_POLYGON);
for I := 0 to 6 do
begin
glTexCoord2f(COS(i/6.0*2*PI),SIN(i/6.0*2*pi));
glVertex3f((((COS(i/6.0*2*PI)/12)+offsetx)+0.2),((SIN(i/6.0*2*pi)/12)+offsety),-2);
end;
glEnd;
grass
是一个指针,像这样填充:
grass := Readbitmap('Grass.bmp',sGrass,tGrass);
以及如何获取图像数据(这应该没问题,因为它可以与其他图像一起使用,我真的认为它与图像有关的其他东西会使两者不同)?
Function TFCreateMap.ReadBitmap(const FilePath:String;var sWidth,tHeight:GLsizei):pointer;
const
szh=SizeOf(TBitmapFileHeader);
szi=SizeOf(TBitmapInfoHeader);
var
bmpfile: file;
bfh:TBitmapFileHeader;
bmi:TBitmapInfoHeader;
t:byte;
x,
fpos,
size: integer;
begin
assignfile(bmpfile,FilePath);
reset(bmpfile,1);
size := FileSize(bmpfile)-szh-szi;
blockread(bmpfile,bfh,szh);
if bfh.bfType<>$4D42 then
raise EinvalidGraphic.Create('Invalid Bitmap');
blockread(bmpfile,bmi,szi);
with bmi do
begin
sWidth := biWidth;
tHeight := biHeight;
end;
getmem(result,size);
blockread(bmpfile,result^,size);
for x := 0 to sWidth*tHeight-1 do
with TWrap(result^)[x] do
begin
t := r;
r := b;
b := t;
end;
end;