- procedure inittextures;
- var texture: TTexture;
- ptex: pointer;
- begin
- if Form1.rbDay.Checked then
- texture:=ttexture.Load(1,'earth_small.jpg');
- if Form1.rbNight.Checked then
- texture:=ttexture.Load(1,'earth_night.jpg');
- if Form1.rbSandy.Checked then
- texture:=ttexture.Load(1,'DCP00865.JPG');
- glBindTexture(GL_TEXTURE_2D, texture.ID); // foo.TextureID
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_linear);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_linear);
- glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_modulate);
- ptex:=texture.pixels;
- glTexImage2D(GL_TEXTURE_2D, 0, 3, texture.width, texture.height,
- 0, GL_RGB, GL_UNSIGNED_BYTE, ptex^);
- texture.Free;
- glmatrixmode(gl_texture);
- glRotatef(180, 0.0, 1.0, 0.0);
- glmatrixmode(gl_modelview);
- end;