- for i := 0 to FNumberfigures-2 do
- begin
- glViewport(vport[i,1], vport[i,2], min(w,h), min(w,h));
- // glLightfv(GL_Light0,GL_Position,@light_position);
- glLightModelfv(GL_Light_Model_Ambient,@model_ambient);
- glEnable(GL_Lighting);
- glEnable(GL_Light0);
- glEnable(GL_TEXTURE_2D);
- gObj := gluNewQuadric;
- gluQuadricDrawStyle(gObj ,GLU_FILL);
- gluQuadricTexture(gObj,true);
- if length(FMyTexture)>0 then
- glBindTexture(GL_Texture_2d,FMyTexture[i]);
- gluSphere(gObj,1,64,64);
- //Dieser Block funktioniert nicht, so wie er soll
- glEnable(GL_COLOR_MATERIAL);
- glColor3f(1,0,0);
- gObj2 := gluNewQuadric;
- gluCylinder(gObj2,1.01,1.01,0.1,32,32);
- glRotatef(90,1,0,0);
- gluCylinder(gObj2,1.01,1.01,0.1,32,32);
- glDisable(GL_COLOR_MATERIAL);
- end;