1. include "functions.inc"
2. include "colors.inc"

default { finish { ambient 0.000000 diffuse 0.7 } }

camera { location <0,0,-10> look_at 0

angle 18

}

light_source { <0,0,-100>*1e6*150

color rgb <1.00, 0.93, 0.89>*1.5  

//color rgb <1.00, 1, 1>*1.4

// color rgb <2.00, 1.5, 1>*0.7

}

1. macro pattern1()

 //gradient y

// marble

// function {f_marble(x,y,z)*f_wrinkles(x*10,y/40,z*10)}
 

// function {f_marble(x,y,z)*0.8+f_wrinkles(x*100,y/40,z*100)*0.2}

// function { x}

// function { sin(x)}

//  function { (exp(x)) }  // og

 //  function { (exp(sin(x))) }  // og
  
// function { (exp(-x))  }

// function { pow(x,1/2)} // only upper hemisphere

  // function { (exp(-x*x))  }

// function { x*x -2 }

 // function {     sqrt(x*x*x)  } 

// function{ min(log(x),log(-x) )} // only opper hemisphere  
// function{ min(log(x),1 )*min(log(-x),1 )  }  

  //    function{ min(log((x)/3),1 )*min(log(-(x)/3),1 )  }   // partly og

 //  function{ min(log((x*x)/3),1 )*min(log(-(x*x)/3),1 )  }   // partly nog  

 //    function{ min(log((x+0.1)/3),1 )*min(log(-(x-0.1)/3),1 )  }   // quite og 
   
//  function{        tan(x)   }  

  //    function{        atan(x*1.2)   }  
  
//   function{        asin(pow(x,3))   }     

 //   function{        asin( f_agate(x,0,0) )   }  // ok  
//    function{        asin( f_wrinkles(x*3,0,0) )   }  // OK OK
  //    function{        asin( f_granite(x/3,0,0) )   }  // OK

  //     function{      f_granite(x,0,0)  }  // ok

  //       function{      f_granite(x,0,0)* f_wrinkles(x,0,0)  }  // ok
     //     function{      f_granite(x,0,0)/2+ f_wrinkles(x,0,0)/2  }  // ok

     //    function{        asin( f_wrinkles(sin(x*3),0,0) )   }  // OK 

// function{ sin(f_wrinkles(f_wrinkles(x*1,0,0)*3,0,0)) } // OK

    //    function{     f_wrinkles(sin(x),0,0) }  // OK  
    //  function{        asin( f_wrinkles(x,0,0) )*1+f_granite(x,0,0)*0.5   }  // OK OK  

    //    function{        sin( f_wrinkles(x*3,0,0) )   }  // OK OK
           function{       x+ f_wrinkles(x*3,0,0)   }  // OK OK

1. end

 #macro warps1()
  warp { black_hole <0.0, 0.1, -1>, 0.3  turbulence <0.25, 0.25, 0> falloff 2.5 strength 1.5 inverse }

warp {black_hole <0.5,-0.5,-.9>,0.6 strength 5 falloff 4 turbulence <0.25, 0.25, 0> inverse }

1. end

1. macro modifier1()

      frequency 1
      octaves 60

//lambda 0.5 //omega 0.5

  sine_wave

// scallop_wave

 //  rotate z*90  

scale 8 warp {turbulence 0.35} scale 1/8

scale 50

warp {turbulence 0.5} scale 1/50

turbulence 0.15

1. end

1. declare plantex1=texture {

pigment {

pattern1()

modifier1()

warps1()

 scale x/2

pigment_map { [0 color rgb 0.85 ]

[1 color rgb 1 ]

}

}

// finish { ambient 0 diffuse 0.8 phong 0.1 specular 0.01}

normal {

   pattern1()

   bump_size  0.0
   modifier1() 
     warps1()

}

rotate z*90

}

1. declare spotex1=texture {

pigment {

// onion // gradient z //gradient z

leopard

scale 0.1

scale y/1

rotate y*-30 rotate x*10

 pigment_map 

{ [0 color rgbt <1,0,0,0> ]

[0.01 color rgbt <1,0,0,0> ]

[0.1 color rgbt <1,1,1,1> ]

[1 color rgbt <1,1,1,1> ] [10 color rgbt <1,1,1,1> ] }

  }

}

// simulate atmosphere with z gradient

#declare secondtex1=texture {

pigment {

// onion // gradient z //gradient z

function { y/2+1/2}

// sine_wave

// leopard

//wrinkles

//scale y/10

 pigment_map 
   {
   [0 color rgbt <1,1,1,0.95> ]  
   [0.8 color rgbt <1,1,1,0.95> ]
     [0.9 color rgbt <0,0,0,0.5> ]
   [1 color rgbt <0,0,0,0.35> ]

  }  

  }

}

// simulate atmosphere with z gradient

#declare atmtex1=texture {

pigment {

// onion // gradient z //gradient z

function { z}

// leopard

//wrinkles

scale y/10

 pigment_map 
   {
   [0 color rgbt <1,1,1,0.95> ]
   [1 color rgbt <4,4,3.8,0> ]
   }  

  }

}

#declare atm_thickness1 = 0.075;

1. declare atm_color1 = rgb <pow(460/650, 4), pow(460/555, 4), 1>;
2. declare atm_amount1=2;
3. declare atm_samples1=5;

1. declare atm1= object

  { 
  
   difference {  

  sphere {0, 1.0001+atm_thickness1 } 
      sphere {0, 1.0001 } 
              }

   hollow no_shadow
  

    pigment {

    rgbt 1 
     }   
     
  //   finish { 
   //  reflection 0
   //  }
    interior
    { media  {    

           method 3
    intervals 3
    samples atm_samples1

      // emission 0.1 
        absorption 0
      //  scattering { 4 color atm_amount1*atm_color1/atm_thickness1    }
      //   scattering { 4 color atm_amount1*<0.4,0.6,0.8>/atm_thickness1    }  
                scattering { 5 color atm_amount1*<0.5,0.7,1>/atm_thickness1  eccentricity 0.56  }
        density
        { 
          function {   1*exp(-8*(sqrt(x*x+(y)*(y)+z*z)- 1 - 0.00001)/atm_thickness1) }

       //spherical density_map
        //  { [0.00 rgb 0.0]  
        //      [0.1 rgb White*0.1] 
        //     [1 rgb White]
        //  }
 
      }
        
      }
      
      
    }

       scale 1

  }          
  

1. declare planeta1= union {

   object {
   
   sphere {0,1}  
   texture {pigment {color rgb <0,0,1>}}
   texture {plantex1}
     texture {secondtex1}  
// texture {spotex1}

//   texture {atmtex1} // simulate atmosphere with z gradient
      // this is on in certain point of view 
  // rotate z*90

   }

object {atm1}

}

object {planeta1

rotate x*-30

}