#declare r=1000;

#declare Display_Normal=0.1;
#declare CamPos=0;
#declare an=50;

#declare Self_Green=
texture
{
  pigment { color rgb <0, 1, 0> }
  finish { ambient 1 }
} 

#declare Self_Yellowish_Green=
texture
{
  pigment { color rgb <0.3, 1, 0> }
  finish { ambient 1 }
}

#declare Self_Greenish_Yellow=
texture
{
  pigment { color rgb <0.7, 1, 0> }
  finish { ambient 1 }
}

#declare Self_Yellow=
texture
{
  pigment { color rgb <1, 1, 0> }
  finish { ambient 1 }
}

#declare Self_Yellowish_Orange=
texture
{
  pigment { color rgb <1, 0.75, 0>}
  finish { ambient 1 }
}

#declare Self_Orange=
texture
{
  pigment { color rgb <1, 0.5, 0> }
  finish { ambient 1 }
}

#declare Self_Reddish_Orange=
texture
{
  pigment { color rgb <1, 0.25, 0> }
  finish { ambient 1 }
}

#declare Self_Red=
texture
{
  pigment { color rgb <1, 0, 0> }
  finish { ambient 1 }
}

#declare Self_Crimson=
texture
{
  pigment { color rgb <1, 0, 0.5> }
  finish { ambient 1 }
}

#declare Self_Bluish_Green=
texture
{
  pigment { color rgb <0, 1, 0.5> }
  finish { ambient 1 }
}

#declare Self_Cyan=
texture
{
  pigment { color rgb <0, 1, 1> }
  finish { ambient 1 }
}

#declare Self_Light_Blue=
texture
{
  pigment { color rgb <0, 0.65, 1> }
  finish { ambient 1 }
}

#declare Self_Sky_Blue=
texture
{
  pigment { color rgb <0, 0.3, 1> }
  finish { ambient 1 }
}

#declare Self_Blue=
texture
{
  pigment { color rgb <0, 0, 1> }
  finish { ambient 1 }
}

#declare Self_Violet=
texture
{
  pigment { color rgb <0.25, 0, 1> }
  finish { ambient 1 }
}

#declare Self_Purple=
texture
{
  pigment { color rgb <0.5, 0, 1> }
  finish { ambient 1 }
}

#declare Self_Deep_Purple=
texture
{
  pigment { color rgb <0.25, 0, 0.5> }
  finish { ambient 1 }
}

#declare Standard_Ball=sphere { 0, 1 }

#declare lat=-80;
#while (lat<90)
  #declare n=int(360*(cos(lat*(pi/180))));
  #declare long=0;
  #while (long<n)
    object
    {
      Standard_Ball
      scale 2
      translate r*<sin((long*(360/n))*(pi/180))*cos(lat*(pi/180)) ,sin(lat*(pi/180)), cos((long*(360/n))*(pi/180))*cos(lat*(pi/180))>
      #switch (lat)
        #case (-80)
          texture { Self_Deep_Purple }
        #break
        #case (-70)
          texture { Self_Purple }
        #break
        #case (-60)
          texture { Self_Violet }
        #break
        #case (-50)
          texture { Self_Blue }
        #break
        #case (-40)
          texture { Self_Sky_Blue }
        #break
        #case (-30)
          texture { Self_Light_Blue }
        #break
        #case (-20)
          texture { Self_Cyan }
        #break
        #case (-10)
          texture { Self_Bluish_Green }
        #break
        #case (0)
          texture { Self_Green }
        #break
        #case (10)
          texture { Self_Yellowish_Green }
        #break
        #case (20)
          texture { Self_Greenish_Yellow }
        #break
        #case (30)
          texture { Self_Yellow }
        #break
        #case (40)
          texture { Self_Yellowish_Orange }
        #break
        #case (50)
          texture { Self_Orange }
        #break
        #case (60)
          texture { Self_Reddish_Orange }
        #break
        #case (70)
          texture { Self_Red }
        #break
        #case (80)
          texture { Self_Crimson }
        #break
      #end
    }
    #declare long=long+1;
  #end
  #declare lat=lat+10;
#end

#declare l=0;
#while (l<12)
  #declare lat=89;
  #while(lat>-90)
    #if(mod(lat, 10)!=0)
      object
      {
        Standard_Ball
        scale 2
        translate r*<sin(l*30*(pi/180))*cos(lat*(pi/180)), sin(lat*(pi/180)), cos(l*30*(pi/180))*cos(lat*(pi/180))>
        texture
        {
          pigment { color rgb 0.3+l*0.05 }
          finish { ambient 1 }
        }
      }
    #end
    #declare lat=lat-1;
  #end
  #declare l=l+1;
#end

#declare yf=sin((clock/1.4)*(pi/180))*80*(pi/180);
#declare yf2=sin((clock/1.4-90)*(pi/180))*80*(pi/180);

camera
{
  location CamPos
  look_at 5*<sin((clock/2)*(pi/180))*cos(yf), 
             sin(yf), 
             cos((clock/2)*(pi/180))*cos(yf)>
  angle an
}

text
{
  ttf "c:\windows\fonts\arial.ttf" concat("Angle: ", str(80*sin((clock/1.4)*(pi/180)), 3, 2)), 0.0001, 0
  scale 0.0035
  rotate <-80*sin((clock/1.4)*(pi/180)), clock/2, 0>
  translate CamPos+Display_Normal*<sin((clock/2)*(pi/180))*cos(yf), 
                    sin(yf), 
                    cos((clock/2)*(pi/180))*cos(yf)>
                  +Display_Normal*<tan(0.5*(an/2)*(pi/180))*sin(yf)*cos(yf2), tan(an/3.8)*sin(yf2), 
                                   tan(0.5*(an/2)*(pi/180))*cos(yf)*cos(yf2)> 
  texture
  {
    pigment { color rgb 1 }
    finish { ambient 1 }
  }
}