OpenGL и текстуры

[N!ckeL]

Второй день не получается нормально наложить текстуры( Делаю землю, накладываю текстуру 32х32, появляются полосы, как исправить незнаю, подскажите, вот код:
OnCreate:

glNewList(1,GL_COMPILE);
    glBegin(GL_QUAD_STRIP);
      glColor3f(0.7,1.0,0.7);

      glTexCoord2d (0, 0);
        glVertex3f(-50,-1,-50);

     glTexCoord2d (100, 0);
        glVertex3f(50,-1,-50);

     glTexCoord2d (0, 150);
        glVertex3f(-50,-1, 50);

     glTexCoord2d (100, 100);
        glVertex3f(50,-1, 50);
    glEnd;
  glEndList;

Накладываю:

glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST);
 glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_NEAREST);
 glTexEnvf(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,GL_DECAL);
 glTexImage2d(GL_TEXTURE_2D,0,3,TextureW,TextureH,0,GL_RGB,GL_UNSIGNED_BYTE,@Texture);

 glEnable(GL_TEXTURE_2D);
 glHint(GL_PERSPECTIVE_CORRECTION_HINT,GL_NICEST);
 GetTexture;

  glCallList(1);

    glDisable(GL_TEXTURE_2D);

Процедура GetTexture

procedure TForm1.GetTexture;
const
 siz = 32;
var
 BMInfo      :TBitmapInfo;
 I,ImageSize :Integer;
 Temp        :Byte;
 Bitmap      :Graphics.TBitmap;
 TempImage   :TBitmap;
 MemDC       : HDC;
begin
 Bitmap:=TBitmap.Create;
 TempImage:=TBitmap.Create;
 TempImage.Width:=siz;
 TempImage.Height:=siz;
 TempImage.LoadFromFile('map.bmp');
 Bitmap.Width:=RoundUpToPowerOf2(TempImage.Width);
 Bitmap.Height:=RoundUpToPowerOf2(TempImage.Height);
 Bitmap.Canvas.CopyRect(Rect(0,0,Bitmap.Width,Bitmap.Height), TempImage.Canvas,
                        Rect(0,0,siz,siz));
 MemDC:=CreateCompatibleDC(0);
 try
  with bitmap do
   begin
    ImageSize:=bitmap.Width*bitmap.Height;
    TextureW:=bitmap.Width;
    TextureH:=bitmap.Height;

    GetMem(Texture,ImageSize*3);
    MemDC:=CreateCompatibleDC(0);
    FillChar(BMInfo,SizeOf(BMInfo),0);
    With BMInfo.bmiHeader do
     begin
      biSize:=sizeof(TBitmapInfoHeader);
      biBitCount:=24;
      biWidth:=bitmap.Width;
      biHeight:=-bitmap.Height;
      biPlanes:=1;
      biCompression:=BI_RGB;
     end;
    GetDIBits(MemDC,Bitmap.Handle,0,bitmap.Height,Texture,BMInfo,DIB_RGB_COLORS);
  {$R-}
    for i:=0 to ImageSize-1 do
     begin
      Temp:=Texture^[i*3];
      Texture^[I*3]:=Texture^[I*3+2];
      Texture^[I*3+2]:=Temp;
     end;
  {$R-}
    glPixelStorei(GL_UNPACK_ALIGNMENT,0);
    glPixelStorei(GL_UNPACK_ROW_LENGTH,0);
    glPixelStorei(GL_UNPACK_SKIP_ROWS,0);
    glPixelStorei(GL_UNPACK_SKIP_PIXELS,0);
   end;
 finally
  Bitmap.Free;
  TempImage.Free;
  DeleteDC(MemDC);
 end;
end;

Что получается в приложении.. Заранее спасибо.

[Selestis]

В алгоритм загрузки не вникал, попробуй вот это, можт сработает:

glTexParameteri(GL_TEXTURE_2D,GL_TE XTURE_WRAP_S,GL_REPEAT);
glTexParameteri(GL_TEXTURE_2D,GL_TE XTURE_WRAP_T,GL_REPEAT);

[zk1992]

Здравствуйте!

Вот ,встретился с проблемой с наложением текстур.
При наложении текстур на glutSolidCube( ) возникает следующий прикол,верхняя и нижняя грани нормально текстурируются,а боковые просто исполосованы.
Как избавится от этой проблемы?

[IvaniuS]

вы используете стандартные библиотеки гл или сторонних разработчиков? в любом случае выложите плз
GLUtils.dcu это она у меня лайт версия делфи много библиотек нету а нужны

[FLEX_NST]

У меня почему-то ругается на:

      Temp:=Texture^[i*3];
      Texture^[I*3]:=Texture^[I*3+2];
      Texture^[I*3+2]:=Temp;

Кричит что: "Class does not have a default property" и тыкает пальцем в Texture^[]... Texture наколько я понимаю указатель... но какого типа?? TBitmap насколько я понимаю!? Или нет?

[Selestis]

А мы откуда знаем, что у вас там за Texture..? Попробуйте поменяйть индекс и ^ местами.

[peredozer]

Так серьезно, какая переменная Texture?

[Гром]

Что ж это за оплот некромантии такой? Не пора ли прикрыть лавочку?