1. include "functions.inc"
2. include "rand.inc"

camera { location <0,0,-21> look_at 0 angle 8 }

light_source { <1/2,0,-1>*1000*1000*1000*1000 color rgb <1,1,1>*1.5

}

1. default {

   texture {
    pigment { rgb <0,0,0> }
    normal { bumps 0.0 }
    finish { ambient 0.0 }
  }

}

1. macro blackholes1()

1. declare seed1 = seed(2531);

scale y/2

   #declare radi1=0.99;

    #declare anx1=radians(180+20);
   #declare any1=radians(20);
 
   #declare theta1=anx1;
   #declare fii1=any1;

   #declare x1=radi1*sin(theta1)*cos(fii1);
   #declare y1=radi1*sin(theta1)*sin(fii1);
   #declare z1=radi1*cos(theta1);

        warp {black_hole <x1,y1,z1>,0.4 falloff 1 strength 2 turbulence <1,1,1>*10 inverse } 
     #declare radi1=0.99;

1. for (n,1,50)

    #declare j1=rand(seed1)*360;
         #declare j2=rand(seed1)*90;
 #declare anx1=radians(180-j1);
   #declare any1=radians(j2);
 
   #declare theta1=anx1;
   #declare fii1=any1;

   #declare x1=radi1*sin(theta1)*cos(fii1);
   #declare y1=radi1*sin(theta1)*sin(fii1);
   #declare z1=radi1*cos(theta1);

        warp {black_hole <x1,y1,z1>,0.15*rand(1) falloff 2 strength 3.5 turbulence 0.4 inverse  } 
   #end

  //    scale y/2

1. end

1. macro lamak1()

    function {

//(sin(exp(abs(y))*pi)+1)/2

// (sin(y*pi*3)+1)/2 //1*f_granite(0,y,0) //*f_agate(0,y,0) //1 *f_wrinkles(0,abs(sin(y*8)),0)

 ((cos(abs(y)*4)/2)+0.5)*0.7+f_wrinkles(x*10,y*40,z*10)*0.3

}

//rotate x*90  
// sine_wave

//scallop_wave

  frequency 1

//scale 1/2 scale 3

warp {
turbulence 0.2*<1/8,6,1/8>
}       

scale 1/3

scale 10
warp {
turbulence 0.1*<1,6,1>
}       

scale 1/10

blackholes1()

   scale y/2

1. end

// layer 2

#macro lamak2()
    function {

// ((cos(abs(y)*4)/2)+0.5)*0.5+f_wrinkles(x*15,y*30,z*15)*0.5

//   f_marble(abs(-y)/3,abs(-x)/3,abs(z)/3)*0.7+0.3*( f_wrinkles(x*6,y*3,z*6)*f_wrinkles(x*10,y*10,z*10))

// f_marble(sin(exp(abs((y-0.05)/2))*2)/2,x,z) *0.7+ .3*( f_wrinkles(x*6,y*3,z*6)*f_wrinkles(x*10,y*10,z*10))

//sin(abs(y/(pi/2))) *f_wrinkles(0,y,0)

//cos(abs(y/(pi/1)))*0.5 + ( f_wrinkles(x*0,y/4,z*0)*f_wrinkles(x*0,y*2,z*0)) *0.5

 cos(abs(y/(pi/1)))*f_wrinkles(0,y,0)

}

//rotate x*90  

// sine_wave //scallop_wave

// frequency 2
// omega 0.2

// lambda 0.2

//  turbulence 0.2

//scale 1/2 scale 3

warp {
turbulence 0.13 *<1,3,1>
}       

scale 1/3

scale 10

warp {
turbulence 0.25 *<1,4,1>
}       

scale 1/10 /*

scale 30
warp {
turbulence 0.3 *<1,4,1>
}       

scale 1/30

 */
     blackholes1()  

/*

scale 100
warp {
turbulence 1/4  *<1,4,1>
}       

scale 1/100

 scale 300
warp {
turbulence 1/3  *<1,3,1>
}       

scale 1/300

 */  

scale y/2

1. end

1. declare planetball1= object {

sphere {0,1 texture {pigment {color rgb <1/5,0,0,0>}}}

// tex 1

texture {

pigment {
   lamak1()

color_map {

      [1/4 color rgb <0.77, 0.64, 0.45>*1] 
       [4/4 rgb <0.91, 0.65, 0.45>*1]
}

//warp {turbulence y*0.01}

}

normal {
lamak1()
bump_size 1/20

}

finish {ambient 0 diffuse 0.75  phong 0.00 specular 0.0 }

}

// ... tex 1

/// tex layer 2

texture {

pigment {

//marble rotate z*90 scale 0.5

lamak2()

color_map {

      [0 color rgbt <1,1,1,1>]
    [1 color rgbt <1.2,1.2,1.2,0.0>]

// [ 1 rgbt <1.00, 0.99, 0.94,0>] }

}

//    [0 color rgb <1/2,1/2,1>*0.9]

// [1 color rgb <0.9,0.9,1>]

// [0 color rgb <1/5,1/5,1>*0.9]

//   [1 color rgb <0.9,0.9,1>]

   // saturn set

//   [0 color rgb <0.92, 0.79, 0.51>*1.1 ]       
 
 //     [1 color rgb <0.77, 0.64, 0.45>*1.1]
 
 // some jupiter colors

//[0 rgb <0.91, 0.65, 0.45>] //[1 rgb <1.00, 0.99, 0.94>]

// jupiter+saturn combine

//[1/4 rgb <1.00, 0.99, 0.94>*1.1]

      //  [1/4 color rgb <0.92, 0.79, 0.51>*1 ] 

  normal {
lamak2()
bump_size 1/20

}

finish {ambient 0 diffuse 0.75  phong 0.00 specular 0.0 }

} // ... tex2

 /*
// texture 3
// spots

texture {

pigment {

//leopard

 function {

//f_leopard(x,y,z) //1*f_(0,x*10,0)

 f_marble(y,x,z) *  f_leopard(x*6,y*6,z*6)

}

//warp {turbulence 1}

//scale 0.1 translate x*0.2

scale 2/3

scale y/2 color_map {

      [0 color rgbt <1,1,1,1>]
      [1/3 color rgbt <1,1,1,0.5>]
[ 1/2 rgbt <1, 1, 1,0.0>] 
[ 1 rgbt <1, 1, 1,.0>*1.1]
  }

} } // ... texture 3

   */

 // texture 4

texture {

pigment {

 function {sin(abs(y/(pi/4)))

// *f_wrinkles(x*10,y*12,z*10)

}

 color_map {

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

} }

finish {ambient 0 diffuse 0.75  phong 0.00 specular 0.0
 refraction 1
} 

} // tex4

}

union { object {planetball1 }

rotate x*15 //rotate y*-27 }