File:Algol-type variable binary star animation 8.ogv

ffmpeg -framerate 24 -pattern_type glob -i '*.png' -c:v libtheora -q:v 9 -c:a libvorbis -q:a 4 algol_type_variable_a1.ogv

1. include "functions.inc"

camera { location <0,7,-50> look_at 0 angle 25

}

1. declare samples1=2;

1. declare ball1=object {

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

}

1. macro ball2(kolor1, amb)

object { sphere {0,1} texture { pigment {color rgb kolor1} finish {ambient amb} }

}

1. end

1. macro ball3(kolor1, amb)

object { sphere {0,1} texture { pigment {color rgbt kolor1} finish {ambient amb} }

}

1. end

1. macro starr1(color1, color2,brightness1)

union {

 sphere {
 0, 1
 pigment { color rgb color1 }
 finish {ambient 10*color1}
    scale 0.6
   }

sphere {
 0, 1
 pigment { color rgbf 1 }
 hollow
 interior {
   media {
     emission 1*brightness1
     method 3
     intervals 1
     samples samples1
    // emission_type 2
    // emission_extinction 2
     density {
  //     spherical  
   function {pow(1*f_spherical(x,y,z),1) }     

// 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 ] 

         [ 1.0 rgb  color2*2 ]
       }
     }
   }

 }
 scale 1.2

}

} // juunion

1. end

1. declare degrad=3.14159/180;

//#for (i,0,180)

   #declare i=clock;

#declare n=i*1; #declare lok1=n*degrad;

#declare tx1=(n-180)*0.03;

#declare ty1=sin(lok1)+sin(lok1*2)*2; #declare ty1=ty1*1.5+1;

#if (ty1>0) #declare ty1=0.0; #end

#declare amb1=n/360;

#for (j,0,180) #declare m=n-j; #declare lok2=m*degrad;

#declare tx2=(m-180)*0.03;

#declare ty2=sin(lok2)+sin(lok2*2)*2; #declare ty2=ty2*1.5+1;

#if (ty2>0) #declare ty2=0.0; #end

#declare amb2=((180.0-j)/180)*1; #declare trans1=1-amb2;

object { #declare kolor1=<1,amb2,0, trans1>;

ball3(kolor1, amb2) // starr1(<1,1/2,0>*amb2,<1,0.8/2,0>*amb2, 1) #declare skalar1=sqrt(amb2);

scale 0.1*skalar1 scale z*0.05 translate <tx2,ty2,-15> }

#end

/* object { ball2( 1,1, 0,2) scale 0.1 translate <tx1,ty1,0> }

• /

// object { // starr1(<1,1,0>,<1,0.9,0>, 1) scale 0.1*4 translate <tx1,ty1,0> // }

//#end

object {

//ball1()

//object { ball2( <1,0, 0>,1)  }

starr1(<1.0,0.638,0.293>,<1.0,0.638,0.293>, 1)

scale 2.5 translate x*3 rotate y*(clock-60+180)

}

object {

starr1(<0.448,0.564,1.0 >,<0.448,0.564,1.0 >, 2) // object { ball2( <0.5,0.5, 1>,1) }

scale 1.5 translate x*3 rotate y*(180+clock-60+180)

}