#include "colors.inc"
#include "functions.inc"
#include "rand.inc"

camera{

   location  <10,10,-10>*3 
   look_at 0
  angle 20

   }             

//light_source{ <20,1000,-100>*1000*1000 rgb <1,1,1>*10 }

1. declare sky1= sky_sphere {

 pigment {
    bozo
      scale 1/1000
         color_map 
    {
    [0 rgb 1]
    [0.2 rgb 0] 
    [1 rgb 0] 
    
    }
    
    }
   
  

  pigment {
   wrinkles
        scale 1/10
            color_map 
    {
    [0 rgbt <1,1,1,1>]
  //  [0.5 rgbt 1] 
    [1 rgbt <1.0,0.5,0.5,0.5>] 
    
    }

}

// scale 5 }

1. declare outer_disk1=object {

union {
  intersection 
  {
       torus {0.5,0.1 scale y*1.5}
       sphere {0,0.5}   
   }
 

// torus {1,0.15}

isosurface { function { //f_torus (x,y,z,1,0.15)-f_noise3d(x*5,y*5,z*5)*0.1 // f_torus (x,y,z,1,0.15)-f_waves(x*5,y*5,z*5)*0.5

// f_torus (x,y,z,1,0.15)-f_ripples(x*5,y*5,z*5)*0.1-f_waves(x*15,y*15,z*15)*0.1
  f_torus (x,y,z,1,0.15)-sin(f_waves(x*5,y*5,z*5))*0.5-sin(f_ripples(x*20,z*20,y*20))*0.1 -f_granite(x*10, y*10, z*10) *0.4
//  f_torus (x,y,z,1,0.15)-sin(f_waves(x*10,y*10,z*10))*0.5-sin(f_ripples(x*30,z*30,y*30))*0.1 

}

threshold -0.00001 accuracy 0.00001

 max_gradient 4

contained_by { sphere { 0,2 } }

       }   
 

} // union

/*

  texture {
       pigment {color rgb <1,0,0>}
       finish {phong 0.2}  
   }               
*/

    hollow no_shadow
 texture { pigment { rgbt 1 } }
 interior { 
  
   
   media { 
   
   absorption 10 

// emission 1

  // method 3 samples 30,30 intervals 1 
   scattering {3,<1,0,0>/3}
   
     density { 
   //   agate 
  //  waves
   //ripples
   // wood
 //   onion
      
         function {
 

sin(sqrt(x*x+y*y+z*z) )

//+ f_spiral1(x*3,y*3,z*3)

 +  f_waves(x*5,y*5,z*5)/5 
  + f_granite (x*2,y*2,z*2) 

//+f_agate(x*x,y*y,z*z)

   }
      
    
    scale 1

       density_map {
         [0.0 rgbt <0,0,0,1>]
  
         [1 rgbt <1,1.0,1,0>/3] }
     
     
     } 
     
     
   }

}

scale 4 scale y/2 }

1. declare tex1= texture {

pigment {color rgb <1,0,0>} }

1. declare tex2= texture {

//pigment {color rgb <1,1,0>}

pigment {

//spiral1 16

 function {

//f_waves(x*20,y*20,z*20) -f_waves(x*60,y*60,z*60)/3 -f_waves(x*200,y*200,z*200)/20-f_waves(x*600,y*600,z*600)/180 // f_waves(x*20,y*20,z*20) -f_waves(x*60,y*60,z*60)/3 -f_waves(x*200,y*200,z*200)/20-f_waves(x*600,y*600,z*600)/180-f_wrinkles(x*600,y*600,z*600)/5

( f_waves(x*20,y*20,z*20) -f_waves(x*60,y*60,z*60)/3 -f_waves(x*200,y*200,z*200)/20-f_waves(x*600,y*600,z*600)/180-f_wrinkles(x*600,y*600,z*600)/5)*1  

//f_spiral2(x,z,y) }

//scale 1/20

//rotate x*90 turbulence 0.04 color_map {

  [0 rgbt <0,0,0,1>]
  [1 rgbt <1,1/2,0,0>]

} } }

1. declare inner_disk1 =object {

sphere {0,1}

hollow

pigment {rgbt 1}

interior {

media {
 
   
 //  absorption 1 
 //  emission 2
//   method 3 samples 30,30 intervals 1 
   scattering {3,30}
   
     density { 
   //   agate 
  //  waves
   //ripples
  //  wood 

//scale 0.01

 //   onion
   
   function {
   sqrt(x*x/400+z*z/400) *  f_waves(x*10,y*10,z*10)   *  f_ripples(x*1,y*1,z*1)*100
   
  // sin(f_onion(x*10,y*10,z*10)) *f_granite(x*3,y*3,z*3) +f_noise3d(x*50,y*50,z*2000)
  // f_onion(x,y,z)+
 //  f_ripples(x*24,y*24,z*100)+ f_ripples(x*60,y*60,z*1000) +f_noise3d(x*10,y*10,z*2000) + f_noise3d(x*30,y*30,z*2000)
  
//  f_waves(x*100,y*100,z*100) * f_wrinkles(x*x,y*y,z*z)* f_granite(x*10,y*10,z*10) 
  
// f_granite (x*100,y*100,z*100)  

// ( f_waves(x*20,y*20,z*20) -f_waves(x*60,y*60,z*60)/3 -f_waves(x*200,y*200,z*200)/20-f_waves(x*600,y*600,z*600)/180-f_wrinkles(x*600,y*600,z*600)/5)*1

}
    
  //  rotate x*90
    
    scale 1/15
    sine_wave
    //  granite  
   //  turbulence 0.2
      
    // spherical
    //  warp { turbulence 0.1 }
       
       density_map {
         [0.0 rgbt <0,0,0,1>]
  
         [1 rgbt <1,.5,0,1>] }
     
     
     } 
     
      
   

} }

scale 1.6 scale y/100 }

1. declare sun_object1=object {

sphere {0,0.02} texture { pigment {color rgb <1,1,0.5>} finish {emission 2} }

}

1. declare sun1= union {

 /*
 sphere {0,0.01
  hollow
   texture {
   pigment {
   granite 
 //   agate
    scale 0.01
   color_map {
       [0 color rgbt 1] 
        [0.7 color rgbt 1]
       [1 color rgbt <1,1,1,0>]
       }   
   }

} //finish {emission 1} }

• /

light_source { <0,0,0> 1

fade_power 4

fade_distance 1
 
 looks_like {
 object {sun_object1}
 }
 } 

}

1. declare media1= media {

 //  absorption 1 
 //  emission 2
 //  method 3 samples 40,80 intervals 1 
   scattering {
   
   3,<1,1,1>*1/1000000000
   
   extinction 0.00000000000001
   }   
   
   
   }

sky_sphere {sky1}

media {media1}  

union { light_source { sun1 scale 5 }

object {outer_disk1 }

object { inner_disk1 }

rotate <20,30,40> rotate <20,30,40>