- procedure Render;
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- gluPerspective(45, Fheight/FWidth, NearClipping, FarClipping);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glTranslatef(0, 0, -3);
- gObj := gluNewQuadric;
- gluQuadricDrawStyle(gObj ,GLU_FILL);
- gluQuadricTexture(gObj,true);
- glBindTexture(GL_Texture_2d,FMyTexture[1]);
- gluSphere(gObj,1,64,64);
- end;