- procedure TForm1.DrawSky(Radius:Single);
- var
- x,y:Integer;
- Deg1,Deg2,Deg3,Deg4:Single;
- begin
- glTranslatef(0,1,-5);
- glrotatef(r,0,1,0);
- for x:=90 to 270 do
- for y:=0 to 90 do
- begin
- Deg1:=Sin((X )*(Pi/180))*Radius;
- Deg3:=Sin((X+1)*(Pi/180))*Radius;
- Deg2:=Cos((Y )*(Pi/180))*Radius;
- Deg4:=Cos((Y+1)*(Pi/180))*Radius;
- glBegin(GL_QUADS);
- glColor3f(0.53, 0.81, 0.98); glVertex3f(Deg3,Deg2,Sqrt((Radius*Radius)-(Deg3*Deg3)-(Deg2*Deg2)));
- glColor3f(0.53, 0.81, 0.98); glVertex3f(Deg1,Deg2,Sqrt((Radius*Radius)-(Deg1*Deg1)-(Deg2*Deg2)));
- glColor3f(0.53, 0.81, 0.98); glVertex3f(Deg1,Deg4,Sqrt((Radius*Radius)-(Deg1*Deg1)-(Deg4*Deg4)));
- glColor3f(0.53, 0.81, 0.08); glVertex3f(Deg3,Deg4,Sqrt((Radius*Radius)-(Deg3*Deg3)-(Deg4*Deg4)));
- glEnd;
- glBegin(GL_QUADS);
- glColor3f(0.93, 0.01, 0.08); glVertex3f(Deg3,Deg2,-Sqrt((Radius*Radius)-(Deg3*Deg3)-(Deg2*Deg2)));
- glColor3f(0.93, 0.01, 0.08); glVertex3f(Deg1,Deg2,-Sqrt((Radius*Radius)-(Deg1*Deg1)-(Deg2*Deg2)));
- glColor3f(0.93, 0.81, 0.08); glVertex3f(Deg1,Deg4,-Sqrt((Radius*Radius)-(Deg1*Deg1)-(Deg4*Deg4)));
- glColor3f(0.93, 0.81, 0.08); glVertex3f(Deg3,Deg4,-Sqrt((Radius*Radius)-(Deg3*Deg3)-(Deg4*Deg4)));
- glEnd;
- end;
- end;