////////////
/*
  Planet isosurface from Jaime Vives Piqueres's moon.

*/


global_settings{
 assumed_gamma 1.0
 max_trace_level 20
}
#default{texture{finish{ambient 0}}}
#include "functions.inc"


#declare Modelling=off;
#declare ShowPlanet=on;
#declare ShowWater=on;
#declare ShowClouds=on;
#declare ShowRings=on;


// *** PLANET ***

// planet texture
#declare t_planet=
pigment{
          onion    warp { turbulence 0.1 /*lambda 33 */ }
          color_map{
                   [.7 rgb <.3,.2,.05>] // sand
                   [.8 rgb <0,.1,0>]    // green
                   [.99 rgb <.1,.05,.01>]//<.1,.2,.01>]      // green
                   }
                 scale 1/(<1.01,.995,1.01>)
                 }



#declare t_planet=
texture{
 pigment{
          onion    scale <1.01,.995,1.01>
          turbulence .05
          lambda 2.5
          omega 1.2
          pigment_map{
                   [0 rgb 1]
                   [.05  t_planet ]
                   [.95  t_planet ] // sand
                   [1 rgb 1]//<.1,.2,.01>]
                   }
         }

#if(!Modelling)
        normal{granite .001 scale .00001}
#end
finish{specular .1 }
}

#declare Scalar=<4,1,4>;
#declare Rotar=<-15,0,0>;

// Cloud texture
#declare t_clouds=
texture{
         pigment{
                  wrinkles  scale <100,50,100>*22
                  turbulence <1,2,1>
                  lambda 2.5
                  omega 1.3
                  warp { turbulence <10,0,10>*.1
                        //lambda 3
                        omega 1.2
                        }
                  color_map{
                           [0 rgb 1 transmit 1]
                           [.3 rgb 1 transmit .9]
                           [1 rgb 1 transmit 0]
                           }
                  rotate y*15
                  scale<0.021,0.02,0.021>/Scalar
                  rotate -Rotar
                 }
        }

// Cloud texture
#declare t_clouds=
texture{ wrinkles  rotate Rotar
                  scale Scalar
                  //lambda 2.5
                  omega 1.3
                  texture_map{
                           [0 t_clouds ]
                           [.3 pigment {rgb 1 transmit 1}]
                           [.5 t_clouds]
                           [.7 pigment {rgb 1 transmit 1}]
                           [1 t_clouds ]
                           }
                 }
       // }


// Planet
#declare Planet=
union{
        isosurface{  // Copied from Jaime's LightSys Space Demo scene
                 function{(x*x+y*y+z*z-1)+f_granite(x*2,y*2,z*2)*f_agate(x,y,z)*.05}
                 max_gradient 3.8
                 contained_by{sphere{0,1}}
                 texture{t_planet scale .02}
                 scale y*1.002
                 }


       #if(ShowWater)
               sphere{0,1 // water
                      pigment{gradient y scale 2 translate y
                              turbulence .1
                               lambda 7
                             colour_map{
                                      [0 rgbt<1,1,1,0> ]
                                      [.15 rgb <0,.05,.2> transmit .3*(!Modelling)]
                                      [.9 rgb <0,.05,.2> transmit .3*(!Modelling)]
                                      [1 rgbt<1,1,1,0> ]
                                      }
                              }
                      finish{specular .2  metallic brilliance 2}
                      #if(!Modelling)
                         interior{fade_distance .003 fade_color rgb 
<0,0,.1>}
                      #end
                      scale .996
                      }
       #end
      #if(!Modelling)
              sphere{0,1 // Atmosphere
                      pigment{colour rgbt 1}
                      interior{
                               media {
                                          // (---general values---)
                                          intervals 10           // number of intervals used for sampling [10]
                                          samples 1,1            // minimum and maximum number of samples taken per interval [1,1]
                                          confidence 0.9         // statistic parameter higher->better quality [0.9]
                                          variance 1.0/128       // statistic parameter lower->better quality [1.0/128]
                                          ratio 0.9              // distribution between lit and unlit areas [0.9]
                                          // (---media types---)
                                          //absorption rgb<.1,.05,0>*.001 
// absorbing media, block light of specified color
                                          scattering {2, rgb 10 }
                                          //method 3               // adaptive sampling
                                          density {onion
                                                   color_map{
                                                           [.89 rgb .5] 
// earth
                                                           [.93 rgb <.6,.5,.0>*.5]//
                                                           [.98 rgb <0.1,0,0>]//
                                                           [1 rgb 0 ]//
                                                           }
                                                  }
                                        }
                               }
                      rotate y*90
                      scale 1.05
                      hollow
                      double_illuminate
                      }
       #end
       #if(ShowClouds)
               union{
                      sphere{0,1.01 texture{t_clouds }}
                      rotate y*45
                      hollow //double_illuminate
                      }
        #end
       }

// placement
union{  #if(ShowRings)
        disc {<0, 0, 0>  y, 1.0, .7        // -O- RINGs -O-
                        pigment{spherical
                                cubic_wave
                                colour_map{
                                           [0 rgbft <0,0,0, 1,1>]
                                           [.01 rgbft <.4,.3,.2, 0,.1>]
                                           [.015 rgbft <.3,.3,.3, .1,.7>]
                                           [.03 rgbft <.35,.3,.25, 0,.1>]
                                           [.04 rgbft <.1,.21,.3, .1,.9>]
                                           [.07 rgbft <.3,.21,.1, .2,.5>]
                                           //
                                           [.12 rgbft <.25,.2,.15, 0,.1>]
                                           [.12 rgbft <.25,.2,.15, 0,.1>]
                                           [.18 rgbft <.2,.2,.25, .1,.7>]
                                           [.20 rgbft <.3,.2,.1, 0,.1>]
                                           [.22 rgbft <0,0,0, 1,1>]
                                           }
                                }
                        normal{granite .001 scale .00001}
                        finish{diffuse 1}
                        scale 2
                        hollow
                        double_illuminate
                        rotate <40,0,30>
                        }
         #end
        object{Planet }
        scale .3
        translate <0,0,0>
        }

light_source{
         0,
         4
         fade_power 2
	 fade_distance 2
         translate <2,.1,.5>
         }

camera{
 location <0,.5,0>
 up y
 look_at .5*x //<0,-.3,1> //<0,-.4,1>

}