- glScalef(3,3,3);
- glObj2 := gluNewQuadric;
- gluQuadricDrawStyle(glObj2 ,GLU_FILL);
- glColor4f(0.5,0.5,0.5,0.5);
- gluSphere(glObj2,1,64,64);
- for i:=0 to 1 do
- begin
- //glTranslatef(0,0,0);
- glPushMatrix;
- glObj := gluNewQuadric;
- glColor4f(1,0,0,0.1);
- glMultMatrixf(@FCylinderMatrix[i]);
- gluCylinder(glObj,1,1,height,32,32);
- glPopMatrix;
- end;