POV-Ray animation ini file

Antialias=Off Antialias_Threshold=0.1

Antialias_Depth=2 Quality=11

Input_File_Name="sirisu3.pov"

Initial_Frame=1 Final_Frame=100 Initial_Clock=0 Final_Clock=360

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

1. declare tau_ofset=90;

1. declare taunolla=clock+tau_ofset;

1. declare randi1=rand(1);
2. declare randi2=rand(2);
3. declare randi3=rand(3);

1. declare tau1=radians(taunolla);
2. declare tau2=radians(taunolla+180.0);

1. declare ra=3;
2. declare rb=3;
3. declare ax = sin(tau1)*ra+0.5;
4. declare ay = cos(tau1)*ra;

1. declare bx = sin(tau2)*rb-0.5;
2. declare by = cos(tau2)*rb;

//## stella atmosphere

1. declare atm_thickness1=1.5 ;

1. declare samples1=30; // media samples, greater value slower to render

camera { location <0,25,-150>*1 look_at 0 angle 5 }

1. macro convection_pigment(c)

crackle pigment_map{ [0.0 rgb c*0.2] [0.2 rgb c] [0.9 rgb c] [1.0 rgb 1.0]

} warp{turbulence 1}

1. end

1. declare stella_object_type_1= object {

        sphere {0,1 } 
   // ovus {1,0.7 rotate x*90 rotate y*-90}
   //object { Egg_Shape (1.15,1.55)  rotate x*90 rotate y*-90}
   

// texture { pigment {color rgb <1,1/2,0>} finish {ambient 0 }} }

1. declare stella_object_type_2= object {

        difference 
       {
        sphere {0,1+atm_thickness1 } 
        sphere {0,1.001 } 
       }

}

//#declare star_pigment_1= pigment { wrinkles turbulence 0.4 scale 0.005 translate taunolla/360 color_map { [0 color rgb starcolor1a] [1 color rgb starcolor1c] } }

1. macro makestar1(color1, color2, color3, color4)

object { union {

  // main sequence stella

object {

 object { stella_object_type_1  }   
 // texture {pigment {color rgb  color1} finish {ambient 1} }

// texture { pigment { convection_pigment(color1) scale 0.05} finish {ambient 1} }

   texture { 
     wrinkles scale 0.02
 //   granite  scale 0.1
         translate x*tau1*0.2
   warp { turbulence 0.5 }

   texture_map {

     [0 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 1}]    
     [0.85 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 1/2}]  
     [0.9 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 2/5}]   
     [1 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 0.2}]    
 } 
          
 
} // ...tex
        
   scale 1

} // stella object
 

// stella korona try 1

object {
 object {stella_object_type_2}

   pigment{rgbt 1}
       hollow

      interior{ 
   media{ method 3      
        //   absorption (1-color1)*1 // darkening
          emission color3*3/10
       //  scattering{ 4,(1-color1)// Type
         
        //   } // end scattering
          density{ 

          // #declare qq=tau1/(pi*2);
          
 function {   

       pow( 1*sqrt(1*(x*x+y*y+z*z)),-6 )  
//   * pow( f_granite(  atan2(x,y), atan2(x,z),atan2(y,z)),1/1)

//   * pow( f_granite( atan2(x+f_wrinkles(x,y,z),y+f_granite(x,y,z)*0.2), 1,1),z)  
   * pow( f_granite( atan2(x+f_wrinkles(x,y,z),y+f_granite(x,y,z)*0.2), 1,1),2)  

• 0.5

+ pow( 1*sqrt(1*(x*x+y*y+z*z)),-6 )*0.2 }

  //    translate x*tau1*0.2

   density_map
          { 
           [0 rgb color1*0.000000000] 

       //   [0.1 rgb color3*1]
          //   [0+atm_thickness1 rgb color3*1]
         
           [1 rgb color1*3] 
            }

          } // 
          samples samples1 

    }  // ... density
 } // ... interior

//  scale 1.0+atm_thickness1

// scale 0.9

} // ... obj stella atm

} // union } // object

1. end // end makestar1 macro

1. macro makestar2(color1, color2, color3, color4)

object { union {

  // main sequence stella

object {

 object { stella_object_type_1  }   
  texture {pigment {color rgb  color1} finish {ambient 1} }

// texture { pigment { convection_pigment(color1) scale 0.05} finish {ambient 1} }

// texture {

//     wrinkles scale 0.02
 //   granite  scale 0.1
//         translate x*tau1*0.2
//   warp { turbulence 0.5 }

//   texture_map {

//     [0 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 1}]    
//     [0.85 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 0.6}]  
//     [0.9 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 0.4}]   
//     [1 pigment { wrinkles turbulence 0.4 scale 0.005  translate taunolla/360   color_map {   [0 color rgb color1] [1 color rgb color3] }} finish {ambient 0.0}]    

// }

          // } // ...tex
        
   scale 1

} // stella object
 

// stella korona2 try 1

object {
 object {stella_object_type_1}

   pigment{rgbt 1}
       hollow

      interior{ 
   media{ method 3      
        //   absorption (1-color1)*1 // darkening
          emission color3*1/10
       //  scattering{ 4,(1-color1)// Type
         
        //   } // end scattering
          density{ 

      //    #declare qq=tau1/(pi*2);

 function {   

// pow( 1*sqrt(1*(x*x+y*y+z*z)),-6 )

//   * pow( f_granite(  atan2(x,y), atan2(x,z),atan2(y,z)),1/1)

// * pow( f_granite( atan2(x+f_wrinkles(x,y,z),y+f_granite(x,y,z)*0.1), 1,1),1/1) //*0.5 //+ pow( 1*sqrt(1*(x*x+y*y+z*z)),-6 )*0.2 // pow( 1/3*sqrt(4*(x*x+y*y+z*z)),-5 )*1

pow(f_spherical(x,y,z),2)*2
*f_wrinkles(x,y,z) *2

• pow( f_granite( atan2(x,y)/2, atan2(x,z)/2,atan2(y,z)/2),1/1)

}

  //    translate x*tau1*0.2

   density_map
          { 
           [0 rgb color1*0.000000000] 

       //   [0.1 rgb color3*1]
          //   [0+atm_thickness1 rgb color3*1]
         
           [1 rgb color1*20] 
            }

          } // 
          samples samples1 

    }  // ... density
 } // ... interior

  scale 3

// scale 0.9

} // ... obj stella atm

} // union } // object

1. end // end makestar1 macro

// star 1

  #declare color1=<1,1,1>*1.2;
#declare color2=<1,1,1,0>*1.2;   

1. declare color3=<1,1,1.4>*1;

#declare color4=<1,1,1.4,0>*1;  

union {

makestar1(color1, color2, color3, color4 )    
  scale 1.68*1   
   rotate taunolla
// scale 1
    translate <ax,0,ay>*1 

  }

// star 2

  #declare color1=<1,1,2>*2;
#declare color2=<1,1,3,0>;   

1. declare color3=<1,1,1.5>*2;

#declare color4=<1,1,1.5,0>;  

union {

makestar2(color1, color2, color3, color4 )   
   rotate taunolla 
   scale 1/5
    translate <bx,0,by>*1 
  }