Не могу вывести часть изображения. OpenGL

[fmonkey3105]

procedure glDrawImageLib(A,B,X,Y: Integer; ID: Integer);
var
  PosX, PosY: Real;
begin
  glEnable(GL_TEXTURE_2D);
  glEnable(GL_BLEND);

  PosX := (ID mod 4) * 0.25;
  PosY := (ID div 4) * 0.125;

  glBegin(GL_QUADS);
  glTexCoord2f(PosX, PosY+0.125);
  glVertex2f(A,B);
  glTexCoord2f(PosX + 0.25, PosY + 0.125);
  glVertex2f(A+X,B);
  glTexCoord2f(PosX + 0.25, PosY);
  glVertex2f(A+X,B+Y);
  glTexCoord2f(PosX, PosY);
  glVertex2f(A,B+Y);
  glEnd;

  glDisable(GL_TEXTURE_2D);
  glDisable(GL_BLEND);
end;

glBindTexture у меня прописано до вызова процедуры.
У меня есть изображение 128 на 256, нужно вывести часть изображения 32 на 32. Не понимаю, почему не работает процедура. Помогите пожалуйста.

[An1ka]

PosY := (ID div 4) * 0.125;

Там наверно на 8 делить надо...

[fmonkey3105]

Метод тыка - не мой. Делить на 8 там не надо, наверняка. Почему? Потому что в первом ряду 4 картинки. Соответственно их порядковые номера 0,1,2,3. Начиная с 4 по 7 идет уже второй ряд, так как если мы делим любое из этих чисел целочисленно на 4, то получим 1 (для первого ряда это число 0)