- procedure createobject;
- var q: PGLUquadric;
- w: Pointer ;
- Begin
- glPushmatrix ;
- w := gluNewQuadric();
- gluperspective(4.5,1.0,1.0,10); <- Damit hab ich auch etwas versucht...
- glPolygonMode(GL_FRONT_AND_BACK, GL_LINE) ;
- glDisable(GL_CULL_FACE);
- gluQuadricNormals(w, GLU_SMOOTH);
- gluSphere(w,10,100,10);
- gluDeleteQuadric(w);
- glPopMatrix ;
- end;