1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure DrawSphere(CX, CY, CZ, Radius: TGLFloat);
var
  quad: PGLUQuadric;
begin
  Texture.Bind;
  quad := gluNewQuadric;
  try
    gluQuadricTexture(quad, True);
    glPushMatrix; // Matrix sichern
      glTranslatef(cx,cy,cz);
      gluSphere(quad, Radius, 32, 32);
    glPopMatrix;
  finally
    gluDeleteQuadric(quad);
  end;
  Texture.Unbind;
end;					

1:
2:
3:
4:

glMatrixMode(GL_TEXTURE);
  glLoadIdentity;
  glTranslatef(x,0,0);
glMatrixMode(GL_MODELVIEW);