1. declare taunolla=clock+0;

1. declare tau=radians(taunolla);
2. declare tau2=radians(taunolla+180.0);

1. declare Orange=<1,0.5,0>;
2. declare Yellow=<1,1,0>;

1. declare White=<1,1,1>;
2. declare Blue=<0.8,0.8,1>;
3. declare Black=<0.0,0.0,0.0>;
4. declare Grey=<0.5,0.5,0.5>;

1. macro convection_cells(c)

crackle pigment_map{ [0.0 rgb c*0.2] [0.2 rgb c] [0.9 rgb c] [1.0 rgb 1.0]

} warp{turbulence 0.3}

1. end

camera { location <0,0,-100> look_at 0 angle 3 }

1. declare sunsurf1=object { sphere

  { 
  0, 1

    texture {
       pigment {
	    crackle

pigment_map{ [0.0 rgb Yellow] [0.2 rgb White] [0.9 rgb White] [1.0 rgb 1.0]

} warp{turbulence 0.3}

 }     
 
        finish {
     ambient 1
     diffuse 0.01
     reflection 0.01
      } // fin
 
 scale 0.05
 }
 

  scale 1  
    
  } // sphere
 
 }
 
 
    
 
  

// halo 1

1. declare sunhalo1= object { sphere

  { 
  
  0, 1.3 hollow no_shadow
  

// normal { // wrinkles 0.3 // }

    pigment {

    rgbt 1 }
    interior
    { media
      { emission 2/1
        density
        { spherical density_map
          { [0 rgb 0]

          [0.4 rgb Yellow*0.05 ]
          [0.6 rgb Yellow*.3 ]
          }
        }
        samples 1,1 intervals 1 confidence .1 // quite fast settings
        method 3
      }
      
      
    }

       scale 1

  }     
  

} // ... sunhalo1

1. declare planet=object {sphere {0,1

      texture {
       pigment {gradient y turbulence .05 frequency -1
                color_map {
               [0 color rgb <.85,.8,.725>] // poles
               [.05 color rgb <.875,.875,.775>]
               [.15 color rgb <.925,.875,.825>]
               [.25 color rgb <.9,.875,.85>]                           //                                            Artist's impressions of exoplanets
               [.275 color rgb <.825,.8,.775>]
               [.33 color rgb <.925,.85,.875>]
               [.45 color rgb <.975,.95,.925>]
               [.54 color rgb <.85,.6,.75>]
               [.55 color rgb <.95,.55,.4>] // Great Red Spot
               [.56 color rgb <.9,.95,.85>]
               [.6 color rgb <.85,.8,.875>]
               [.65 color rgb <.8,.45,.55>]
               [.725 color rgb <.725,.55,.4>] // dark bands
               [.8 color rgb <.725,.575,.425>]
               [.9 color rgb <.85,.7,.725>]
               [.95 color rgb <.75,.725,.775>]
               [1 color rgb <.95,.8,.75>] // equator
                           } scale <.2,1,.2> rotate 15*y translate -.05*y
warp {black_hole <.5,-.5,-.8>,.25 falloff .3 strength 1.2 turbulence 0 inverse}
                }
finish { diffuse .55 phong .075 phong_size 1.5 specular .025 roughness

.01}

      }
scale <1,.91,1>  // still of 1 POV unit size  
scale 0.75  

} }

1. declare rings= object {torus{ 1.0,0.3 scale <1,1,1>

      texture{ pigment{ color rgb<1,0.65,0>}
               finish { phong 1}
             }   
      scale <1.5,0.1,1.5>
      rotate<0,0,0> 
      translate<0,0,0>
    }      }
  

1. declare planet_atmosphere= sphere

  { 
  
  0, 1.25 hollow no_shadow
  

/*

  normal {
  wrinkles 0.3
  }
 */
  
    pigment {

    rgbt 1 
     }   
     
     finish { 
     reflection 0
     }
    interior
    { media
      { emission 0 
        absorption 5 
       
        density
        { spherical density_map
          { [0.001 rgb White*0]  
              [0.5 rgb White*1] 
             [1 rgb White]
     
          }
        }
        samples 1,1 intervals 1 confidence .1 // quite fast settings
        method 3
      }
      
      
    }

       scale 1
 //   translate <ax,0,ay>

  }          
  
  
  
#declare sun1=union {    

object {sunsurf1 } object {sunhalo1 scale 2 }

}

1. declare ringplanet=union {

object {planet } object {rings }

}

1. declare atmoplanet=union {

object {planet } object {planet_atmosphere scale 2 }

 scale 0.5

}

 object  { 
sun1 
scale 1.25
translate y*0
translate x*0
translate z*0
rotate x*30  
rotate y*20 

}
      
   
   

/*

object  { 
ringplanet 
scale 0.25
translate y*-2
translate x*1  
translate z*-2
rotate x*30  
rotate y*20
}
  
  */

 
 

 object  { 
atmoplanet 
 scale 0.45
translate y*-1
translate x*0.0  
translate z*-2
rotate x*30  
rotate y*20
}