File:Epsilon aurigae type variable star animation 1 1 1 1.mpg

1. 1. create mpeg animation from pngs

1. include "functions.inc"

1. declare tauorig=180+90;

1. declare taunolla=clock+tauorig;

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

1. declare ra=2.2;
2. declare rb=2.2;
3. declare rc=0.15;

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

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

1. declare cx = sin(tau1*4)*rc;
2. declare cy = cos(tau1*4)*rc;

1. declare sax=ax*1;
2. declare say=ay*1;
3. declare sbx=bx*1;
4. declare sby=by*1;
5. declare scx=cx*1;
6. declare scy=cy*1;

1. declare samples1=30;

camera {

location <0,0,-20>
look_at <0,0,0>
angle 25

}

1. macro starr1(color1, color2)

union { /*

 sphere {
 0, 1
 pigment { color rgb color1 }
 finish {ambient 1}
    scale 0.25
   }
 */
sphere {
 0, 1
 pigment { color rgbf 1 }
 hollow
 interior {
   media {
     emission 50
     method 3
     intervals 2
     samples samples1
    // emission_type 2
    // emission_extinction 2
     density {
  //     spherical  
   function {pow(1*f_spherical(x,y,z),4) }     

// scallop_wave

//    function {pow( (2*(sqrt(x*x+y*y+z*z))) ,-1) } 
     //    function {pow(f_spherical(x,y,z),2)*f_wrinkles(x*1000,y*1000,z*1000) }  
         //      function {f_wrinkles(x*10,y*10,z*10) }  

       color_map {
         [ 0.0 rgb 0.0 ] 
            [ 0.2 rgb color1*0.05   ]
       //  [ 0.6 rgb  color1*0.5 ]
         [ 1.0 rgb  color2*2 ]
       }
     }
   }

 // absorbing stuff
  media {
     absorption 1.5
     method 3
     intervals 2
     samples samples1
     density {
             function {pow(f_spherical(x,y,z),1.5) } 
      // spherical
       color_map {
         [ 0.0 rgbt 0 ]
         [ 0.5 rgbt 1 ]
         [ 1.0 rgbt 2 ]
       }
     } 
  }

 }

}

} // juunion

1. end

#macro gasring1(color1, color2)

union { /*

 torus {
 1, 0.2
 pigment { color rgb color1 }
 finish {ambient 1}
    scale 0.25
   }
 */

// sphere { // 0, 1

 torus {1,0.5
 scale y/5

 pigment { color rgbf 1 }
 hollow
 interior {

   media {
  // emission 1
 //    absorption 1

     method 3
     intervals 1
     samples samples1  

      scattering { 4, <0,0,1>*1 }

     density {   

function {    pow( f_wrinkles(x*50,y*50,z*50),2)    }

 /*

       color_map {
         [ 0.0 rgb 0.0 ] 
      //      [ 0.2 rgb color1*0.05   ]
       //  [ 0.6 rgb  color1*0.5 ]
         [ 1.0 rgb  1 ]
       }

• /

}
   }

 // absorbing stuff
  media {
     absorption 10
     method 3
     intervals 2
     samples samples1
     density {
          //   function {pow(f_spherical(x,y,z),1.5) }  
           function { pow( f_wrinkles(x*50,y*50,z*50),2)  }  
     //   function {f_granite(x*30,y*30,z*20) }     
   // spherical        

// scale 10

       color_map {
         [ 0.0 rgb 0 ]
   //      [ 0.5 rgbt 1 ]
         [ 1.0 rgb 1 ]
       }
     } 
  }

 }

}

} // juunion

1. end

object { //starr1(<1,.25,0>, <1,0,0>) starr1(<1,1,0>, <1,1,1>)

scale 3 translate <sax,0,say> }

object {

starr1(<.5,.5,1>*2, <0.25,0.25,1>*1)

scale 0.2

translate <sbx+scx,0,sby+scy> }

 object {

starr1(<.5,.5,1>*2, <0.25,0.25,1>*1)

scale 0.2

translate <sbx-scx,0,sby-scy> }

object {

gasring1(<.1,.1,0.1>*2, <0.1,0.1,0.1>*1) scale 1.5 rotate z*20 rotate y*-10 rotate x*-1 translate <sbx,0,sby> }