File:Eccentric Jupiter animation 1 1 1 1.ogg

1. 1. rm *.ogv

ffmpeg -framerate 24 -pattern_type glob -i '*.png' -c:v libtheora -q:v 9 -c:a libvorbis -q:a 4 jupiter.ogv ffmpeg -stream_loop 3 -i jupiter.ogv -c copy eccentric_jupiter_animation_1_1_1_1.ogv

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

// DEBUG //#declare taunolla=0;

1. declare taunolla=clock+180.0;

1. declare tau1=radians(taunolla);

//#declare ra=2.0; //#declare ax = (sin(tau1)*ra+1)*4; //#declare ay = (cos(tau1)*ra*0.5)*4;

1. declare ecce=0.5;

1. declare ra=1/(1+(ecce*cos(tau1)));
2. declare fii1=tau1;

1. declare ax = (cos(fii1)*ra)*6;
2. declare ay = (sin(fii1)*ra)*6;

default { finish { ambient 0.000002 diffuse 0.4 } }

camera {

   location <-3,15,15>*0.85
   look_at <-3,0,0> 

   // angle 20
  // rotate z*-10

}

light_source { <0,0,1000>*100000000 color rgb <1,1,1>*1 //color <1.0,0.641,0.289>*2 // spectral class M 5.5V }

1. declare f_planet1= function {

//exp(exp(f_wrinkles(x*1,y*1,z*1))*wrinkles(x,y,z))

// base //exp((exp(f_agate(x,y,z))*1/3)*f_wrinkles(x,y,z))*f_bozo(x*3,y*3,z*3)*0.5

exp((exp(f_agate(x,y,z))*1/3)*f_wrinkles(x,y,z))*f_bozo(x*3,y*3,z*3)*0.5

+ exp(f_agate(x*6,y*6,z*6)*f_granite(x*3,y*3,z*3)*f_wrinkles(x*3,y*3,z*3))*0.25
- exp(f_agate(x*20,y*20,z*20)*f_granite(x*31,y*10,z*10)*f_wrinkles(x*10,y*10,z*10))*0.1
- exp(f_agate(x*60,y*60,z*60)*f_granite(x*61,y*60,z*60)*f_wrinkles(x*60,y*60,z*60))*0.03
 - exp(f_agate(x*200,y*200,z*200)*f_granite(x*200,y*200,z*200)*f_wrinkles(x*200,y*200,z*200))*0.01

}

1. declare tex1= texture {

pigment {

function {f_planet1(x,y,z)} scale 3 warp {turbulence 0.1} scale 1/3 //granite

color_map{ [0 color rgb <0.898039, 0.756863, 0.494118>] [0.5 color rgb <0.533333, 0.368627, 0.258824>] [1.0 color rgb <0.0980392, 0.0980392, 0.172549 >] } }

normal { 

function {f_planet1(x,y,z)} bump_size 1 scale 3 warp {turbulence 0.1} scale 1/3

}

}

// haze

1. declare cloudtex1= texture {

pigment { wrinkles color_map { [0 color rgbt 1] [1 color rgbt 0.5 ] }

}

}

1. declare cloudtex2= texture {

pigment { wrinkles turbulence 0.3 scale 0.3 pigment_map { [0 color rgbt 1] [0.4 color rgbt 1] [1 wrinkles scale 0.1 pigment_map { [0 color rgbt <1,1,1,0>] [0.5 color rgbt <1,1,1,1>] [1 color rgbt <1,1,1,1>] } ] }

}

}

1. declare Reflection1 =sphere {0,1

pigment { rgbt <0, 0, .1, 0.99995> } finish { ambient 0.0 diffuse 0.0 phong 0.2 phong_size 10 } interior { ior 1.1 } hollow yes // tai no scale 1.0001 }

1. declare atm_thickness1=0.03;

#declare atm_samples1=15;
#declare atm_color1 = rgb  <pow(460/650, 4), pow(460/555,  4), 1>;

1. declare atm_amount1=20;

#declare Atmosphere1 = object

{

   difference {

   sphere
   {
   0, 1+atm_thickness1  
   }

   }

  hollow
  material
  { 
 // texture {pigment {color <1,0,0> } }// koe  
  
  
    texture
    {
      pigment
      {
        color rgbt 1
      }      

            finish {  
     ambient 0 reflection 0 specular 0
    ior 1.0
   // diffuse 0.25
     }
    }
    interior
    {
      media
      {     
 
      intervals 1           // number of intervals used for sampling [10]
      samples atm_samples1            // 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]
 

  //   absorption rgb<1,.9,.8>*.1  // absorbing media, block light of specified color
     //  4 scattering type 1=isotropic; 2=Mie haze; 3=Mie murky
          // 4=Rayleigh; 5=Henyey-Greenstein

          // for balancing amount of absorption [1.0]
      
  
     
        //  scattering { 3, atm_color1*atm_amount1 }
           scattering { 1, <0.6, 0.8, 1>*atm_amount1}

     //    scattering { 5, <0.6, 0.8, 1>*atm_amount1 eccentricity 0.56   extinction 1.0 }      
         
            method 3 

        
        
        density
        {  
function {   1*exp(-8*(sqrt(x*x+(y)*(y)+z*z)- 1 - 0.00001)/atm_thickness1) } 

/*

          spherical
          density_map
          {
            [0     rgb <0.25, 0.5, 1>]
            [0.005 rgb <0.25, 0.5, 1>]
            [0.011 rgb <0.9, 1, 1>]
            [1    rgb <0.9, 1, 1>]
          }

• /

     }
         
         
     }
    }
  
  }   

}

// povray 3.7 code to generate red dwarf star

1. declare Yellow =rgb <1,1,0>;
2. declare White= rgb <1,1,1>;
3. declare Black =rgb <0,0,0>;

1. declare DarkRed=rgb <0.1,0,0>;

1. declare Red=rgb <1.0,0,0>;

1. declare Orange=rgb <1,0.5,0>;
2. declare RedOrange=rgb <1,0.05,0>;
3. declare RedRedOrange=rgb <1,0.15,0>;

//#declare YellowOrange=rgb <1,0.75,0>; //#declare YellowYellowOrange=rgb <1,0.825,0>;

1. declare LightBlue=rgb <0.5,0.5,1>;

//#declare DarkYellow=rgb <0.25,0.25,0>;

1. declare granulas = pigment {

   //granite
   crackle
   turbulence 0.5
   color_map {
     [0.0 color RedOrange]
     [0.15 color RedOrange]
     [0.25 color RedRedOrange]
     [1.0 color Red]
   }
   scale 0.05
 //  	warp{turbulence 0.1}
   };
   

1. declare kromos=intersection

{ sphere {0,1.025} sphere {0,1.00}

 // pigment {color Red}
   
pigment { color rgbf 1 }
 hollow
 interior {
   media {
     emission 20
     method 2
     intervals 1
     samples 5, 5

     density {
       spherical
       color_map {
         [ 0.0 rgb 0.0 ]
         [ 0.2 rgb <0.25, 0.0, 0.0> ]
         [ 0.4 rgb <0.5, 0.0, 0.0> ]
         [ 1.0 rgb <1.0, 0.0, 0.0> ]
       }
     }
   }
   media {
     absorption 5.0
     method 1
     intervals 1
     samples 5, 5
     density {
       spherical
       color_map {
         [ 0.0 rgb 1.0 ]
         [ 0.1 rgb 1.0 ]
         [ 1.0 rgb 1.0 ]
       }
     }
   }
 }
 

};

1. declare spots = pigment {

   //granite
   bozo
   turbulence 0.5
   color_map {
     [0.0 color Black]
     
     [0.95 color Black]
     [1.0 color DarkRed]
   }
   scale 1
   
   };
   

1. declare sun_surf =pigment

{

   bozo
   turbulence 0.5
   scale 0.5
   //  scale 1  
     
      pigment_map {
     
      [0.0 granulas]
      [0.5 granulas  scale 2]
  //   [0.7 Yellow]
      [1.0 spots scale 0.1]       

     }    
      

};

1. declare korona=object

{ sphere {0,6}

pigment { color rgbf 1 }

 hollow
 interior {
   media {
     emission 10
     method 3
     intervals 1
     samples 5, 5

     density {
       spherical
       color_map {
         [ 0.0 rgb 0.0 ]
         [ 0.25 rgb <0.5, 0.5, 0.5> ]
         [ 1.0 rgb <1.0, 1.0, 1.0> ]
       }
     }
   }
 }
 

};

1. declare sun0=union {

object { sphere {0,1} pigment {sun_surf} //pigment {Yellow}

finish {ambient 5}

scale 3 }

object { kromos rotate y*clock //translate <sax,0,say> //scale 3.25 scale 3.25 }

object {korona

 rotate x*fii1*6*( 1+(sin(radians(fii1*12))+1))

 //  rotate x*clock*90

scale 1 }

};

1. declare sun= light_source

{ <0,0,0> color <1.0,0.641,0.289>*1 // spectral class M 5.5V looks_like {sun0} //media_interaction on

}

1. declare starr01= object {

sphere {0,1}

texture { pigment { granite scale 0.3

color_map { //[0 color rgb <1,0,0> ] //[1 color rgb <1.0,0.641,0.289> ]

[0 color <1.0,0.542,0.202>*0.8] // m8 [0 color <1.0,0.638,0.315>*1.2] // m3 } } finish {ambient 2} }

 scale 0.1

}

1. declare starmedia1= object {

sphere {0,2 }

pigment { rgbt 1 } hollow

  interior
  { 
  media
    { 
    samples 40,80
    emission 1*<1.0,0.641,0.289>
      density {
        function {
     //  exp(-3*sqrt(x*x+y*y+z*z))

           //    function { 1/(2000)*pow( sqrt(x*x+y*y+z*z),-4 ) *f_granite(atan(x/y),atan(y/x),atan(z/x))
         //      *pow( sqrt(x*x+y*y+z*z),-4 )
             
   exp(-3*sqrt(x*x+y*y+z*z))

• f_wrinkles(atan(x/y),atan(y/x),atan(z/x))

 *f_agate(atan(x/y),atan(y/x),atan(z/x))*2.5

                }
             
          //    }
      poly_wave 2
      density_map
        { [0 rgbt <0,0,0,1>]
          [1 rgbt <1,1,1,0>*10]
            
   }
      }
    }
 }

} // ob

1. declare star1=light_source {

   <0,0,0>

color rgb <1.0,0.641,0.289>*2 // spectral class M 5.5V looks_like { object {starr01 } }

}

1. declare star2=union {

   light_source {star1 scale 2.4 }
  object {starmedia1 scale 0.8 scale 1+0.02*(sin(radians(clock*6))) rotate x*(1+0.2*sin(radians(clock)))*360  }

}

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

}

1. declare planeta0=sphere {0,1

texture {tex1}

texture {cloudtex1}
texture {cloudtex2}

}

1. declare planet1=union {

object {planeta0 }

   object {Atmosphere1}  
   object {Reflection1}  

}

1. declare giant1=union {

   object {planetball1 }
   //rotate x*90
   rotate y*clock*6

}

object { star2 scale 4 }

object {

   giant1 
   scale 1
   translate x*ax
   translate z*ay

}

///object {planet1 scale 3}