1. include "functions.inc"

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

1. declare sun0=object {

sphere{0,1}

pigment {color rgb <1,1,0.5>} finish {ambient 2}

}

1. macro ring0(radius1, radius2)

    object {

disc {0,<0,1,0>,radius2, radius1 }

texture {

  pigment {

// function {f_waves(sqrt(x*x+z*z)*10,f_granite(sqrt(x*x+z*z),0,0),0) }

// function {f_waves(sqrt(x*x+z*z),0,0)*10 } // function {f_waves(sqrt(x*x+z*z)*10,0,0)*f_waves(sqrt(x*x+z*z),0,0)*10 } // function {f_waves(sqrt(x*x+z*z)*10,0,0)*f_waves(sqrt(x*x+z*z),f_granite(sqrt(x*x+z*z) ,sqrt(x*x+z*z),sqrt(x*x+z*z)),0)*5 }

// function {f_granite(f_spherical(x,y,z),f_spherical(x,y,z)*10,f_spherical(x,y,z)*10) }

   //   function {f_granite(sqrt(x*x+z*z),1,2) } 
      
       //    function {f_wrinkles(sqrt(x*x+z*z),1,2)*1 } 
      

// function {f_agate(sqrt(x*x+z*z)/3,1,2)*10 *f_wrinkles(sqrt(x*x+z*z)*10,1,2)} // function {f_agate(sqrt(x*x+z*z)/3,1,2)*f_granite(sqrt(x*x+z*z),1,2) }

function {f_agate(sqrt(x*x+z*z)*4,1,2)*f_wrinkles(sqrt(x*x+z*z)*5,1,2)*f_granite(sqrt(x*x+z*z)*4,1,2) }      
  color_map {
      [0 color rgb <1,0.6,0,0.4>] 
      [1 color rgb <1,0.4,0,1>]
      }
  }

}

finish {refraction 0.0 ambient 1 brilliance 1/1000 diffuse 0.7 phong 0.2 specular 0.15 }

}

1. end

1. macro planet1(distance1, radius1, rotation1, color1, color2)

object { sphere {0,1}

scale 0.2*radius1

texture { pigment { gradient y frequency 3 sine_wave color_map { [0 rgb color1] [1 rgb color2] } } finish {ambient 0.1 diffuse 0.5} }

translate x*distance1 rotate y*rotation1

}

1. end

#declare fog1=object {

 sphere // transparent sphere containing media
{ 0,1 pigment { rgbt 1 } hollow
  interior
  { media
    {

    // emission 1

     scattering {
     2,<1,1/2,1/4>*1/200
     extinction 0.0001
     }

      density
      {

       //   function { -exp((x*x+y*y+z*z)/1)/10 }
       function {
       f_wrinkles(x,y,z)*-exp((x*x+y*y+z*z)/1)/10
       }

       /*
       //    spherical
       density_map

        { [0 rgb 0]
          [0.5 rgb <1,0,0>]
          [0.8 rgb <1,0.5,0>]
          [1 rgb <1,1,0.5>]
        }
        */

      }
    }
 }

}

scale 30

  scale y/3

}

object {fog1}

light_source { 0 color <1,1,1>*3 looks_like { object {sun0 scale 0.2} } }

object { ring0(1,2) }

object { ring0(2.5,4) }

object { ring0(5,7) }

planet1(2.25,1, 30, <1,0.5,0.1>, <1,1,1> )

planet1(4.5,2, -120, <0,1,1>, <0,0.5,1> )